Fix MOVSX opcode in x86 assembler

2007-10-16 00:53:13 -04:00 · 2007-10-16 00:53:13 -04:00 · d744630f41
parent 1306649c59
commit d744630f41
1 changed files with 2 additions and 3 deletions
--- a/core/cpu/x86/assembler/assembler.factor
+++ b/core/cpu/x86/assembler/assembler.factor
@ -255,9 +255,8 @@ UNION: operand register indirect ;
 : extended-opcode, ( opcode -- ) extended-opcode opcode, ;

 : opcode-or ( opcode mask -- opcode' )
-    over array?
-    [ 1 rot cut* first rot bitor add ]
-    [ bitor ] if ;
+    swap dup array?
+    [ 1 cut* first rot bitor add ] [ bitor ] if ;

 : 1-operand ( op reg rex.w opcode -- )
    #! The 'reg' is not really a register, but a value for the