real_conv/test.icl

   1 module test
   2
   3 import StdInt
   4
   5 Start = convert_float_in_int_to_real
   6         ((convert_real_to_float_in_int 3936146074321813505.0) bitand 0xffffffff )
   7
   8 convert_real_to_float_in_int :: !Real -> Int;
   9 convert_real_to_float_in_int r = code {
  10 |       cvtsd2ss %xmm0,%xmm0
  11         instruction 242
  12         instruction 15
  13         instruction 90
  14         instruction 192
  15 };
  16
  17 convert_float_in_int_to_real :: !Int -> Real;
  18 convert_float_in_int_to_real r = code {
  19 .d 0 1 r
  20         jmp     _convert_float_in_int_to_real_
  21 .o 0 1 r
  22         :_convert_float_in_int_to_real_
  23 |       cvtss2ds %xmm0,%xmm0
  24         instruction 243
  25         instruction 15
  26         instruction 90
  27         instruction 192
  28 };