mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
8f020fe044
* include/lightning.h, lib/lightning.c: Implement the new jit_clear_state and jit_destroy_state calls. jit_clear_state releases all memory not required during jit_execution; that is, leaves only the mmap'ed data and code buffers allocated. jit_destroy_state releases the mmap'ed buffers as well as the jit_state_t object itself, that holds pointers to the code and data buffers, as well as annotation pointers (for disassembly or backtrace) in the data buffer. * lib/jit_note.c: Correct invalid vector offset access. * check/ccall.c, check/lightning.c, doc/ifib.c, doc/incr.c, doc/printf.c, doc/rfib.c, doc/rpn.c: Use the new jit_clear_state and jit_destroy_state calls, to demonstrate the new code to release all jit memory. * doc/body.texi: Add basic documentation and usage description of jit_clear_state and jit_destroy_state.
903 lines
21 KiB
C
903 lines
21 KiB
C
#include <lightning.h>
|
|
#include <stdio.h>
|
|
|
|
#define _w0 0
|
|
#define _w1 1
|
|
#define _w2 (_w1-2)
|
|
#define _w3 (_w2-3)
|
|
#define _w4 (_w3-4)
|
|
#define _w5 (_w4-5)
|
|
#define _w6 (_w5-6)
|
|
#define _w7 (_w6-7)
|
|
#define _w8 (_w7-8)
|
|
#define _w9 (_w8-9)
|
|
#define _w10 (_w9-10)
|
|
#define _w11 (_w10-11)
|
|
#define _w12 (_w11-12)
|
|
#define _w13 (_w12-13)
|
|
#define _w14 (_w13-14)
|
|
#define _w15 (_w14-15)
|
|
#define _c0 _w0
|
|
#define _c1 _w1
|
|
#define _c2 _w2
|
|
#define _c3 _w3
|
|
#define _c4 _w4
|
|
#define _c5 _w5
|
|
#define _c6 _w6
|
|
#define _c7 _w7
|
|
#define _c8 _w8
|
|
#define _c9 _w9
|
|
#define _c10 _w10
|
|
#define _c11 _w11
|
|
#define _c12 _w12
|
|
#define _c13 _w13
|
|
#define _c14 _w14
|
|
#define _c15 _w15
|
|
#define _uc0 (_w0&0xff)
|
|
#define _uc1 (_w1&0xff)
|
|
#define _uc2 (_w2&0xff)
|
|
#define _uc3 (_w3&0xff)
|
|
#define _uc4 (_w4&0xff)
|
|
#define _uc5 (_w5&0xff)
|
|
#define _uc6 (_w6&0xff)
|
|
#define _uc7 (_w7&0xff)
|
|
#define _uc8 (_w8&0xff)
|
|
#define _uc9 (_w9&0xff)
|
|
#define _uc10 (_w10&0xff)
|
|
#define _uc11 (_w11&0xff)
|
|
#define _uc12 (_w12&0xff)
|
|
#define _uc13 (_w13&0xff)
|
|
#define _uc14 (_w14&0xff)
|
|
#define _uc15 (_w15&0xff)
|
|
#define _s0 _w0
|
|
#define _s1 _w1
|
|
#define _s2 _w2
|
|
#define _s3 _w3
|
|
#define _s4 _w4
|
|
#define _s5 _w5
|
|
#define _s6 _w6
|
|
#define _s7 _w7
|
|
#define _s8 _w8
|
|
#define _s9 _w9
|
|
#define _s10 _w10
|
|
#define _s11 _w11
|
|
#define _s12 _w12
|
|
#define _s13 _w13
|
|
#define _s14 _w14
|
|
#define _s15 _w15
|
|
#define _us0 (_w0&0xffff)
|
|
#define _us1 (_w1&0xffff)
|
|
#define _us2 (_w2&0xffff)
|
|
#define _us3 (_w3&0xffff)
|
|
#define _us4 (_w4&0xffff)
|
|
#define _us5 (_w5&0xffff)
|
|
#define _us6 (_w6&0xffff)
|
|
#define _us7 (_w7&0xffff)
|
|
#define _us8 (_w8&0xffff)
|
|
#define _us9 (_w9&0xffff)
|
|
#define _us10 (_w10&0xffff)
|
|
#define _us11 (_w11&0xffff)
|
|
#define _us12 (_w12&0xffff)
|
|
#define _us13 (_w13&0xffff)
|
|
#define _us14 (_w14&0xffff)
|
|
#define _us15 (_w15&0xffff)
|
|
#define _i0 _w0
|
|
#define _i1 _w1
|
|
#define _i2 _w2
|
|
#define _i3 _w3
|
|
#define _i4 _w4
|
|
#define _i5 _w5
|
|
#define _i6 _w6
|
|
#define _i7 _w7
|
|
#define _i8 _w8
|
|
#define _i9 _w9
|
|
#define _i10 _w10
|
|
#define _i11 _w11
|
|
#define _i12 _w12
|
|
#define _i13 _w13
|
|
#define _i14 _w14
|
|
#define _i15 _w15
|
|
#if __WORDSIZE == 64
|
|
# define _ui0 (_w0&0xffffffff)
|
|
# define _ui1 (_w1&0xffffffff)
|
|
# define _ui2 (_w2&0xffffffff)
|
|
# define _ui3 (_w3&0xffffffff)
|
|
# define _ui4 (_w4&0xffffffff)
|
|
# define _ui5 (_w5&0xffffffff)
|
|
# define _ui6 (_w6&0xffffffff)
|
|
# define _ui7 (_w7&0xffffffff)
|
|
# define _ui8 (_w8&0xffffffff)
|
|
# define _ui9 (_w9&0xffffffff)
|
|
# define _ui10 (_w10&0xffffffff)
|
|
# define _ui11 (_w11&0xffffffff)
|
|
# define _ui12 (_w12&0xffffffff)
|
|
# define _ui13 (_w13&0xffffffff)
|
|
# define _ui14 (_w14&0xffffffff)
|
|
# define _ui15 (_w15&0xffffffff)
|
|
# define _l0 _w0
|
|
# define _l1 _w1
|
|
# define _l2 _w2
|
|
# define _l3 _w3
|
|
# define _l4 _w4
|
|
# define _l5 _w5
|
|
# define _l6 _w6
|
|
# define _l7 _w7
|
|
# define _l8 _w8
|
|
# define _l9 _w9
|
|
# define _l10 _w10
|
|
# define _l11 _w11
|
|
# define _l12 _w12
|
|
# define _l13 _w13
|
|
# define _l14 _w14
|
|
# define _l15 _w15
|
|
#endif
|
|
|
|
/*
|
|
* Types
|
|
*/
|
|
typedef signed char _c;
|
|
typedef unsigned char _uc;
|
|
typedef signed short _s;
|
|
typedef unsigned short _us;
|
|
typedef signed int _i;
|
|
#if __WORDSIZE == 64
|
|
typedef unsigned int _ui;
|
|
typedef signed long _l;
|
|
#endif
|
|
typedef float _f;
|
|
typedef double _d;
|
|
|
|
#define prt0(T) T C##T##0(void);
|
|
#define prt1(T) prt0(T) \
|
|
T C##T##1(T);
|
|
#define prt2(T) prt1(T) \
|
|
T C##T##2(T,T);
|
|
#define prt3(T) prt2(T) \
|
|
T C##T##3(T,T,T);
|
|
#define prt4(T) prt3(T) \
|
|
T C##T##4(T,T,T,T);
|
|
#define prt5(T) prt4(T) \
|
|
T C##T##5(T,T,T,T,T);
|
|
#define prt6(T) prt5(T) \
|
|
T C##T##6(T,T,T,T,T,T);
|
|
#define prt7(T) prt6(T) \
|
|
T C##T##7(T,T,T,T,T,T,T);
|
|
#define prt8(T) prt7(T) \
|
|
T C##T##8(T,T,T,T,T,T,T,T);
|
|
#define prt9(T) prt8(T) \
|
|
T C##T##9(T,T,T,T,T,T,T,T,T);
|
|
#define prt10(T) prt9(T) \
|
|
T C##T##10(T,T,T,T,T,T,T,T,T,T);
|
|
#define prt11(T) prt10(T) \
|
|
T C##T##11(T,T,T,T,T,T,T,T,T,T,T);
|
|
#define prt12(T) prt11(T) \
|
|
T C##T##12(T,T,T,T,T,T,T,T,T,T,T,T);
|
|
#define prt13(T) prt12(T) \
|
|
T C##T##13(T,T,T,T,T,T,T,T,T,T,T,T,T);
|
|
#define prt14(T) prt13(T) \
|
|
T C##T##14(T,T,T,T,T,T,T,T,T,T,T,T,T,T);
|
|
#define prt15(T) prt14(T) \
|
|
T C##T##15(T,T,T,T,T,T,T,T,T,T,T,T,T,T,T);
|
|
#define prt(T) prt15(T)
|
|
prt(_c)
|
|
prt(_uc)
|
|
prt(_s)
|
|
prt(_us)
|
|
prt(_i)
|
|
#if __WORDSIZE == 64
|
|
prt(_ui)
|
|
prt(_l)
|
|
#endif
|
|
prt(_f)
|
|
prt(_d)
|
|
#undef prt
|
|
#undef prt15
|
|
#undef prt14
|
|
#undef prt13
|
|
#undef prt12
|
|
#undef prt11
|
|
#undef prt10
|
|
#undef prt9
|
|
#undef prt8
|
|
#undef prt7
|
|
#undef prt6
|
|
#undef prt5
|
|
#undef prt4
|
|
#undef prt3
|
|
#undef prt2
|
|
#undef prt1
|
|
#undef prt0
|
|
|
|
#define prtn(N,T) T J##T##n(void);
|
|
#define prt0(T) prtn(0,T)
|
|
#define prt1(T) prt0(T) prtn(1,T)
|
|
#define prt2(T) prt1(T) prtn(2,T)
|
|
#define prt3(T) prt2(T) prtn(3,T)
|
|
#define prt4(T) prt3(T) prtn(4,T)
|
|
#define prt5(T) prt4(T) prtn(5,T)
|
|
#define prt6(T) prt5(T) prtn(6,T)
|
|
#define prt7(T) prt6(T) prtn(7,T)
|
|
#define prt8(T) prt7(T) prtn(8,T)
|
|
#define prt9(T) prt8(T) prtn(9,T)
|
|
#define prt10(T) prt9(T) prtn(10,T)
|
|
#define prt11(T) prt10(T) prtn(11,T)
|
|
#define prt12(T) prt11(T) prtn(12,T)
|
|
#define prt13(T) prt12(T) prtn(13,T)
|
|
#define prt14(T) prt13(T) prtn(14,T)
|
|
#define prt15(T) prt14(T) prtn(15,T)
|
|
#define prt(T) prt15(T)
|
|
prt(_c)
|
|
prt(_uc)
|
|
prt(_s)
|
|
prt(_us)
|
|
prt(_i)
|
|
#if __WORDSIZE == 64
|
|
prt(_ui)
|
|
prt(_l)
|
|
#endif
|
|
prt(_f)
|
|
prt(_d)
|
|
#undef prt
|
|
#undef prt15
|
|
#undef prt14
|
|
#undef prt13
|
|
#undef prt12
|
|
#undef prt11
|
|
#undef prt10
|
|
#undef prt9
|
|
#undef prt8
|
|
#undef prt7
|
|
#undef prt6
|
|
#undef prt5
|
|
#undef prt4
|
|
#undef prt3
|
|
#undef prt2
|
|
#undef prt1
|
|
#undef prt0
|
|
#undef prtn
|
|
|
|
/*
|
|
* Initialization
|
|
*/
|
|
|
|
#define dat0(T) T (*j##T##0)(void); \
|
|
jit_node_t *n##T##0;
|
|
#define dat1(T) dat0(T) \
|
|
T (*j##T##1)(T); \
|
|
jit_node_t *n##T##1;
|
|
#define dat2(T) dat1(T) \
|
|
T (*j##T##2)(T,T); \
|
|
jit_node_t *n##T##2;
|
|
#define dat3(T) dat2(T) \
|
|
T (*j##T##3)(T,T,T); \
|
|
jit_node_t *n##T##3;
|
|
#define dat4(T) dat3(T) \
|
|
T (*j##T##4)(T,T,T,T); \
|
|
jit_node_t *n##T##4;
|
|
#define dat5(T) dat4(T) \
|
|
T (*j##T##5)(T,T,T,T,T); \
|
|
jit_node_t *n##T##5;
|
|
#define dat6(T) dat5(T) \
|
|
T (*j##T##6)(T,T,T,T,T,T); \
|
|
jit_node_t *n##T##6;
|
|
#define dat7(T) dat6(T) \
|
|
T (*j##T##7)(T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##7;
|
|
#define dat8(T) dat7(T) \
|
|
T (*j##T##8)(T,T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##8;
|
|
#define dat9(T) dat8(T) \
|
|
T (*j##T##9)(T,T,T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##9;
|
|
#define dat10(T) dat9(T) \
|
|
T (*j##T##10)(T,T,T,T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##10;
|
|
#define dat11(T) dat10(T) \
|
|
T (*j##T##11)(T,T,T,T,T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##11;
|
|
#define dat12(T) dat11(T) \
|
|
T (*j##T##12)(T,T,T,T,T,T,T,T,T,T,T,T); \
|
|
jit_node_t *n##T##12;
|
|
#define dat13(T) dat12(T) \
|
|
T (*j##T##13)(T,T,T,T,T,T,T,T,T,T,T,T,T);\
|
|
jit_node_t *n##T##13;
|
|
#define dat14(T) dat13(T) \
|
|
T (*j##T##14)(T,T,T,T,T,T,T,T,T,T,T,T,T,T);\
|
|
jit_node_t *n##T##14;
|
|
#define dat15(T) dat14(T) \
|
|
T (*j##T##15)(T,T,T,T,T,T,T,T,T,T,T,T,T,T,T);\
|
|
jit_node_t *n##T##15;
|
|
#define dat(T) dat15(T)
|
|
dat(_c)
|
|
dat(_uc)
|
|
dat(_s)
|
|
dat(_us)
|
|
dat(_i)
|
|
#if __WORDSIZE == 64
|
|
dat(_ui)
|
|
dat(_l)
|
|
#endif
|
|
dat(_f)
|
|
dat(_d)
|
|
#undef dat
|
|
#undef dat15
|
|
#undef dat14
|
|
#undef dat13
|
|
#undef dat12
|
|
#undef dat11
|
|
#undef dat10
|
|
#undef dat9
|
|
#undef dat8
|
|
#undef dat7
|
|
#undef dat6
|
|
#undef dat5
|
|
#undef dat4
|
|
#undef dat3
|
|
#undef dat2
|
|
#undef dat1
|
|
#undef dat0
|
|
|
|
/*
|
|
* Implementation
|
|
*/
|
|
#define dcl0(T) \
|
|
T C##T##0(void) \
|
|
{ \
|
|
return (0); \
|
|
}
|
|
#define dcl1(T) \
|
|
dcl0(T) \
|
|
T C##T##1(T A) \
|
|
{ \
|
|
return (A); \
|
|
}
|
|
#define dcl2(T) \
|
|
dcl1(T) \
|
|
T C##T##2(T A,T B) \
|
|
{ \
|
|
return (A-B); \
|
|
}
|
|
#define dcl3(T) \
|
|
dcl2(T) \
|
|
T C##T##3(T A,T B,T C) \
|
|
{ \
|
|
return (A-B-C); \
|
|
}
|
|
#define dcl4(T) \
|
|
dcl3(T) \
|
|
T C##T##4(T A,T B,T C,T D) \
|
|
{ \
|
|
return (A-B-C-D); \
|
|
}
|
|
#define dcl5(T) \
|
|
dcl4(T) \
|
|
T C##T##5(T A,T B,T C,T D,T E) \
|
|
{ \
|
|
return (A-B-C-D-E); \
|
|
}
|
|
#define dcl6(T) \
|
|
dcl5(T) \
|
|
T C##T##6(T A,T B,T C,T D,T E,T F) \
|
|
{ \
|
|
return (A-B-C-D-E-F); \
|
|
}
|
|
#define dcl7(T) \
|
|
dcl6(T) \
|
|
T C##T##7(T A,T B,T C,T D,T E,T F,T G) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G); \
|
|
}
|
|
#define dcl8(T) \
|
|
dcl7(T) \
|
|
T C##T##8(T A,T B,T C,T D,T E,T F,T G,T H) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H); \
|
|
}
|
|
#define dcl9(T) \
|
|
dcl8(T) \
|
|
T C##T##9(T A,T B,T C,T D,T E,T F,T G,T H,T I) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I); \
|
|
}
|
|
#define dcl10(T) \
|
|
dcl9(T) \
|
|
T C##T##10(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J); \
|
|
}
|
|
#define dcl11(T) \
|
|
dcl10(T) \
|
|
T C##T##11(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J,T K) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J-K); \
|
|
}
|
|
#define dcl12(T) \
|
|
dcl11(T) \
|
|
T C##T##12(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J,T K,T L) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J-K-L); \
|
|
}
|
|
#define dcl13(T) \
|
|
dcl12(T) \
|
|
T C##T##13(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J,T K,T L,T M) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J-K-L-M); \
|
|
}
|
|
#define dcl14(T) \
|
|
dcl13(T) \
|
|
T C##T##14(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J,T K,T L,T M,T N) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J-K-L-M-N); \
|
|
}
|
|
#define dcl15(T) \
|
|
dcl14(T) \
|
|
T C##T##15(T A,T B,T C,T D,T E,T F,T G,T H,T I,T J,T K,T L,T M,T N,T O) \
|
|
{ \
|
|
return (A-B-C-D-E-F-G-H-I-J-K-L-M-N-O); \
|
|
}
|
|
#define dcl(T) dcl15(T)
|
|
dcl(_c)
|
|
dcl(_uc)
|
|
dcl(_s)
|
|
dcl(_us)
|
|
dcl(_i)
|
|
#if __WORDSIZE == 64
|
|
dcl(_ui)
|
|
dcl(_l)
|
|
#endif
|
|
dcl(_f)
|
|
dcl(_d)
|
|
#undef dcl
|
|
#undef dcl15
|
|
#undef dcl14
|
|
#undef dcl13
|
|
#undef dcl12
|
|
#undef dcl11
|
|
#undef dcl10
|
|
#undef dcl9
|
|
#undef dcl8
|
|
#undef dcl7
|
|
#undef dcl6
|
|
#undef dcl5
|
|
#undef dcl4
|
|
#undef dcl3
|
|
#undef dcl2
|
|
#undef dcl1
|
|
#undef dcl0
|
|
|
|
#define dcl0(T) \
|
|
T CJ##T##0(void) \
|
|
{ \
|
|
return ((*j##T##0)()); \
|
|
}
|
|
#define dcl1(T) \
|
|
dcl0(T) \
|
|
T CJ##T##1(void) \
|
|
{ \
|
|
return ((*j##T##1)(1)); \
|
|
}
|
|
#define dcl2(T) \
|
|
dcl1(T) \
|
|
T CJ##T##2(void) \
|
|
{ \
|
|
return ((*j##T##2)(1,2)); \
|
|
}
|
|
#define dcl3(T) \
|
|
dcl2(T) \
|
|
T CJ##T##3(void) \
|
|
{ \
|
|
return ((*j##T##3)(1,2,3)); \
|
|
}
|
|
#define dcl4(T) \
|
|
dcl3(T) \
|
|
T CJ##T##4(void) \
|
|
{ \
|
|
return ((*j##T##4)(1,2,3,4)); \
|
|
}
|
|
#define dcl5(T) \
|
|
dcl4(T) \
|
|
T CJ##T##5(void) \
|
|
{ \
|
|
return ((*j##T##5)(1,2,3,4,5)); \
|
|
}
|
|
#define dcl6(T) \
|
|
dcl5(T) \
|
|
T CJ##T##6(void) \
|
|
{ \
|
|
return ((*j##T##6)(1,2,3,4,5,6)); \
|
|
}
|
|
#define dcl7(T) \
|
|
dcl6(T) \
|
|
T CJ##T##7(void) \
|
|
{ \
|
|
return ((*j##T##7)(1,2,3,4,5,6,7)); \
|
|
}
|
|
#define dcl8(T) \
|
|
dcl7(T) \
|
|
T CJ##T##8(void) \
|
|
{ \
|
|
return ((*j##T##8)(1,2,3,4,5,6,7,8)); \
|
|
}
|
|
#define dcl9(T) \
|
|
dcl8(T) \
|
|
T CJ##T##9(void) \
|
|
{ \
|
|
return ((*j##T##9)(1,2,3,4,5,6,7,8,9)); \
|
|
}
|
|
#define dcl10(T) \
|
|
dcl9(T) \
|
|
T CJ##T##10(void) \
|
|
{ \
|
|
return ((*j##T##10)(1,2,3,4,5,6,7,8,9,10)); \
|
|
}
|
|
#define dcl11(T) \
|
|
dcl10(T) \
|
|
T CJ##T##11(void) \
|
|
{ \
|
|
return ((*j##T##11)(1,2,3,4,5,6,7,8,9,10,11)); \
|
|
}
|
|
#define dcl12(T) \
|
|
dcl11(T) \
|
|
T CJ##T##12(void) \
|
|
{ \
|
|
return ((*j##T##12)(1,2,3,4,5,6,7,8,9,10,11,12)); \
|
|
}
|
|
#define dcl13(T) \
|
|
dcl12(T) \
|
|
T CJ##T##13(void) \
|
|
{ \
|
|
return ((*j##T##13)(1,2,3,4,5,6,7,8,9,10,11,12,13)); \
|
|
}
|
|
#define dcl14(T) \
|
|
dcl13(T) \
|
|
T CJ##T##14(void) \
|
|
{ \
|
|
return ((*j##T##14)(1,2,3,4,5,6,7,8,9,10,11,12,13,14)); \
|
|
}
|
|
#define dcl15(T) \
|
|
dcl14(T) \
|
|
T CJ##T##15(void) \
|
|
{ \
|
|
return ((*j##T##15)(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15)); \
|
|
}
|
|
#define dcl(t) dcl15(t)
|
|
dcl(_c)
|
|
dcl(_uc)
|
|
dcl(_s)
|
|
dcl(_us)
|
|
dcl(_i)
|
|
#if __WORDSIZE == 64
|
|
dcl(_ui)
|
|
dcl(_l)
|
|
#endif
|
|
dcl(_f)
|
|
dcl(_d)
|
|
#undef dcl
|
|
#undef dcl15
|
|
#undef dcl14
|
|
#undef dcl13
|
|
#undef dcl12
|
|
#undef dcl11
|
|
#undef dcl10
|
|
#undef dcl9
|
|
#undef dcl8
|
|
#undef dcl7
|
|
#undef dcl6
|
|
#undef dcl5
|
|
#undef dcl4
|
|
#undef dcl3
|
|
#undef dcl2
|
|
#undef dcl1
|
|
#undef dcl0
|
|
|
|
int
|
|
main(int argc, char *argv[])
|
|
{
|
|
jit_state_t *_jit;
|
|
jit_node_t *jmpi_main;
|
|
void (*function)(void);
|
|
jit_node_t *a1,*a2,*a3,*a4,*a5,*a6,*a7,*a8,*a9;
|
|
jit_node_t *a10,*a11,*a12,*a13,*a14,*a15;
|
|
jit_node_t *jmp;
|
|
|
|
init_jit(argv[0]);
|
|
_jit = jit_new_state();
|
|
|
|
jmpi_main = jit_jmpi();
|
|
|
|
|
|
#define arg0(T) /**/
|
|
#define arg1(T) a1 = jit_arg##T();
|
|
#define arg2(T) arg1(T) a2 = jit_arg##T();
|
|
#define arg3(T) arg2(T) a3 = jit_arg##T();
|
|
#define arg4(T) arg3(T) a4 = jit_arg##T();
|
|
#define arg5(T) arg4(T) a5 = jit_arg##T();
|
|
#define arg6(T) arg5(T) a6 = jit_arg##T();
|
|
#define arg7(T) arg6(T) a7 = jit_arg##T();
|
|
#define arg8(T) arg7(T) a8 = jit_arg##T();
|
|
#define arg9(T) arg8(T) a9 = jit_arg##T();
|
|
#define arg10(T) arg9(T) a10 = jit_arg##T();
|
|
#define arg11(T) arg10(T) a11 = jit_arg##T();
|
|
#define arg12(T) arg11(T) a12 = jit_arg##T();
|
|
#define arg13(T) arg12(T) a13 = jit_arg##T();
|
|
#define arg14(T) arg13(T) a14 = jit_arg##T();
|
|
#define arg15(T) arg14(T) a15 = jit_arg##T();
|
|
|
|
#define get0(B,T,R) jit_movi##B(R##0,0);
|
|
#define get1(B,T,R) jit_getarg##B(R##0,a##1);
|
|
#define get2(B,T,R) \
|
|
get1(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##2); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get3(B,T,R) \
|
|
get2(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##3); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get4(B,T,R) \
|
|
get3(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##4); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get5(B,T,R) \
|
|
get4(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##5); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get6(B,T,R) \
|
|
get5(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##6); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get7(B,T,R) \
|
|
get6(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##7); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get8(B,T,R) \
|
|
get7(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##8); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get9(B,T,R) \
|
|
get8(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##9); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get10(B,T,R) \
|
|
get9(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##10); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get11(B,T,R) \
|
|
get10(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##11); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get12(B,T,R) \
|
|
get11(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##12); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get13(B,T,R) \
|
|
get12(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##13); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get14(B,T,R) \
|
|
get13(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##14); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
#define get15(B,T,R) \
|
|
get14(B,T,R); \
|
|
jit_movr##B(R##1, R##0); \
|
|
jit_getarg##T(R##0, a##15); \
|
|
jit_subr##B(R##0, R##1, R##0);
|
|
|
|
#if __WORDSIZE == 32
|
|
# define jit_extr_i(u, v) /**/
|
|
#else
|
|
# define jit_extr_l(u, v) /**/
|
|
#endif
|
|
|
|
#define strfy(n) #n
|
|
#define defi(T, N) \
|
|
n##T##N = jit_name(strfy(n##T##N)); \
|
|
jit_note("ccall.c", __LINE__); \
|
|
jit_prolog(); \
|
|
arg##N(); \
|
|
get##N(,T,JIT_R) \
|
|
jit_extr##T(JIT_R0, JIT_R0); \
|
|
jit_retr(JIT_R0); \
|
|
jit_epilog();
|
|
#define deff(T, N) \
|
|
n##T##N = jit_name(strfy(n##T##N)); \
|
|
jit_note("ccall.c", __LINE__); \
|
|
jit_prolog(); \
|
|
arg##N(T); \
|
|
get##N(T,T,JIT_F); \
|
|
jit_retr##T(JIT_F0); \
|
|
jit_epilog();
|
|
|
|
#define def0(X, T) def##X(T, 0)
|
|
#define def1(X, T) def0(X, T) def##X(T, 1)
|
|
#define def2(X, T) def1(X, T) def##X(T, 2)
|
|
#define def3(X, T) def2(X, T) def##X(T, 3)
|
|
#define def4(X, T) def3(X, T) def##X(T, 4)
|
|
#define def5(X, T) def4(X, T) def##X(T, 5)
|
|
#define def6(X, T) def5(X, T) def##X(T, 6)
|
|
#define def7(X, T) def6(X, T) def##X(T, 7)
|
|
#define def8(X, T) def7(X, T) def##X(T, 8)
|
|
#define def9(X, T) def8(X, T) def##X(T, 9)
|
|
#define def10(X, T) def9(X, T) def##X(T, 10)
|
|
#define def11(X, T) def10(X, T) def##X(T, 11)
|
|
#define def12(X, T) def11(X, T) def##X(T, 12)
|
|
#define def13(X, T) def12(X, T) def##X(T, 13)
|
|
#define def14(X, T) def13(X, T) def##X(T, 14)
|
|
#define def15(X, T) def14(X, T) def##X(T, 15)
|
|
#define def(T) def15(i, T)
|
|
def(_c)
|
|
def(_uc)
|
|
def(_s)
|
|
def(_us)
|
|
def(_i)
|
|
#if __WORDSIZE == 64
|
|
def(_ui)
|
|
def(_l)
|
|
#endif
|
|
#undef def
|
|
#define def(T) def15(f, T)
|
|
def(_f)
|
|
def(_d)
|
|
#undef def
|
|
|
|
jit_patch(jmpi_main);
|
|
jit_name("main");
|
|
jit_note("ccall.c", __LINE__);
|
|
jit_prolog();
|
|
|
|
#define push0(T) /**/
|
|
#define push1(T) jit_pushargi##T(1);
|
|
#define push2(T) push1(T) jit_pushargi##T(2);
|
|
#define push3(T) push2(T) jit_pushargi##T(3);
|
|
#define push4(T) push3(T) jit_pushargi##T(4);
|
|
#define push5(T) push4(T) jit_pushargi##T(5);
|
|
#define push6(T) push5(T) jit_pushargi##T(6);
|
|
#define push7(T) push6(T) jit_pushargi##T(7);
|
|
#define push8(T) push7(T) jit_pushargi##T(8);
|
|
#define push9(T) push8(T) jit_pushargi##T(9);
|
|
#define push10(T) push9(T) jit_pushargi##T(10);
|
|
#define push11(T) push10(T) jit_pushargi##T(11);
|
|
#define push12(T) push11(T) jit_pushargi##T(12);
|
|
#define push13(T) push12(T) jit_pushargi##T(13);
|
|
#define push14(T) push13(T) jit_pushargi##T(14);
|
|
#define push15(T) push14(T) jit_pushargi##T(15);
|
|
|
|
#define calin(T,N) \
|
|
jit_prepare(); \
|
|
push##N() \
|
|
jit_finishi(C##T##N); \
|
|
jit_retval##T(JIT_R0); \
|
|
jmp = jit_beqi(JIT_R0, T##N); \
|
|
jit_calli(abort); \
|
|
jit_patch(jmp);
|
|
#define calfn(T,N) \
|
|
jit_prepare(); \
|
|
push##N(T) \
|
|
jit_finishi(C##T##N); \
|
|
jit_retval##T(JIT_F0); \
|
|
jmp = jit_beqi##T(JIT_F0, _w##N); \
|
|
jit_calli(abort); \
|
|
jit_patch(jmp);
|
|
#define calx0(X,T) cal##X##n(T,0)
|
|
#define calx1(X,T) calx0(X,T) cal##X##n(T,1)
|
|
#define calx2(X,T) calx1(X,T) cal##X##n(T,2)
|
|
#define calx3(X,T) calx2(X,T) cal##X##n(T,3)
|
|
#define calx4(X,T) calx3(X,T) cal##X##n(T,4)
|
|
#define calx5(X,T) calx4(X,T) cal##X##n(T,5)
|
|
#define calx6(X,T) calx5(X,T) cal##X##n(T,6)
|
|
#define calx7(X,T) calx6(X,T) cal##X##n(T,7)
|
|
#define calx8(X,T) calx7(X,T) cal##X##n(T,8)
|
|
#define calx9(X,T) calx8(X,T) cal##X##n(T,9)
|
|
#define calx10(X,T) calx9(X,T) cal##X##n(T,10)
|
|
#define calx11(X,T) calx10(X,T) cal##X##n(T,11)
|
|
#define calx12(X,T) calx11(X,T) cal##X##n(T,12)
|
|
#define calx13(X,T) calx12(X,T) cal##X##n(T,13)
|
|
#define calx14(X,T) calx13(X,T) cal##X##n(T,14)
|
|
#define calx15(X,T) calx14(X,T) cal##X##n(T,15)
|
|
#define cali(T) calx15(i,T)
|
|
#define calf(T) calx15(f,T)
|
|
|
|
cali(_c)
|
|
cali(_uc)
|
|
cali(_s)
|
|
cali(_us)
|
|
cali(_i)
|
|
#if __WORDSIZE == 64
|
|
cali(_ui)
|
|
cali(_l)
|
|
#endif
|
|
calf(_f)
|
|
calf(_d)
|
|
|
|
#undef calin
|
|
#undef calfn
|
|
#define calin(T,N) \
|
|
jit_prepare(); \
|
|
push##N() \
|
|
jit_finishi(CJ##T##N); \
|
|
jit_retval##T(JIT_R0); \
|
|
jmp = jit_beqi(JIT_R0, T##N); \
|
|
jit_calli(abort); \
|
|
jit_patch(jmp);
|
|
#define calfn(T,N) \
|
|
jit_prepare(); \
|
|
push##N(T) \
|
|
jit_finishi(CJ##T##N); \
|
|
jit_retval##T(JIT_F0); \
|
|
jmp = jit_beqi##T(JIT_F0, _w##N); \
|
|
jit_calli(abort); \
|
|
jit_patch(jmp);
|
|
cali(_c)
|
|
cali(_uc)
|
|
cali(_s)
|
|
cali(_us)
|
|
cali(_i)
|
|
#if __WORDSIZE == 64
|
|
cali(_ui)
|
|
cali(_l)
|
|
#endif
|
|
calf(_f)
|
|
calf(_d)
|
|
|
|
jit_ret();
|
|
|
|
function = jit_emit();
|
|
|
|
#define initn(T,N) j##T##N = jit_address(n##T##N);
|
|
#define init0(T) initn(T,0)
|
|
#define init1(T) init0(T) initn(T,1)
|
|
#define init2(T) init1(T) initn(T,2)
|
|
#define init3(T) init2(T) initn(T,3)
|
|
#define init4(T) init3(T) initn(T,4)
|
|
#define init5(T) init4(T) initn(T,5)
|
|
#define init6(T) init5(T) initn(T,6)
|
|
#define init7(T) init6(T) initn(T,7)
|
|
#define init8(T) init7(T) initn(T,8)
|
|
#define init9(T) init8(T) initn(T,9)
|
|
#define init10(T) init9(T) initn(T,10)
|
|
#define init11(T) init10(T) initn(T,11)
|
|
#define init12(T) init11(T) initn(T,12)
|
|
#define init13(T) init12(T) initn(T,13)
|
|
#define init14(T) init13(T) initn(T,14)
|
|
#define init15(T) init14(T) initn(T,15)
|
|
#define init(T) init15(T)
|
|
init(_c)
|
|
init(_uc)
|
|
init(_s)
|
|
init(_us)
|
|
init(_i)
|
|
#if __WORDSIZE == 64
|
|
init(_ui)
|
|
init(_l)
|
|
#endif
|
|
init(_f)
|
|
init(_d)
|
|
|
|
#if 0
|
|
jit_print();
|
|
jit_disassemble();
|
|
#endif
|
|
|
|
jit_clear_state();
|
|
(*function)();
|
|
jit_destroy_state();
|
|
|
|
finish_jit();
|
|
|
|
printf("ok\n");
|
|
|
|
return (0);
|
|
}
|