Fix x86/allot typo

diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt
index e12529b40611b351036667da9216c67dab6c0210..0c0b64d2b02dcfed3187944688ebfe721dc9a1ee 100644 (file)
--- a/TODO.FACTOR.txt
+++ b/TODO.FACTOR.txt
@@ -1,10 +1,5 @@
 + allot refactoring:
 
-- docs: don't pass volatile aliens to callbacks
-- windows rollover broken again
-- intrinsic fixnum>float float>fixnum
-- amd64 structs-by-value bug
-- callback scheduling issue
 - sometimes fep when closing window
 - x86: load-allot-ptr doesn't have a stack effect? why?
 - mov 0x0(%esi),%ecx  why?
@@ -14,6 +9,8 @@
 
 + ui:
 
+- windows rollover broken again
+- docs: don't pass volatile aliens to callbacks
 - live search: timer delay would be nice
 - menu should stay up if mouse button released
 - roundoff is still not quite right with tracks
@@ -50,6 +47,9 @@
 
 + compiler/ffi:
 
+- callback scheduling issue
+- amd64 structs-by-value bug
+- intrinsic fixnum>float float>fixnum fixnum>bignum bignum>fixnum
 - we may be able to remove the dlsym primitive
 - [ [ dup call ] dup call ] infer hangs
 - stdcall callbacks

diff --git a/library/compiler/x86/allot.factor b/library/compiler/x86/allot.factor
index 17ee437c8a7754cad2ceb05562be6e69d09ff207..7a37b783b21a4fe901d32df7267602915b7a696f 100644 (file)
--- a/library/compiler/x86/allot.factor
+++ b/library/compiler/x86/allot.factor
@@ -33,7 +33,7 @@ USING: kernel assembler kernel-internals namespaces math ;
 : %allot-float ( loc vreg -- )
     #! Only called by pentium4 backend, uses SSE2 instruction
     float-tag 16 [
-        allot-tmp-reg 8 [+] rot v>operand MOVSD
+        allot-tmp-reg 8 [+] swap v>operand MOVSD
         allot-tmp-reg float-tag OR
         v>operand allot-tmp-reg MOV
     ] %allot ;