aboutsummaryrefslogtreecommitdiff
path: root/src/lj_ircall.h
diff options
context:
space:
mode:
Diffstat (limited to 'src/lj_ircall.h')
-rw-r--r--src/lj_ircall.h135
1 files changed, 88 insertions, 47 deletions
diff --git a/src/lj_ircall.h b/src/lj_ircall.h
index 7fcc532e..9e1fb367 100644
--- a/src/lj_ircall.h
+++ b/src/lj_ircall.h
@@ -16,7 +16,7 @@ typedef struct CCallInfo {
16 uint32_t flags; /* Number of arguments and flags. */ 16 uint32_t flags; /* Number of arguments and flags. */
17} CCallInfo; 17} CCallInfo;
18 18
19#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* Extract # of args. */ 19#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* # of args. */
20#define CCI_NARGS_MAX 32 /* Max. # of args. */ 20#define CCI_NARGS_MAX 32 /* Max. # of args. */
21 21
22#define CCI_OTSHIFT 16 22#define CCI_OTSHIFT 16
@@ -45,6 +45,17 @@ typedef struct CCallInfo {
45#define CCI_CC_FASTCALL 0x2000 /* Fastcall calling convention. */ 45#define CCI_CC_FASTCALL 0x2000 /* Fastcall calling convention. */
46#define CCI_CC_STDCALL 0x3000 /* Stdcall calling convention. */ 46#define CCI_CC_STDCALL 0x3000 /* Stdcall calling convention. */
47 47
48/* Extra args for SOFTFP, SPLIT 64 bit. */
49#define CCI_XARGS_SHIFT 14
50#define CCI_XARGS(ci) (((ci)->flags >> CCI_XARGS_SHIFT) & 3)
51#define CCI_XA (1u << CCI_XARGS_SHIFT)
52
53#if LJ_SOFTFP || (LJ_32 && LJ_HASFFI)
54#define CCI_XNARGS(ci) (CCI_NARGS((ci)) + CCI_XARGS((ci)))
55#else
56#define CCI_XNARGS(ci) CCI_NARGS((ci))
57#endif
58
48/* Helpers for conditional function definitions. */ 59/* Helpers for conditional function definitions. */
49#define IRCALLCOND_ANY(x) x 60#define IRCALLCOND_ANY(x) x
50 61
@@ -87,24 +98,48 @@ typedef struct CCallInfo {
87#endif 98#endif
88 99
89#if LJ_SOFTFP 100#if LJ_SOFTFP
90#define ARG1_FP 2 /* Treat as 2 32 bit arguments. */ 101#define XA_FP CCI_XA
102#define XA2_FP (CCI_XA+CCI_XA)
91#else 103#else
92#define ARG1_FP 1 104#define XA_FP 0
105#define XA2_FP 0
93#endif 106#endif
94 107
95#if LJ_32 108#if LJ_32
96#define ARG2_64 4 /* Treat as 4 32 bit arguments. */ 109#define XA_64 CCI_XA
110#define XA2_64 (CCI_XA+CCI_XA)
97#else 111#else
98#define ARG2_64 2 112#define XA_64 0
113#define XA2_64 0
99#endif 114#endif
100 115
101/* Function definitions for CALL* instructions. */ 116/* Function definitions for CALL* instructions. */
102#define IRCALLDEF(_) \ 117#define IRCALLDEF(_) \
103 _(ANY, lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \ 118 _(ANY, lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \
119 _(ANY, lj_str_find, 4, N, P32, 0) \
104 _(ANY, lj_str_new, 3, S, STR, CCI_L) \ 120 _(ANY, lj_str_new, 3, S, STR, CCI_L) \
105 _(ANY, lj_strscan_num, 2, FN, INT, 0) \ 121 _(ANY, lj_strscan_num, 2, FN, INT, 0) \
106 _(ANY, lj_str_fromint, 2, FN, STR, CCI_L) \ 122 _(ANY, lj_strfmt_int, 2, FN, STR, CCI_L) \
107 _(ANY, lj_str_fromnum, 2, FN, STR, CCI_L) \ 123 _(ANY, lj_strfmt_num, 2, FN, STR, CCI_L) \
124 _(ANY, lj_strfmt_char, 2, FN, STR, CCI_L) \
125 _(ANY, lj_strfmt_putint, 2, FL, P32, 0) \
126 _(ANY, lj_strfmt_putnum, 2, FL, P32, 0) \
127 _(ANY, lj_strfmt_putquoted, 2, FL, P32, 0) \
128 _(ANY, lj_strfmt_putfxint, 3, L, P32, XA_64) \
129 _(ANY, lj_strfmt_putfnum_int, 3, L, P32, XA_FP) \
130 _(ANY, lj_strfmt_putfnum_uint, 3, L, P32, XA_FP) \
131 _(ANY, lj_strfmt_putfnum, 3, L, P32, XA_FP) \
132 _(ANY, lj_strfmt_putfstr, 3, L, P32, 0) \
133 _(ANY, lj_strfmt_putfchar, 3, L, P32, 0) \
134 _(ANY, lj_buf_putmem, 3, S, P32, 0) \
135 _(ANY, lj_buf_putstr, 2, FL, P32, 0) \
136 _(ANY, lj_buf_putchar, 2, FL, P32, 0) \
137 _(ANY, lj_buf_putstr_reverse, 2, FL, P32, 0) \
138 _(ANY, lj_buf_putstr_lower, 2, FL, P32, 0) \
139 _(ANY, lj_buf_putstr_upper, 2, FL, P32, 0) \
140 _(ANY, lj_buf_putstr_rep, 3, L, P32, 0) \
141 _(ANY, lj_buf_puttab, 5, L, P32, 0) \
142 _(ANY, lj_buf_tostr, 1, FL, STR, 0) \
108 _(ANY, lj_tab_new1, 2, FS, TAB, CCI_L) \ 143 _(ANY, lj_tab_new1, 2, FS, TAB, CCI_L) \
109 _(ANY, lj_tab_dup, 2, FS, TAB, CCI_L) \ 144 _(ANY, lj_tab_dup, 2, FS, TAB, CCI_L) \
110 _(ANY, lj_tab_newkey, 3, S, P32, CCI_L) \ 145 _(ANY, lj_tab_newkey, 3, S, P32, CCI_L) \
@@ -114,29 +149,29 @@ typedef struct CCallInfo {
114 _(ANY, lj_mem_newgco, 2, FS, P32, CCI_L) \ 149 _(ANY, lj_mem_newgco, 2, FS, P32, CCI_L) \
115 _(ANY, lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_NOFPRCLOBBER) \ 150 _(ANY, lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_NOFPRCLOBBER) \
116 _(ANY, lj_vm_modi, 2, FN, INT, 0) \ 151 _(ANY, lj_vm_modi, 2, FN, INT, 0) \
117 _(ANY, sinh, ARG1_FP, N, NUM, 0) \ 152 _(ANY, sinh, 1, N, NUM, XA_FP) \
118 _(ANY, cosh, ARG1_FP, N, NUM, 0) \ 153 _(ANY, cosh, 1, N, NUM, XA_FP) \
119 _(ANY, tanh, ARG1_FP, N, NUM, 0) \ 154 _(ANY, tanh, 1, N, NUM, XA_FP) \
120 _(ANY, fputc, 2, S, INT, 0) \ 155 _(ANY, fputc, 2, S, INT, 0) \
121 _(ANY, fwrite, 4, S, INT, 0) \ 156 _(ANY, fwrite, 4, S, INT, 0) \
122 _(ANY, fflush, 1, S, INT, 0) \ 157 _(ANY, fflush, 1, S, INT, 0) \
123 /* ORDER FPM */ \ 158 /* ORDER FPM */ \
124 _(FPMATH, lj_vm_floor, ARG1_FP, N, NUM, 0) \ 159 _(FPMATH, lj_vm_floor, 1, N, NUM, XA_FP) \
125 _(FPMATH, lj_vm_ceil, ARG1_FP, N, NUM, 0) \ 160 _(FPMATH, lj_vm_ceil, 1, N, NUM, XA_FP) \
126 _(FPMATH, lj_vm_trunc, ARG1_FP, N, NUM, 0) \ 161 _(FPMATH, lj_vm_trunc, 1, N, NUM, XA_FP) \
127 _(FPMATH, sqrt, ARG1_FP, N, NUM, 0) \ 162 _(FPMATH, sqrt, 1, N, NUM, XA_FP) \
128 _(FPMATH, exp, ARG1_FP, N, NUM, 0) \ 163 _(FPMATH, exp, 1, N, NUM, XA_FP) \
129 _(FPMATH, lj_vm_exp2, ARG1_FP, N, NUM, 0) \ 164 _(FPMATH, lj_vm_exp2, 1, N, NUM, XA_FP) \
130 _(FPMATH, log, ARG1_FP, N, NUM, 0) \ 165 _(FPMATH, log, 1, N, NUM, XA_FP) \
131 _(FPMATH, lj_vm_log2, ARG1_FP, N, NUM, 0) \ 166 _(FPMATH, lj_vm_log2, 1, N, NUM, XA_FP) \
132 _(FPMATH, log10, ARG1_FP, N, NUM, 0) \ 167 _(FPMATH, log10, 1, N, NUM, XA_FP) \
133 _(FPMATH, sin, ARG1_FP, N, NUM, 0) \ 168 _(FPMATH, sin, 1, N, NUM, XA_FP) \
134 _(FPMATH, cos, ARG1_FP, N, NUM, 0) \ 169 _(FPMATH, cos, 1, N, NUM, XA_FP) \
135 _(FPMATH, tan, ARG1_FP, N, NUM, 0) \ 170 _(FPMATH, tan, 1, N, NUM, XA_FP) \
136 _(FPMATH, lj_vm_powi, ARG1_FP+1, N, NUM, 0) \ 171 _(FPMATH, lj_vm_powi, 2, N, NUM, XA_FP) \
137 _(FPMATH, pow, ARG1_FP*2, N, NUM, 0) \ 172 _(FPMATH, pow, 2, N, NUM, XA2_FP) \
138 _(FPMATH, atan2, ARG1_FP*2, N, NUM, 0) \ 173 _(FPMATH, atan2, 2, N, NUM, XA2_FP) \
139 _(FPMATH, ldexp, ARG1_FP+1, N, NUM, 0) \ 174 _(FPMATH, ldexp, 2, N, NUM, XA_FP) \
140 _(SOFTFP, lj_vm_tobit, 2, N, INT, 0) \ 175 _(SOFTFP, lj_vm_tobit, 2, N, INT, 0) \
141 _(SOFTFP, softfp_add, 4, N, NUM, 0) \ 176 _(SOFTFP, softfp_add, 4, N, NUM, 0) \
142 _(SOFTFP, softfp_sub, 4, N, NUM, 0) \ 177 _(SOFTFP, softfp_sub, 4, N, NUM, 0) \
@@ -153,26 +188,32 @@ typedef struct CCallInfo {
153 _(SOFTFP_FFI, softfp_ui2f, 1, N, FLOAT, 0) \ 188 _(SOFTFP_FFI, softfp_ui2f, 1, N, FLOAT, 0) \
154 _(SOFTFP_FFI, softfp_f2i, 1, N, INT, 0) \ 189 _(SOFTFP_FFI, softfp_f2i, 1, N, INT, 0) \
155 _(SOFTFP_FFI, softfp_f2ui, 1, N, INT, 0) \ 190 _(SOFTFP_FFI, softfp_f2ui, 1, N, INT, 0) \
156 _(FP64_FFI, fp64_l2d, 2, N, NUM, 0) \ 191 _(FP64_FFI, fp64_l2d, 1, N, NUM, XA_64) \
157 _(FP64_FFI, fp64_ul2d, 2, N, NUM, 0) \ 192 _(FP64_FFI, fp64_ul2d, 1, N, NUM, XA_64) \
158 _(FP64_FFI, fp64_l2f, 2, N, FLOAT, 0) \ 193 _(FP64_FFI, fp64_l2f, 1, N, FLOAT, XA_64) \
159 _(FP64_FFI, fp64_ul2f, 2, N, FLOAT, 0) \ 194 _(FP64_FFI, fp64_ul2f, 1, N, FLOAT, XA_64) \
160 _(FP64_FFI, fp64_d2l, ARG1_FP, N, I64, 0) \ 195 _(FP64_FFI, fp64_d2l, 1, N, I64, XA_FP) \
161 _(FP64_FFI, fp64_d2ul, ARG1_FP, N, U64, 0) \ 196 _(FP64_FFI, fp64_d2ul, 1, N, U64, XA_FP) \
162 _(FP64_FFI, fp64_f2l, 1, N, I64, 0) \ 197 _(FP64_FFI, fp64_f2l, 1, N, I64, 0) \
163 _(FP64_FFI, fp64_f2ul, 1, N, U64, 0) \ 198 _(FP64_FFI, fp64_f2ul, 1, N, U64, 0) \
164 _(FFI, lj_carith_divi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ 199 _(FFI, lj_carith_divi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \
165 _(FFI, lj_carith_divu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ 200 _(FFI, lj_carith_divu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \
166 _(FFI, lj_carith_modi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ 201 _(FFI, lj_carith_modi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \
167 _(FFI, lj_carith_modu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ 202 _(FFI, lj_carith_modu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \
168 _(FFI, lj_carith_powi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \ 203 _(FFI, lj_carith_powi64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \
169 _(FFI, lj_carith_powu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \ 204 _(FFI, lj_carith_powu64, 2, N, U64, XA2_64|CCI_NOFPRCLOBBER) \
170 _(FFI, lj_cdata_setfin, 2, FN, P32, CCI_L) \ 205 _(FFI, lj_cdata_newv, 4, S, CDATA, CCI_L) \
171 _(FFI, strlen, 1, L, INTP, 0) \ 206 _(FFI, lj_cdata_setfin, 4, S, NIL, CCI_L) \
172 _(FFI, memcpy, 3, S, PTR, 0) \ 207 _(FFI, strlen, 1, L, INTP, 0) \
173 _(FFI, memset, 3, S, PTR, 0) \ 208 _(FFI, memcpy, 3, S, PTR, 0) \
174 _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \ 209 _(FFI, memset, 3, S, PTR, 0) \
175 _(FFI32, lj_carith_mul64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) 210 _(FFI, lj_vm_errno, 0, S, INT, CCI_NOFPRCLOBBER) \
211 _(FFI32, lj_carith_mul64, 2, N, I64, XA2_64|CCI_NOFPRCLOBBER) \
212 _(FFI32, lj_carith_shl64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \
213 _(FFI32, lj_carith_shr64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \
214 _(FFI32, lj_carith_sar64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \
215 _(FFI32, lj_carith_rol64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \
216 _(FFI32, lj_carith_ror64, 2, N, U64, XA_64|CCI_NOFPRCLOBBER) \
176 \ 217 \
177 /* End of list. */ 218 /* End of list. */
178 219
generated by cgit v1.2.3-55-g6feb (git 2.39.1) at 2025-04-25 15:53:44 +0000