testsssss

[clean-tests.git] / real_conv / test.icl

diff --git a/real_conv/test.icl b/real_conv/test.icl
new file mode 100644 (file)
index 0000000..7a1efe3
--- /dev/null
+++ b/real_conv/test.icl
@@ -0,0 +1,28 @@
+module test
+
+import StdInt
+
+Start = convert_float_in_int_to_real
+       ((convert_real_to_float_in_int 3936146074321813505.0) bitand 0xffffffff )
+
+convert_real_to_float_in_int :: !Real -> Int;
+convert_real_to_float_in_int r = code {
+|      cvtsd2ss %xmm0,%xmm0
+       instruction 242
+       instruction 15
+       instruction 90
+       instruction 192
+};
+
+convert_float_in_int_to_real :: !Int -> Real;
+convert_float_in_int_to_real r = code {
+.d 0 1 r
+       jmp     _convert_float_in_int_to_real_
+.o 0 1 r
+       :_convert_float_in_int_to_real_
+|      cvtss2ds %xmm0,%xmm0
+       instruction 243
+       instruction 15
+       instruction 90
+       instruction 192
+};