From fc6c9e2dfde7ebfb63de5fa89dfcc00514b4b772 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Tue, 30 Jun 2009 16:47:22 -0500 Subject: [PATCH] cpu.x86: don't clobber src in %dispatch --- basis/cpu/x86/32/32.factor | 4 ++-- basis/cpu/x86/64/64.factor | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor index b591b254f8..e908f52952 100755 --- a/basis/cpu/x86/32/32.factor +++ b/basis/cpu/x86/32/32.factor @@ -29,10 +29,10 @@ M: x86.32 temp-reg-2 EDX ; M:: x86.32 %dispatch ( src temp -- ) ! Load jump table base. - src HEX: ffffffff ADD + temp src HEX: ffffffff [+] LEA 0 rc-absolute-cell rel-here ! Go - src HEX: 7f [+] JMP + temp HEX: 7f [+] JMP ! Fix up the displacement above cell code-alignment [ 7 + building get dup pop* push ] diff --git a/basis/cpu/x86/64/64.factor b/basis/cpu/x86/64/64.factor index 3a7221c239..2c8fb3f18f 100644 --- a/basis/cpu/x86/64/64.factor +++ b/basis/cpu/x86/64/64.factor @@ -27,8 +27,8 @@ M:: x86.64 %dispatch ( src temp -- ) temp HEX: ffffffff MOV 0 rc-absolute-cell rel-here ! Add jump table base - src temp ADD - src HEX: 7f [+] JMP + temp src ADD + temp HEX: 7f [+] JMP ! Fix up the displacement above cell code-alignment [ 15 + building get dup pop* push ]