mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Finish Itanium port, correcting remaining failing test cases.

Browse source 
* check/varargs.tst: Correct misplaced .align directive
	that was causing the double buffer to not be aligned at
	8 bytes.
	* lib/jit_ia64-cpu.c:
	  Properly implement abi for excess arguments passed on
	stack.
	  Simplify load/store with immediate displacement argument
	with zero value.
	  Simplify some calls to "subi" changing to "addi" with
	a negative argument.
	  Remove some #if 0'ed code, that could be useful in
	special conditions, but the most useful one would be
	to "optimize" "static" jit functions, but for the sake
	of simplicity, jit functions are implemented in a way
	that can be passed back to C code as C function pointers.
	  Add an attribute to prototypes of several unused functions.
	These functions are defined for the sake of implementing all
	Itanium documented instructions, but a significant amount of
	them is not used by lightning.
	* lib/jit_ia64-fpu.c: Simplify load/store with zero immediate
	displacement and add unused attribute for functions not used
	by lightning, but required to provide macros implementing all
	Itanium documented instructions.
	* lib/jit_ia64.c: Update for the properly implemented abi
	for stack arguments.
	* lib/lightning.c: Mark an unused function as such.
This commit is contained in:
pcpa 2013-04-27 22:31:29 -03:00
parent cee4ccb7d4
commit 6ef03b0e04
6 changed files with 316 additions and 236 deletions
Download patch file Download diff file Expand all files Collapse all files

29
ChangeLog
View file

@ -1,3 +1,32 @@
2013-04-27 Paulo Andrade <pcpa@gnu.org>
* check/varargs.tst: Correct misplaced .align directive
that was causing the double buffer to not be aligned at
8 bytes.
* lib/jit_ia64-cpu.c:
Properly implement abi for excess arguments passed on
stack.
Simplify load/store with immediate displacement argument
with zero value.
Simplify some calls to "subi" changing to "addi" with
a negative argument.
Remove some #if 0'ed code, that could be useful in
special conditions, but the most useful one would be
to "optimize" "static" jit functions, but for the sake
of simplicity, jit functions are implemented in a way
that can be passed back to C code as C function pointers.
Add an attribute to prototypes of several unused functions.
These functions are defined for the sake of implementing all
Itanium documented instructions, but a significant amount of
them is not used by lightning.
* lib/jit_ia64-fpu.c: Simplify load/store with zero immediate
displacement and add unused attribute for functions not used
by lightning, but required to provide macros implementing all
Itanium documented instructions.
* lib/jit_ia64.c: Update for the properly implemented abi
for stack arguments.
* lib/lightning.c: Mark an unused function as such.
2013-04-27 Paulo Andrade <pcpa@gnu.org>
lib/jit_ia64-cpu.c:

4
check/varargs.tst
View file

@ -8,15 +8,15 @@ dfmt:
.c "%.1f %.1f %.1f %.1f %.1f %.1f %.1f %.1f %.1f %.1f\n"
lfmt:
.c "%lf %lf %lf %lf %lf %lf %lf %lf %lf %lf\n"
dchk:
.align 8
dchk:
.d 9.0 8.0 7.0 6.0 5.0 4.0 3.0 2.0 1.0 0.0
idfmt:
.c "%d %.1f %d %.1f %d %.1f %d %.1f %d %.1f %d %.1f %d %.1f %d %.1f %d %.1f %d %.1f\n"
ldfmt:
.c "%d %lf %d %lf %d %lf %d %lf %d %lf %d %lf %d %lf %d %lf %d %lf %d %lf\n"
.align 8
buff:
.align 4
.size 256
.code

417
lib/jit_ia64-cpu.c
View file

