From b0944cb3f85915e2b5dc049f2e848cea9f9128f0 Mon Sep 17 00:00:00 2001
From: Slava <slava@emu.(none)>
Date: Thu, 17 Jan 2008 17:19:10 -0500
Subject: [PATCH] Another cpu.x86 fix
---
core/cpu/x86/architecture/architecture.factor | 2 ++
1 file changed, 2 insertions(+)
diff --git a/core/cpu/x86/architecture/architecture.factor b/core/cpu/x86/architecture/architecture.factor
index cf2f5ee594..876c631b81 100755
--- a/core/cpu/x86/architecture/architecture.factor
+++ b/core/cpu/x86/architecture/architecture.factor
@@ -100,12 +100,14 @@ M: x86-backend %call-dispatch ( word-table# -- )
[ 5 (%dispatch) CALL <label> dup JMP ] H{
{ +input+ { { f "n" } } }
{ +scratch+ { { f "offset" } } }
+ { +clobber+ { "n" } }
} with-template ;
M: x86-backend %jump-dispatch ( -- )
[ %epilogue-later 0 (%dispatch) JMP ] H{
{ +input+ { { f "n" } } }
{ +scratch+ { { f "offset" } } }
+ { +clobber+ { "n" } }
} with-template ;
M: x86-backend %dispatch-label ( word -- )