X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=real_conv%2Ftest.icl;fp=real_conv%2Ftest.icl;h=0000000000000000000000000000000000000000;hb=4b62b5d397d86147e393c05b3083af74a3a0c4af;hp=7a1efe3430cc66297efe382a2ab066de985d7286;hpb=e5305ee9d4290e1aa803a2e62a14f32e5cd29782;p=clean-tests.git

diff --git a/real_conv/test.icl b/real_conv/test.icl
deleted file mode 100644
index 7a1efe3..0000000
--- a/real_conv/test.icl
+++ /dev/null
@@ -1,28 +0,0 @@
-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
-};