@ -17,6 +17,7 @@
#if PROTO
#define stack_framesize 96
#define params_offset 16
#define INST_NONE 0 /* should never be generated */
#define INST_STOP 1 /* or'ed if stop is required */
#define INST_A 2 /* M- or I- unit */
@ -221,7 +222,6 @@ extern void __divdi3(long,long);
extern void __udivdi3(unsigned long,unsigned long);
extern void __moddi3(long,long);
extern void __umoddi3(unsigned long,unsigned long);
#define out(n,tm,s0,s1,s2) _out(_jit,n,tm,s0,s1,s2)
static void _out(jit_state_t*,int,int,jit_word_t,jit_word_t,jit_word_t);
#define stop() _stop(_jit)
@ -252,7 +252,8 @@ static void _A6(jit_state_t*,jit_word_t,
#define A7(o,x2,ta,p2,r3,c,p1) _A7(_jit,0,o,x2,ta,p2,r3,c,p1)
static void _A7(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define A8(o,x2,ta,p2,r3,im,c,p1) _A8(_jit,0,o,x2,ta,p2,r3,im,c,p1)
static void _A8(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,
@ -260,21 +261,25 @@ static void _A8(jit_state_t*,jit_word_t,
#define A9(za,zb,x4,x2,r3,r2,r1) _A9(_jit,0,za,zb,x4,x2,r3,r2,r1)
static void _A9(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define A10(x4,ct,r3,r2,r1) A9(0,1,x4,ct,r3,r2,r1)
#define I1(ct,x2,r3,r2,r1) _I1(_jit,0,ct,x2,r3,r2,r1)
static void _I1(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I2(za,x2a,zb,x2c,x2b,r3,r2,r1) _I2(_jit,0,za,x2a,zb,x2c,x2b,r3,r2,r1)
static void _I2(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I3(mbt,r2,r1) _I3(_jit,0,mbt,r2,r1)
static void _I3(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
#define I4(mht,r2,r1) _I4(_jit,0,mht,r2,r1)
static void _I4(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I5(za,zb,x2b,r3,r2,r1) _I5(_jit,0,za,zb,x2b,r3,r2,r1)
static void _I5(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
@ -282,51 +287,65 @@ static void _I5(jit_state_t*,jit_word_t,
#define I6(za,zb,x2b,r3,ct,r1) _I6(_jit,0,za,zb,x2b,r3,ct,r1)
static void _I6(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I7(za,zb,r3,r2,r1) _I7(_jit,0,za,zb,r3,r2,r1)
static void _I7(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define I8(za,zb,ct,r2,r1) _I8(_jit,0,za,zb,ct,r2,r1)
static void _I8(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I9(x2c,r3,r1) _I9(_jit,0,x2c,r3,r1)
static void _I9(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I10(ct,r3,r2,r1) _I10(_jit,0,ct,r3,r2,r1)
static void _I10(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I11(len,r3,pos,y,r1) _I11(_jit,0,len,r3,pos,y,r1)
static void _I11(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I12(len,pos,r2,r1) _I12(_jit,0,len,pos,r2,r1)
static void _I12(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I13(len,pos,im,r1) _I13(_jit,0,len,pos,im,r1)
static void _I13(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I14(s,len,r3,pos,r1) _I14(_jit,0,s,len,r3,pos,r1)
static void _I14(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I15(pos,len,r3,r2,r1) _I15(_jit,0,pos,len,r3,r2,r1)
static void _I15(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I16(tb,ta,p2,r3,pos,c,p1) _I16(_jit,0,tb,ta,p2,r3,pos,c,p1)
static void _I16(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I17(tb,ta,p2,r3,c,p1) _I17(_jit,0,tb,ta,p2,r3,c,p1)
static void _I17(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define I18(im,y) _I18(_jit,0,im,y)
static void _I18(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I19(im) _I19(_jit,0,im)
static void _I19(jit_state_t*,jit_word_t,
jit_word_t);
jit_word_t)
maybe_unused;
#define I20(r2,im) _I20(_jit,0,r2,im)
static void _I20(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I21(im,ih,x,wh,r2,b1) _I21(_jit,0,im,ih,x,wh,r2,b1)
static void _I21(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,
@ -336,41 +355,49 @@ static void _I22(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
#define I23(r2,im) _I23(_jit,0,r2,im)
static void _I23(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I24(im) _I24(_jit,0,im)
static void _I24(jit_state_t*,jit_word_t,
jit_word_t);
jit_word_t)
maybe_unused;
#define I25(x6,r1) _I25(_jit,0,x6,r1)
static void _I25(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I26(ar,r2) _I26(_jit,0,ar,r2)
static void _I26(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
#define I27(ar,im) _I27(_jit,0,ar,im)
static void _I27(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I28(ar,r1) _I28(_jit,0,ar,r1)
static void _I28(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define I29(x6,r3,r1) _I29(_jit,0,x6,r3,r1)
static void _I29(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
#define I30(tb,ta,p2,im,c,p1) _I30(_jit,0,ta,tb,p2,im,c,p1)
static void _I30(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M1(x6,ht,x,r3,r1) _M1(_jit,0,x6,ht,x,r3,r1)
static void _M1(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define M2(x6,ht,r3,r2,r1) _M2(_jit,0,x6,ht,r3,r2,r1)
static void _M2(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M3(x6,ht,r3,im,r1) _M3(_jit,0,x6,ht,r3,im,r1)
static void _M3(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define M5(x6,ht,r3,r2,im) _M5(_jit,0,x6,ht,r3,r2,im)
static void _M5(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M6(x6,ht,x,r3,r2) _M6(_jit,0,x6,ht,x,r3,r2)
static void _M6(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
@ -379,99 +406,127 @@ static void _M13(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define M14(x6,ht,r3,r2) _M14(_jit,0,x6,ht,r3,r2)
static void _M14(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M15(x6,ht,r3,im) _M15(_jit,0,x6,ht,r3,im)
static void _M15(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M16(x6,ht,r3,r2,r1) _M16(_jit,0,x6,ht,r3,r2,r1)
static void _M16(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M17(x6,ht,r3,im,r1) _M17(_jit,0,x6,ht,r3,im,r1)
static void _M17(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M20(r2,im) M20x(0x1,r2,im)
#define M20x(x3,r2,im) _M20x(_jit,0,x3,r2,im)
static void _M20x(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M22(x3,im,r1) M22x(x3,im,r1)
#define M22x(x3,im,r1) _M22x(_jit,0,x3,im,r1)
static void _M22x(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M24(x2,x4) _M24(_jit,0,x2,x4)
#define M25(x4) M24(0,x4)
static void _M24(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M26(r1) M26x(2,r1)
#define M26x(x4,r1) _M26x(_jit,0,x4,r1)
static void _M26x(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M28(x,r3) _M28(_jit,0,x,r3)
static void _M28(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M29(ar,r2) _M29(_jit,0,ar,r2)
static void _M29(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M30(ar,im) _M30(_jit,0,ar,im)
static void _M30(jit_state_t*,jit_word_t,jit_word_t,jit_word_t);
static void _M30(jit_state_t*,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M31(ar,r1) _M31(_jit,0,ar,r1)
static void _M31(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M32(cr,r2) _M32(_jit,0,cr,r2)
static void _M32(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M33(cr,r1) _M33(_jit,0,cr,r1)
static void _M33(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M34(sor,sol,sof,r1) _M34(_jit,0,sor,sol,sof,r1)
static void _M34(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define M35(x6,r2) _M35(_jit,0,x6,r2)
static void _M35(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M36(x6,r1) _M36(_jit,0,x6,r1)
static void _M36(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M37(im) _M37(_jit,0,im)
static void _M37(jit_state_t*,jit_word_t,
jit_word_t);
jit_word_t)
maybe_unused;
#define M38(x6,r3,r2,r1) _M38(_jit,0,x6,r3,r2,r1)
static void _M38(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M39(x6,r3,im,r1) _M39(_jit,0,x6,r3,im,r1)
static void _M39(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M40(x6,r3,im) _M40(_jit,0,x6,r3,im)
static void _M40(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M41(x6,r2) _M41(_jit,0,x6,r2)
static void _M41(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M42(x6,r3,r2) _M42(_jit,0,x6,r3,r2)
static void _M42(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M43(x6,r3,r1) _M43(_jit,0,x6,r3,r1)
static void _M43(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M44(x4,im) _M44(_jit,0,x4,im)
static void _M44(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define M45(x6,r3,r2) _M45(_jit,0,x6,r3,r2)
static void _M45(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M46(x6,r3,r1) _M46(_jit,0,x6,r3,r1)
#define M47(x6,r3) M46(x6,r3,0)
static void _M46(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M48(y,im) _M48(_jit,0,y,im)
static void _M48(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
#define B1(d,wh,im,p,tp) _B1(_jit,0,d,wh,im,p,tp)
#define B2(d,wh,im,p,tp) B1(d,wh,im,p,tp)
static void _B1(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define B3(d,wh,im,p,b) _B3(_jit,0,d,wh,im,p,b)
static void _B3(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define B4(d,wh,x6,b,p,tp) _B4(_jit,0,d,wh,x6,b,p,tp)
static void _B4(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,
@ -481,19 +536,24 @@ static void _B5(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define B6(ih,im,tag,wh) _B6(_jit,0,ih,im,tag,wh)
static void _B6(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define B7(ih,x6,b2,tag,wh) _B7(_jit,0,ih,x6,b2,tag,wh)
static void _B7(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define B8(x6) _B8(_jit,0,x6)
static void _B8(jit_state_t*,jit_word_t,
jit_word_t);
jit_word_t)
maybe_unused;
#define B9(op,x6,im) _B9(_jit,0,op,x6,im)
static void _B9(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define X1(im) _X1(_jit,0,im)
static void _X1(jit_state_t*,jit_word_t,
jit_word_t);
jit_word_t)
maybe_unused;
#define X2(r1,im) _X2(_jit,0,r1,im)
static void _X2(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
@ -505,7 +565,8 @@ static void _X3x(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
#define X5(y,im) _X5(_jit,0,y,im)
static void _X5(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)
maybe_unused;
/* add */
#define ADD(r1,r2,r3) A1(0,0,r3,r2,r1)
@ -3493,13 +3554,13 @@ _subci(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
jit_carry = jit_get_reg(jit_class_gpr);
if (r0 == r1) {
reg = jit_get_reg(jit_class_gpr);
subi(rn(reg), r1, i0);
addi(rn(reg), r1, -i0);
ltr_u(rn(jit_carry), r1, rn(reg));
movr(r0, rn(reg));
jit_unget_reg(reg);
}
else {
subi(r0, r1, i0);
addi(r0, r1, -i0);
ltr_u(rn(jit_carry), r1, r0);
}
}
@ -4153,10 +4214,14 @@ static void
_ldxi_c(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_c(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_c(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_c(r0, r1);
}
static void
@ -4173,10 +4238,14 @@ static void
_ldxi_uc(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_uc(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_uc(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_uc(r0, r1);
}
static void
@ -4193,10 +4262,14 @@ static void
_ldxi_s(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_s(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_s(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_s(r0, r1);
}
static void
@ -4213,10 +4286,14 @@ static void
_ldxi_us(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_us(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_us(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_us(r0, r1);
}
static void
@ -4233,10 +4310,14 @@ static void
_ldxi_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_i(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_i(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_i(r0, r1);
}
static void
@ -4253,10 +4334,14 @@ static void
_ldxi_ui(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_ui(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_ui(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_ui(r0, r1);
}
static void
@ -4273,10 +4358,14 @@ static void
_ldxi_l(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_l(r0, r1, rn(reg));
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
ldxr_l(r0, r1, rn(reg));
jit_unget_reg(reg);
}
else
ldr_l(r0, r1);
}
static void
@ -4333,10 +4422,14 @@ static void
_stxi_c(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_c(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_c(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_c(r0, r1);
}
static void
@ -4353,10 +4446,14 @@ static void
_stxi_s(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_s(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_s(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_s(r0, r1);
}
static void
@ -4373,10 +4470,14 @@ static void
_stxi_i(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_i(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_i(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_i(r0, r1);
}
static void
@ -4393,10 +4494,14 @@ static void
_stxi_l(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_l(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_l(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_l(r0, r1);
}
static jit_word_t
@ -4930,28 +5035,16 @@ _callr(jit_state_t *_jit, jit_int32_t r0)
static void
_calli(jit_state_t *_jit, jit_word_t i0)
{
#if 1
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
movi(rn(reg), i0);
callr(rn(reg));
jit_unget_reg(reg);
#else
jit_word_t d;
sync();
i0 = *(jit_word_t **)i0;
d = ((jit_word_t)i0 - _jit->pc.w) >> 4;
if (d < -16777216 && d > 16777215)
BRI_CALL(BR_6, d);
else
BRL_CALL(BR_6, d);
#endif
}
static jit_word_t
_calli_p(jit_state_t *_jit, jit_word_t i0)
{
#if 1
jit_word_t w;
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
@ -4959,15 +5052,6 @@ _calli_p(jit_state_t *_jit, jit_word_t i0)
callr(rn(reg));
jit_unget_reg(reg);
return (w);
#else
jit_word_t d, w;
sync();
i0 = *(jit_word_t *)i0;
w = _jit->pc.w;
d = ((jit_word_t)i0 - w) >> 4;
BRL_CALL(BR_6, d);
return (w);
#endif
}
static void
@ -4994,7 +5078,7 @@ _prolog(jit_state_t *_jit, jit_node_t *node)
}
rout = reg - _OUT0;
/* Do not know if will call div/mod functions (sqrt) */
/* Do not know if will call div/mod functions (sqrt* needs one) */
if (rout < 2)
rout = 2;
@ -5005,10 +5089,11 @@ _prolog(jit_state_t *_jit, jit_node_t *node)
MOV(_jitc->breg + 3, GR_1);
/* lightning specific, use r4 as frame pointer */
subi(GR_4, GR_12, stack_framesize);
addi(GR_4, GR_12, -(stack_framesize + params_offset));
/* adjust stack pointer */
subi(GR_12, GR_12, stack_framesize + _jitc->function->stack);
addi(GR_12, GR_12, -(stack_framesize +
(params_offset << 1) + _jitc->function->stack));
if (jit_regset_tstbit(&_jitc->function->regset, JIT_F0))
STF_SPILL(GR_4, rn(JIT_F0));
@ -5065,7 +5150,7 @@ _epilog(jit_state_t *_jit, jit_node_t *node)
MOV_br_rn(BR_0, _jitc->breg);
MOV(GR_12, _jitc->breg + 2);
/* Restore r4 with known offset from saved sp */
addi(GR_4, GR_12, stack_framesize);
addi(GR_4, GR_12, stack_framesize + params_offset);
BR_RET(BR_0);
flush();
}
@ -5087,6 +5172,9 @@ _patch_at(jit_state_t *_jit, jit_code_t code,
get_tm(tm); get_s0(s0); get_s1(s1); get_s2(s2);
switch (code) {
case jit_code_movi:
/* Handle jit functions as C function, so that jit function
* pointers can be passed to C code, and jit code does not
* need to try to differentiate them. */
case jit_code_calli:
i1 = (label >> 63) & 0x1L;
i41 = (label >> 22) & 0x1ffffffffffL;
@ -5125,69 +5213,7 @@ _patch_at(jit_state_t *_jit, jit_code_t code,
s2 &= (0xcL<<37)|(0x7L<<33)|(1L<<12);
s2 |= (i1<<36)|(i20<<13);
break;
#if 0
case jit_code_calli:
label = *(jit_word_t *)label;
ic = (label - instr) >> 4;
i1 = (ic >> 61) & 0x1L;
i41 = (ic >> 22) & 0x1ffffffffffL;
i20 = ic & 0xfffffL;
assert((tm & ~1) == TM_M_L_X_ &&
(s2 & 0xfL<<37) == (0xdL<<37) &&
s0 == nop_m);
s1 = i41;
s2 &= (0xdL<<37)|(0x7L<<33)|(1L<<12)|(0x3L<<6);
s2 |= (i1<<36)|(i20<<13);
break;
#endif
default:
#if 0
/* expected sequences are:
* A6, B1 (cmp_xxx, br_cond, ???)
* A8, B1 (cmpi_xxx, br_cond, ???)
* A4, B1 (mov, br_cond, ???)
* M48, F4, B1 (nop_m, fcmp_xxx, br_cond)
* B1 (br, ???, ???)
*/
ic = (label - instr) >> 4;
switch (s0 >> 37) {
case 0x8: /* A4, B1 */
/* validate s0 is register mov */
assert((s0 & 0x3ffe0007e000L) == 0x800000000L);
/* validate s1 is br.cond */
check_s1:
assert((s1 >> 37) == 4 &&
(s1 & (7 << 6)) == 0 &&
(s1 & 0x1f) != 0);
s1 &= (4L<<37)|(7L<<33)|(1L<<12)|0x1f;
s1 |= (((ic>>20)&1L)<<36)|((ic&0xfffffL)<<13);
break;
case 0xc: case 0xd: case 0xe: /* A6, B1 or A8, B1 */
/* validate s0 is cmp.lt, cmp.ltu or cmq.eq */
assert((s0 & ((1L<<33)|(1<<12))) == 0);
goto check_s1;
case 0x4: /* B1 */
/* validate s0 is br */
assert((s0 >> 37) == 4 &&
(s0 & (7 << 6)) == 0 &&
(s0 & 0x1f) == 0);
s0 &= (4L<<37)|(7L<<33)|(1L<<12)|0x1f;
s0 |= (((ic>>20)&1L)<<36)|((ic&0xfffffL)<<13);
break;
case 0: /* M48, F4, B1 */
/* validate s1 is fcmp.{e,lt,le,unord} */
assert((s1 >> 37) == 4 && !(s1 & (1<<12)));
/* validate s2 is br.cond */
assert((s2 >> 37) == 4 &&
(s2 & (7 << 6)) == 0 &&
(s2 & 0x1f) != 0);
s2 &= (4L<<37)|(7L<<33)|(1L<<12)|0x1f;
s2 |= (((ic>>20)&1L)<<36)|((ic&0xfffffL)<<13);
break;
default:
abort();
}
#else
/* Only B1 in slot 0 expected due to need to either
* a stop to update predicates, or a sync before
* unconditional short branch */
@ -5195,7 +5221,6 @@ _patch_at(jit_state_t *_jit, jit_code_t code,
assert((s0 >> 37) == 4 && (s0 & (7 << 6)) == 0);
s0 &= (4L<<37)|(7L<<33)|(1L<<12)|0x1f;
s0 |= (((ic>>20)&1L)<<36)|((ic&0xfffffL)<<13);
#endif
break;
}
to_tm(tm); to_s0(s0); to_s1(s1); to_s2(s2);

77
lib/jit_ia64-fpu.c
View file

@ -44,25 +44,29 @@
/* libm */
extern float sqrtf(float);
extern double sqrt(double);
#define M7(x6,ht,r3,r2,f1) _M7(_jit,0,x6,ht,r3,r2,f1)
static void _M7(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M8(x6,ht,r3,im,f1) _M8(_jit,0,x6,ht,r3,im,f1)
static void _M8(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M9(x6,ht,r3,f1) _M9(_jit,0,x6,ht,r3,f1)
static void _M9(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define M10(x6,ht,r3,r2,im) _M10(_jit,0,x6,ht,r3,r2,im)
static void _M10(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M11(x6,ht,r3,f2,f1) _M11(_jit,0,x6,ht,r3,f2,f1)
static void _M11(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M12(x6,ht,r3,f2,f1) _M12(_jit,0,x6,ht,r3,f2,f1)
static void _M12(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define M18(x6,r2,f1) _M18(_jit,0,x6,r2,f1)
static void _M18(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t);
@ -84,7 +88,8 @@ static void F4_(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
#define F5(p2,fc,f2,ta,p1) F5_(_jit,0,p2,fc,f2,ta,p1)
static void F5_(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define F6x(op,q,sf,p2,f3,f2,f1) F6x_(_jit,0,op,q,sf,p2,f3,f2,f1)
#define F6(op,sf,p2,f3,f2,f1) F6x(op,0,sf,p2,f3,f2,f1)
#define F7(op,sf,p2,f3,f1) F6x(op,1,sf,p2,f3,0,f1)
@ -101,15 +106,17 @@ static void F8_(jit_state_t*,jit_word_t,
#define F12(sf,x6,omsk,amsk) F12_(_jit,0,sf,x6,omsk,amsk)
#define F13(sf,x6) F12(sf,x6,0,0)
static void F12_(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define F14x(sf,x,x6,im) F14x_(_jit,0,sf,x,x6,im)
#define F14(sf,im) F14x(sf,0,8,im)
#define F15(im) F14x(0,0,0,im)
static void F14x_(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t,jit_word_t,jit_word_t);
jit_word_t,jit_word_t,jit_word_t,jit_word_t)
maybe_unused;
#define F16(y,im) F16_(_jit,0,y,im)
static void F16_(jit_state_t*,jit_word_t,
jit_word_t,jit_word_t);
jit_word_t,jit_word_t)maybe_unused;
/* break */
#define BREAK_F(im) F15(im)
@ -424,7 +431,6 @@ static void F16_(jit_state_t*,jit_word_t,
#define movr_d(r0,r1) MOVF(r0,r1)
#define movi_f(r0,i0) ldi_f(r0,(jit_word_t)i0)
#define movi_d(r0,i0) ldi_d(r0,(jit_word_t)i0)
#define movr_f_w(r0,r1) _movr_f_w(_jit,r0,r1)
static void _movr_f_w(jit_state_t*,jit_int32_t,jit_int32_t);
#define movr_d_w(r0,r1) _movr_d_w(_jit,r0,r1)
@ -433,7 +439,6 @@ static void _movr_d_w(jit_state_t*,jit_int32_t,jit_int32_t);
static void _movi_f_w(jit_state_t*,jit_int32_t,jit_word_t);
#define movi_d_w(r0,i0) _movi_d_w(_jit,r0,i0)
static void _movi_d_w(jit_state_t*,jit_int32_t,jit_word_t);
#define absr_f(r0,r1) absr_d(r0,r1)
#define absr_d(r0,r1) FABS(r0,r1)
#define negr_f(r0,r1) negr_d(r0,r1)
@ -1312,10 +1317,14 @@ static void
_ldxi_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r1, i0);
ldr_f(r0, rn(reg));
jit_unget_reg(reg);
if (r0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r1, i0);
ldr_f(r0, rn(reg));
jit_unget_reg(reg);
}
else
ldr_f(r0, r1);
}
static void
@ -1342,10 +1351,14 @@ static void
_ldxi_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r1, i0);
ldr_d(r0, rn(reg));
jit_unget_reg(reg);
if (r0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r1, i0);
ldr_d(r0, rn(reg));
jit_unget_reg(reg);
}
else
ldr_d(r0, r1);
}
static void
@ -1372,10 +1385,14 @@ static void
_stxi_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_f(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_f(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_f(r0, r1);
}
static void
@ -1402,10 +1419,14 @@ static void
_stxi_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
{
jit_int32_t reg;
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_d(rn(reg), r1);
jit_unget_reg(reg);
if (i0) {
reg = jit_get_reg(jit_class_gpr);
addi(rn(reg), r0, i0);
str_d(rn(reg), r1);
jit_unget_reg(reg);
}
else
str_d(r0, r1);
}
static void

23
lib/jit_ia64.c
View file

@ -241,10 +241,12 @@ _jit_prolog(jit_state_t *_jit)
_jitc->functions.length += 16;
}
_jitc->function = _jitc->functions.ptr + _jitc->functions.offset++;
_jitc->function->self.size = stack_framesize;
/* params_offset << 1, once for ours arguments, once for arguments
* to any called function; required because offsets are computed
* as JIT_FP displacement */
_jitc->function->self.size = stack_framesize + (params_offset << 1);
_jitc->function->self.argi = _jitc->function->self.argf =
_jitc->function->self.aoff = _jitc->function->self.alen =
_jitc->function->self.aoff = 0;
_jitc->function->self.aoff = _jitc->function->self.alen = 0;
_jitc->function->self.call = jit_call_default;
jit_alloc((jit_pointer_t *)&_jitc->function->regoff,
_jitc->reglen * sizeof(jit_int32_t));
@ -480,7 +482,7 @@ _jit_pushargr(jit_state_t *_jit, jit_int32_t u)
++_jitc->function->call.argi;
}
else {
jit_stxi(_jitc->function->call.size, JIT_SP, u);
jit_stxi(_jitc->function->call.size + params_offset, JIT_SP, u);
_jitc->function->call.size += sizeof(jit_word_t);
}
}
@ -497,7 +499,7 @@ _jit_pushargi(jit_state_t *_jit, jit_word_t u)
else {
regno = jit_get_reg(jit_class_gpr);
jit_movi(regno, u);
jit_stxi(_jitc->function->call.size, JIT_SP, regno);
jit_stxi(_jitc->function->call.size + params_offset, JIT_SP, regno);
_jitc->function->call.size += sizeof(jit_word_t);
jit_unget_reg(regno);
}
@ -515,7 +517,7 @@ _jit_pushargr_f(jit_state_t *_jit, jit_int32_t u)
++_jitc->function->call.argi;
}
else {
jit_stxr_f(_jitc->function->call.size, JIT_SP, u);
jit_stxr_f(_jitc->function->call.size + params_offset, JIT_SP, u);
_jitc->function->call.size += sizeof(jit_word_t);
}
}
@ -535,7 +537,7 @@ _jit_pushargi_f(jit_state_t *_jit, jit_float32_t u)
else {
regno = jit_get_reg(jit_class_fpr);
jit_movi_f(regno, u);
jit_stxi_f(_jitc->function->call.size, JIT_SP, regno);
jit_stxi_f(_jitc->function->call.size + params_offset, JIT_SP, regno);
_jitc->function->call.size += sizeof(jit_word_t);
jit_unget_reg(regno);
}
@ -553,7 +555,7 @@ _jit_pushargr_d(jit_state_t *_jit, jit_int32_t u)
++_jitc->function->call.argi;
}
else {
jit_stxr_d(_jitc->function->call.size, JIT_SP, u);
jit_stxr_d(_jitc->function->call.size + params_offset, JIT_SP, u);
_jitc->function->call.size += sizeof(jit_word_t);
}
}
@ -573,7 +575,7 @@ _jit_pushargi_d(jit_state_t *_jit, jit_float64_t u)
else {
regno = jit_get_reg(jit_class_fpr);
jit_movi_d(regno, u);
jit_stxi_d(_jitc->function->call.size, JIT_SP, regno);
jit_stxi_d(_jitc->function->call.size + params_offset, JIT_SP, regno);
_jitc->function->call.size += sizeof(jit_word_t);
jit_unget_reg(regno);
}
@ -605,6 +607,9 @@ jit_node_t *
_jit_finishi(jit_state_t *_jit, jit_pointer_t i0)
{
jit_node_t *node;
assert(_jitc->function);
if (_jitc->function->self.alen < _jitc->function->call.size)
_jitc->function->self.alen = _jitc->function->call.size;
node = jit_calli(i0);
node->v.w = _jitc->function->call.argi;
node->w.w = _jitc->function->call.argf;

2
lib/lightning.c
View file

@ -63,7 +63,7 @@ static void _bmp_clear(jit_state_t*);
static void _bmp_set(jit_state_t*, jit_word_t);
#define bmp_clr(bit) _bmp_clr(_jit, bit)
static void _bmp_clr(jit_state_t*, jit_word_t);
static void _bmp_clr(jit_state_t*, jit_word_t) maybe_unused;
#define bmp_tst(bit) _bmp_tst(_jit, bit)
static jit_bool_t _bmp_tst(jit_state_t*, jit_word_t);