New bug

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index 34c769db9a118740cbf9090a0624b277fe2a3ce4..e43b4025f53781e834f456661b273db2257b50c9 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -29,6 +29,7 @@
 - if two tasks write to a unix stream, the buffer can overflow\r
 - font problem: http://iarc1.ece.utexas.edu/~erg/font-bug.JPG\r
 - implement 3.3 floor  4.7 ceiling  4.5 truncate\r
+- make 3.4 bits>double an error\r
 \r
 ALL TESTS BELOW FAIL ON x86 linux 32bit\r
 - float not commutative bug\r
@@ -79,3 +80,60 @@ Compile fails:
     0.2875868408644093 + sin >bignum cos >float sin ;\r
 \r
 \r
+x86 fixnum problem?\r
+100 [ test-integer>x ] times\r
+\r
+IN: compiler-test : math-dummy -63545870 ceiling ;\r
+Compiling math-dummy\r
+-63545870 3562994\r
+\r
+IN: compiler-test : math-dummy -172512992 double>bits ;\r
+Compiling math-dummy\r
+4800873998879566904 4780613886529085440\r
+\r
+IN: compiler-test : math-dummy 268435455 float>bits ;\r
+Compiling math-dummy\r
+1102377402 4\r
+\r
+IN: compiler-test : math-dummy 268435455 neg ;\r
+Compiling math-dummy\r
+-268435455 1\r
+\r
+IN: compiler-test : math-dummy 48191798 neg ;\r
+Compiling math-dummy\r
+-48191798 18917066\r
+\r
+IN: compiler-test : math-dummy -176408007 next-power-of-2 ;\r
+Compiling math-dummy\r
+1 33554432\r
+\r
+IN: compiler-test : math-dummy -63194602 bits>float ;\r
+Compiling math-dummy\r
+80.08636474609375 110.8125\r
+\r
+IN: compiler-test : math-dummy\r
+    116813922808736214071768419862654566798144280646827276619588644136147298073359475589294679233724596355072\r
+    bits>double ;\r
+Compiling math-dummy\r
+5.083189076777759e-270 5.097526873523571e-270\r
+\r
+IN: compiler-test : math-dummy -43922848 1- ;\r
+Compiling math-dummy\r
+-43922849 23186015\r
+\r
+IN: compiler-test : math-dummy -186662979 quadrant ;\r
+Compiling math-dummy\r
+1 0\r
+\r
+IN: compiler-test : math-dummy -51219578 floor ;\r
+Compiling math-dummy\r
+-51219578 15889286\r
+\r
+IN: compiler-test : math-dummy -56213080 numerator ;\r
+Compiling math-dummy\r
+-56213080 10895784\r
+\r
+IN: compiler-test : math-dummy -268435456 truncate ;\r
+Compiling math-dummy\r
+-268435456 0\r
+\r