1
Fork 0
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:
Paolo Bonzini 2010-07-28 23:27:07 +02:00
parent 2ecf6a2c28
commit 128ad6a4e7
5 changed files with 16 additions and 9 deletions

View file

@ -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) \

View file

@ -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;