steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge git://factorcode.org/git/factor

release
Slava Pestov 2007-10-16 00:11:59 -04:00
parent a039910d01 d744630f41
commit d8c6d2c317
1 changed files with 2 additions and 3 deletions
core/cpu/x86/assembler

5
core/cpu/x86/assembler/assembler.factor
View File

@ -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