mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-08 22:50:27 +02:00
fix i386 jit_replace and x86_64 jit_movi_f
2010-07-28 Paolo Bonzini <bonzini@gnu.org> * THANKS: Add Paulo Cesar Pereira de Andrade. * doc/porting.texi: Fix ordering of arguments in jit_stxi. * lightning/i386/core-32.h (jit_replace): Remove cmp argument. * lightning/i386/fp-64.h (jit_movi_f): Fix.
This commit is contained in:
parent
2ecf6a2c28
commit
128ad6a4e7
5 changed files with 16 additions and 9 deletions
|
@ -127,9 +127,9 @@ struct jit_local_state {
|
|||
#define jit_reg8(rs) ( ((rs) == _SI || (rs) == _DI) ? _AL : (_rN(rs) | _AL ))
|
||||
#define jit_reg16(rs) ( _rN(rs) | _AX )
|
||||
|
||||
#define jit_replace(s, rep, cmp, op) \
|
||||
(jit_pushr_i(rep), \
|
||||
MOVLir((s), (rep)), \
|
||||
#define jit_replace(s, rep, op) \
|
||||
(jit_pushr_i(rep), \
|
||||
MOVLir((s), (rep)), \
|
||||
op, jit_popr_i(rep))
|
||||
|
||||
#define jit_movbrm(rs, dd, db, di, ds) \
|
||||
|
|
|
@ -140,11 +140,10 @@
|
|||
|
||||
#define jit_movi_f(rd,immf) \
|
||||
((immf) == 0.0 ? XORSSrr ((rd), (rd)) : \
|
||||
(_O (0x50), \
|
||||
MOVLim (0x12345678L, 0, _ESP, 0, 0), \
|
||||
(PUSHQi (0x12345678L), \
|
||||
*((float *) (_jit.x.uc_pc - 4)) = (float) immf, \
|
||||
jit_ldr_f((rd), _ESP), \
|
||||
ADDLir(4, _ESP)))
|
||||
ADDQir(8, _ESP)))
|
||||
|
||||
union jit_double_imm {
|
||||
double d;
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue