mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 07:00:23 +02:00
Code Activity

fix i386 jit_replace and x86_64 jit_movi_f

Browse source 
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
Download patch file Download diff file Expand all files Collapse all files

7
ChangeLog
View file

@ -1,3 +1,10 @@
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.
2010-07-26 Paolo Bonzini <bonzini@gnu.org>
* lightning/i386/core-32.h (jit_replace): Move here (removed

1
THANKS
View file

@ -5,6 +5,7 @@ Eli Barzilay <eli@barzilay.org>
Ludovic Courtes <ludo@chbouib.org>
Matthew Flatt <mflatt@cs.utah.edu>
Laurent Michel <ldm@thorgal.homelinux.org>
Paulo Cesar Pereira de Andrade <pcpa@mandriva.com.br>
Mike Spivey <mike@comlab.ox.ac.uk>
Basile Starynkevitch <basile@starynkevitch.net>
Sam Steingold <sds@gnu.org>

6
doc/porting.texi
View file

@ -1036,11 +1036,11 @@ operations:
#define jit_rshr_i(d, r1, r2)
#define jit_rshr_ui(d, r1, r2)
#define jit_sqrt_d(rd,rs)
#define jit_stxi_c(rd, id, rs)
#define jit_stxi_c(id, rd, rs)
#define jit_stxi_d(id, rd, rs)
#define jit_stxi_f(id, rd, rs)
#define jit_stxi_i(rd, id, rs)
#define jit_stxi_s(rd, id, rs)
#define jit_stxi_i(id, rd, rs)
#define jit_stxi_s(id, rd, rs)
#define jit_stxr_c(d1, d2, rs)
#define jit_stxr_d(d1, d2, rs)
#define jit_stxr_f(d1, d2, rs)

6
lightning/i386/core-32.h
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) \

5
lightning/i386/fp-64.h
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;