diff options
Diffstat (limited to 'amd64.e')
| -rw-r--r-- | amd64.e | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/amd64.e b/amd64.e index 31354e2..796e646 100644 --- a/amd64.e +++ b/amd64.e @@ -168,13 +168,13 @@ s" :cc-greater" keyword ~ (register -- 3-bit encoded value for register) : reg32 dup :eax = { drop 0 exit } if - dup :ecx = { drop 0 exit } if - dup :edx = { drop 0 exit } if - dup :ebx = { drop 0 exit } if - dup :esp = { drop 0 exit } if - dup :ebp = { drop 0 exit } if - dup :esi = { drop 0 exit } if - dup :edi = { drop 0 exit } if + dup :ecx = { drop 1 exit } if + dup :edx = { drop 2 exit } if + dup :ebx = { drop 3 exit } if + dup :esp = { drop 4 exit } if + dup :ebp = { drop 5 exit } if + dup :esi = { drop 6 exit } if + dup :edi = { drop 7 exit } if ." Parameter to reg32 is not a reg32." 1 sys-exit ; ~ (register -- 3-bit encoded value for register) |