assemblyscript/tests/compiler/fmod.optimized.wast

(module
 (type $FFF (func (param f64 f64) (result f64)))
 (type $v (func))
 (memory $0 1)
 (export "fmod" (func $fmod/fmod))
 (export "memory" (memory $0))
 (start $start)
 (func $fmod/fmod (; 0 ;) (type $FFF) (param $0 f64) (param $1 f64) (result f64)
  (local $2 i64)
  (local $3 i32)
  (local $4 i64)
  (local $5 i64)
  (local $6 i32)
  (local $7 i32)
  (local $8 i32)
  (local $9 f64)
  (set_local $3
   (i32.wrap/i64
    (i64.and
     (i64.shr_u
      (tee_local $2
       (i64.reinterpret/f64
        (get_local $0)
       )
      )
      (i64.const 52)
     )
     (i64.const 2047)
    )
   )
  )
  (set_local $6
   (i32.wrap/i64
    (i64.and
     (i64.shr_u
      (tee_local $5
       (i64.reinterpret/f64
        (get_local $1)
       )
      )
      (i64.const 52)
     )
     (i64.const 2047)
    )
   )
  )
  (set_local $8
   (i32.wrap/i64
    (i64.shr_u
     (get_local $2)
     (i64.const 63)
    )
   )
  )
  (if
   (if (result i32)
    (if (result i32)
     (tee_local $7
      (i64.eq
       (i64.shl
        (get_local $5)
        (i64.const 1)
       )
       (i64.const 0)
      )
     )
     (get_local $7)
     (tee_local $7
      (f64.ne
       (tee_local $9
        (get_local $1)
       )
       (get_local $9)
      )
     )
    )
    (get_local $7)
    (i32.eq
     (get_local $3)
     (i32.const 2047)
    )
   )
   (return
    (f64.div
     (f64.mul
      (get_local $0)
      (get_local $1)
     )
     (f64.mul
      (get_local $0)
      (get_local $1)
     )
    )
   )
  )
  (if
   (i64.le_u
    (i64.shl
     (get_local $2)
     (i64.const 1)
    )
    (i64.shl
     (get_local $5)
     (i64.const 1)
    )
   )
   (block
    (if
     (i64.eq
      (i64.shl
       (get_local $2)
       (i64.const 1)
      )
      (i64.shl
       (get_local $5)
       (i64.const 1)
      )
     )
     (return
      (f64.mul
       (f64.const 0)
       (get_local $0)
      )
     )
    )
    (return
     (get_local $0)
    )
   )
  )
  (set_local $2
   (if (result i64)
    (get_local $3)
    (i64.or
     (i64.and
      (get_local $2)
      (i64.const 4503599627370495)
     )
     (i64.const 4503599627370496)
    )
    (block (result i64)
     (set_local $4
      (i64.shl
       (get_local $2)
       (i64.const 12)
      )
     )
     (loop $continue|0
      (if
       (i64.eqz
        (i64.shr_u
         (get_local $4)
         (i64.const 63)
        )
       )
       (block
        (set_local $3
         (i32.sub
          (get_local $3)
          (i32.const 1)
         )
        )
        (set_local $4
         (i64.shl
          (get_local $4)
          (i64.const 1)
         )
        )
        (br $continue|0)
       )
      )
     )
     (i64.shl
      (get_local $2)
      (i64.add
       (i64.sub
        (i64.const 0)
        (i64.extend_u/i32
         (get_local $3)
        )
       )
       (i64.const 1)
      )
     )
    )
   )
  )
  (set_local $5
   (if (result i64)
    (get_local $6)
    (i64.or
     (i64.and
      (get_local $5)
      (i64.const 4503599627370495)
     )
     (i64.const 4503599627370496)
    )
    (block (result i64)
     (set_local $4
      (i64.shl
       (get_local $5)
       (i64.const 12)
      )
     )
     (loop $continue|1
      (if
       (i64.eqz
        (i64.shr_u
         (get_local $4)
         (i64.const 63)
        )
       )
       (block
        (set_local $6
         (i32.sub
          (get_local $6)
          (i32.const 1)
         )
        )
        (set_local $4
         (i64.shl
          (get_local $4)
          (i64.const 1)
         )
        )
        (br $continue|1)
       )
      )
     )
     (i64.shl
      (get_local $5)
      (i64.add
       (i64.sub
        (i64.const 0)
        (i64.extend_u/i32
         (get_local $6)
        )
       )
       (i64.const 1)
      )
     )
    )
   )
  )
  (loop $continue|2
   (if
    (i32.gt_s
     (get_local $3)
     (get_local $6)
    )
    (block
     (if
      (i64.eqz
       (i64.shr_u
        (tee_local $4
         (i64.sub
          (get_local $2)
          (get_local $5)
         )
        )
        (i64.const 63)
       )
      )
      (block
       (if
        (i64.eqz
         (get_local $4)
        )
        (return
         (f64.mul
          (f64.const 0)
          (get_local $0)
         )
        )
       )
       (set_local $2
        (get_local $4)
       )
      )
     )
     (set_local $2
      (i64.shl
       (get_local $2)
       (i64.const 1)
      )
     )
     (set_local $3
      (i32.sub
       (get_local $3)
       (i32.const 1)
      )
     )
     (br $continue|2)
    )
   )
  )
  (if
   (i64.eqz
    (i64.shr_u
     (tee_local $4
      (i64.sub
       (get_local $2)
       (get_local $5)
      )
     )
     (i64.const 63)
    )
   )
   (block
    (if
     (i64.eqz
      (get_local $4)
     )
     (return
      (f64.mul
       (f64.const 0)
       (get_local $0)
      )
     )
    )
    (set_local $2
     (get_local $4)
    )
   )
  )
  (loop $continue|3
   (if
    (i64.eqz
     (i64.shr_u
      (get_local $2)
      (i64.const 52)
     )
    )
    (block
     (set_local $3
      (i32.sub
       (get_local $3)
       (i32.const 1)
      )
     )
     (set_local $2
      (i64.shl
       (get_local $2)
       (i64.const 1)
      )
     )
     (br $continue|3)
    )
   )
  )
  (f64.reinterpret/i64
   (i64.or
    (tee_local $2
     (if (result i64)
      (i32.gt_s
       (get_local $3)
       (i32.const 0)
      )
      (i64.or
       (i64.sub
        (get_local $2)
        (i64.const 4503599627370496)
       )
       (i64.shl
        (i64.extend_u/i32
         (get_local $3)
        )
        (i64.const 52)
       )
      )
      (i64.shr_u
       (get_local $2)
       (i64.add
        (i64.sub
         (i64.const 0)
         (i64.extend_u/i32
          (get_local $3)
         )
        )
        (i64.const 1)
       )
      )
     )
    )
    (i64.shl
     (i64.extend_u/i32
      (get_local $8)
     )
     (i64.const 63)
    )
   )
  )
 )
 (func $start (; 1 ;) (type $v)
  (local $0 f64)
  (if
   (f64.eq
    (tee_local $0
     (call $fmod/fmod
      (f64.const 1)
      (f64.const nan:0x8000000000000)
     )
    )
    (get_local $0)
   )
   (unreachable)
  )
  (if
   (f64.ne
    (call $fmod/fmod
     (f64.const 1.5)
     (f64.const 1)
    )
    (f64.const 0.5)
   )
   (unreachable)
  )
  (if
   (i32.eqz
    (f64.lt
     (f64.sub
      (call $fmod/fmod
       (f64.const 9.2)
       (f64.const 2)
      )
      (f64.const 1.2)
     )
     (f64.const 2.220446049250313e-16)
    )
   )
   (unreachable)
  )
  (if
   (i32.eqz
    (f64.lt
     (f64.sub
      (call $fmod/fmod
       (f64.const 9.2)
       (f64.const 3.7)
      )
      (f64.const 1.8)
     )
     (f64.const 2.220446049250313e-16)
    )
   )
   (unreachable)
  )
 )
)