wingo pushed a commit to branch lightning
in repository guile.
commit 889d7fbf8b4d1bfcfca3424890a29f099f9b2998
Author: Paolo Bonzini <[email protected]>
Date: Mon Jan 14 08:30:50 2008 +0100
use CALLsr, not CALLLsr
2008-01-14 Paolo Bonzini <[email protected]>
* lightning/i386/core-64.h: Use CALLsr, not CALLLsr.
---
ChangeLog | 4 ++++
lightning/i386/core-64.h | 8 ++++----
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index cbe534d..d8af414 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-01-14 Paolo Bonzini <[email protected]>
+
+ * lightning/i386/core-64.h: Use CALLsr, not CALLLsr.
+
2008-01-13 Paolo Bonzini <[email protected]>
* lightning/i386/core-i386.h: Move jit_calli and jit_callr...
diff --git a/lightning/i386/core-64.h b/lightning/i386/core-64.h
index 917a212..314913d 100644
--- a/lightning/i386/core-64.h
+++ b/lightning/i386/core-64.h
@@ -120,8 +120,8 @@ struct jit_local_state {
#define jit_base_prolog() (PUSHQr(_EBX), PUSHQr(_R12), PUSHQr(_R13),
PUSHQr(_EBP), MOVQrr(_ESP, _EBP))
#define jit_prolog(n) (_jitl.nextarg_getfp = _jitl.nextarg_geti = 0,
_jitl.alloca_offset = 0, jit_base_prolog())
-#define jit_calli(sub) (MOVQir((long) (sub), JIT_REXTMP),
CALLLsr(JIT_REXTMP))
-#define jit_callr(reg) CALLLsr((reg))
+#define jit_calli(sub) (MOVQir((long) (sub), JIT_REXTMP),
CALLsr(JIT_REXTMP))
+#define jit_callr(reg) CALLsr((reg))
/* Stack isn't used for arguments: */
#define jit_prepare_i(ni) (_jitl.argssize = 0)
@@ -129,12 +129,12 @@ struct jit_local_state {
#define jit_pusharg_i(rs) (_jitl.argssize++, MOVQrr(rs, JIT_CALLTMPSTART
+ _jitl.argssize - 1))
#define jit_finish(sub) (MOVQir((long) (sub), JIT_REXTMP), \
jit_shift_args(), \
- CALLLsr(JIT_REXTMP), \
+ CALLsr(JIT_REXTMP), \
jit_restore_locals())
#define jit_reg_is_arg(reg) ((reg == _EDI) || (reg ==_ESI) || (reg ==
_EDX))
#define jit_finishr(reg) ((jit_reg_is_arg((reg)) ? MOVQrr(reg,
JIT_REXTMP) : (void)0), \
jit_shift_args(), \
- CALLLsr(jit_reg_is_arg((reg)) ? JIT_REXTMP :
(reg)), \
+ CALLsr(jit_reg_is_arg((reg)) ? JIT_REXTMP :
(reg)), \
jit_restore_locals())
/* R12 and R13 are callee-save, instead of EDI and ESI. Can be improved. */
