2011-05-22 14:19:53 +00:00
|
|
|
/*
|
|
|
|
|
** IR CALL* instruction definitions.
|
|
|
|
|
** Copyright (C) 2005-2011 Mike Pall. See Copyright Notice in luajit.h
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
#ifndef _LJ_IRCALL_H
|
|
|
|
|
#define _LJ_IRCALL_H
|
|
|
|
|
|
|
|
|
|
#include "lj_obj.h"
|
|
|
|
|
#include "lj_ir.h"
|
|
|
|
|
#include "lj_jit.h"
|
|
|
|
|
|
|
|
|
|
/* C call info for CALL* instructions. */
|
|
|
|
|
typedef struct CCallInfo {
|
|
|
|
|
ASMFunction func; /* Function pointer. */
|
|
|
|
|
uint32_t flags; /* Number of arguments and flags. */
|
|
|
|
|
} CCallInfo;
|
|
|
|
|
|
|
|
|
|
#define CCI_NARGS(ci) ((ci)->flags & 0xff) /* Extract # of args. */
|
|
|
|
|
#define CCI_NARGS_MAX 32 /* Max. # of args. */
|
|
|
|
|
|
|
|
|
|
#define CCI_OTSHIFT 16
|
|
|
|
|
#define CCI_OPTYPE(ci) ((ci)->flags >> CCI_OTSHIFT) /* Get op/type. */
|
|
|
|
|
#define CCI_OPSHIFT 24
|
|
|
|
|
#define CCI_OP(ci) ((ci)->flags >> CCI_OPSHIFT) /* Get op. */
|
|
|
|
|
|
|
|
|
|
#define CCI_CALL_N (IR_CALLN << CCI_OPSHIFT)
|
|
|
|
|
#define CCI_CALL_L (IR_CALLL << CCI_OPSHIFT)
|
|
|
|
|
#define CCI_CALL_S (IR_CALLS << CCI_OPSHIFT)
|
|
|
|
|
#define CCI_CALL_FN (CCI_CALL_N|CCI_FASTCALL)
|
|
|
|
|
#define CCI_CALL_FL (CCI_CALL_L|CCI_FASTCALL)
|
|
|
|
|
#define CCI_CALL_FS (CCI_CALL_S|CCI_FASTCALL)
|
|
|
|
|
|
|
|
|
|
/* C call info flags. */
|
|
|
|
|
#define CCI_L 0x0100 /* Implicit L arg. */
|
|
|
|
|
#define CCI_CASTU64 0x0200 /* Cast u64 result to number. */
|
|
|
|
|
#define CCI_NOFPRCLOBBER 0x0400 /* Does not clobber any FPRs. */
|
|
|
|
|
#define CCI_FASTCALL 0x0800 /* Fastcall convention. */
|
|
|
|
|
|
|
|
|
|
/* Function definitions for CALL* instructions. */
|
2011-05-22 15:41:59 +00:00
|
|
|
#if LJ_SOFTFP
|
|
|
|
|
#if LJ_HASFFI
|
|
|
|
|
#define IRCALLDEF_SOFTFP_FFI(_) \
|
|
|
|
|
_(softfp_ui2d, 1, N, NUM, 0) \
|
|
|
|
|
_(softfp_l2d, 2, N, NUM, 0) \
|
|
|
|
|
_(softfp_ul2d, 2, N, NUM, 0) \
|
|
|
|
|
_(softfp_f2d, 1, N, NUM, 0) \
|
|
|
|
|
_(softfp_d2ui, 2, N, INT, 0) \
|
|
|
|
|
_(softfp_d2l, 2, N, I64, 0) \
|
|
|
|
|
_(softfp_d2ul, 2, N, U64, 0) \
|
|
|
|
|
_(softfp_d2f, 2, N, FLOAT, 0) \
|
|
|
|
|
_(softfp_i2f, 1, N, FLOAT, 0) \
|
|
|
|
|
_(softfp_ui2f, 1, N, FLOAT, 0) \
|
|
|
|
|
_(softfp_l2f, 2, N, FLOAT, 0) \
|
|
|
|
|
_(softfp_ul2f, 2, N, FLOAT, 0) \
|
|
|
|
|
_(softfp_f2i, 1, N, INT, 0) \
|
|
|
|
|
_(softfp_f2ui, 1, N, INT, 0) \
|
|
|
|
|
_(softfp_f2l, 1, N, I64, 0) \
|
|
|
|
|
_(softfp_f2ul, 1, N, U64, 0)
|
|
|
|
|
#else
|
|
|
|
|
#define IRCALLDEF_SOFTFP_FFI(_)
|
|
|
|
|
#endif
|
|
|
|
|
#define IRCALLDEF_SOFTFP(_) \
|
|
|
|
|
_(lj_vm_tobit, 2, N, INT, 0) \
|
|
|
|
|
_(softfp_add, 4, N, NUM, 0) \
|
|
|
|
|
_(softfp_sub, 4, N, NUM, 0) \
|
|
|
|
|
_(softfp_mul, 4, N, NUM, 0) \
|
|
|
|
|
_(softfp_div, 4, N, NUM, 0) \
|
|
|
|
|
_(softfp_cmp, 4, N, NIL, 0) \
|
|
|
|
|
_(softfp_i2d, 1, N, NUM, 0) \
|
|
|
|
|
_(softfp_d2i, 2, N, INT, 0) \
|
|
|
|
|
IRCALLDEF_SOFTFP_FFI(_)
|
|
|
|
|
#else
|
|
|
|
|
#define IRCALLDEF_SOFTFP(_)
|
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
#if LJ_TARGET_X86ORX64
|
|
|
|
|
/* Use lj_vm_* helpers and x87 ops. */
|
|
|
|
|
#define IRCALLDEF_FPMATH(_)
|
|
|
|
|
#else
|
|
|
|
|
/* Use standard math library calls. */
|
|
|
|
|
#if LJ_SOFTFP
|
|
|
|
|
#define ARG1_FP 2 /* Treat as 2 32 bit arguments. */
|
|
|
|
|
#else
|
|
|
|
|
#define ARG1_FP 1
|
|
|
|
|
#endif
|
|
|
|
|
/* ORDER FPM */
|
|
|
|
|
#define IRCALLDEF_FPMATH(_) \
|
|
|
|
|
_(lj_vm_floor, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(lj_vm_ceil, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(lj_vm_trunc, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(sqrt, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(exp, ARG1_FP, N, NUM, 0) \
|
2011-06-03 15:12:46 +00:00
|
|
|
_(lj_vm_exp2, ARG1_FP, N, NUM, 0) \
|
2011-05-22 15:41:59 +00:00
|
|
|
_(log, ARG1_FP, N, NUM, 0) \
|
2011-06-03 15:12:46 +00:00
|
|
|
_(lj_vm_log2, ARG1_FP, N, NUM, 0) \
|
2011-05-22 15:41:59 +00:00
|
|
|
_(log10, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(sin, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(cos, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(tan, ARG1_FP, N, NUM, 0) \
|
|
|
|
|
_(lj_vm_powi, ARG1_FP+1, N, NUM, 0) \
|
|
|
|
|
_(pow, ARG1_FP*2, N, NUM, 0) \
|
|
|
|
|
_(atan2, ARG1_FP*2, N, NUM, 0) \
|
|
|
|
|
_(ldexp, ARG1_FP+1, N, NUM, 0)
|
|
|
|
|
#endif
|
|
|
|
|
|
2011-05-22 14:19:53 +00:00
|
|
|
#if LJ_HASFFI
|
|
|
|
|
#if LJ_32
|
|
|
|
|
#define ARG2_64 4 /* Treat as 4 32 bit arguments. */
|
|
|
|
|
#define IRCALLDEF_FFI32(_) \
|
|
|
|
|
_(lj_carith_mul64, ARG2_64, N, I64, CCI_NOFPRCLOBBER)
|
|
|
|
|
#else
|
|
|
|
|
#define ARG2_64 2
|
|
|
|
|
#define IRCALLDEF_FFI32(_)
|
|
|
|
|
#endif
|
|
|
|
|
#define IRCALLDEF_FFI(_) \
|
|
|
|
|
IRCALLDEF_FFI32(_) \
|
|
|
|
|
_(lj_carith_divi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_carith_divu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_carith_modi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_carith_modu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_carith_powi64, ARG2_64, N, I64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_carith_powu64, ARG2_64, N, U64, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_cdata_setfin, 2, FN, P32, CCI_L) \
|
|
|
|
|
_(strlen, 1, N, INTP, 0) \
|
|
|
|
|
_(memcpy, 3, S, PTR, 0) \
|
|
|
|
|
_(memset, 3, S, PTR, 0)
|
|
|
|
|
#else
|
|
|
|
|
#define IRCALLDEF_FFI(_)
|
|
|
|
|
#endif
|
2011-05-22 15:41:59 +00:00
|
|
|
|
2011-05-22 14:19:53 +00:00
|
|
|
#define IRCALLDEF(_) \
|
|
|
|
|
_(lj_str_cmp, 2, FN, INT, CCI_NOFPRCLOBBER) \
|
|
|
|
|
_(lj_str_new, 3, S, STR, CCI_L) \
|
|
|
|
|
_(lj_str_tonum, 2, FN, INT, 0) \
|
|
|
|
|
_(lj_str_fromint, 2, FN, STR, CCI_L) \
|
|
|
|
|
_(lj_str_fromnum, 2, FN, STR, CCI_L) \
|
|
|
|
|
_(lj_tab_new1, 2, FS, TAB, CCI_L) \
|
|
|
|
|
_(lj_tab_dup, 2, FS, TAB, CCI_L) \
|
|
|
|
|
_(lj_tab_newkey, 3, S, P32, CCI_L) \
|
|
|
|
|
_(lj_tab_len, 1, FL, INT, 0) \
|
|
|
|
|
_(lj_gc_step_jit, 2, FS, NIL, CCI_L) \
|
|
|
|
|
_(lj_gc_barrieruv, 2, FS, NIL, 0) \
|
|
|
|
|
_(lj_mem_newgco, 2, FS, P32, CCI_L) \
|
|
|
|
|
_(lj_math_random_step, 1, FS, NUM, CCI_CASTU64|CCI_NOFPRCLOBBER) \
|
2011-05-22 15:41:59 +00:00
|
|
|
IRCALLDEF_SOFTFP(_) \
|
|
|
|
|
IRCALLDEF_FPMATH(_) \
|
2011-05-22 14:19:53 +00:00
|
|
|
IRCALLDEF_FFI(_) \
|
|
|
|
|
_(sinh, 1, N, NUM, 0) \
|
|
|
|
|
_(cosh, 1, N, NUM, 0) \
|
|
|
|
|
_(tanh, 1, N, NUM, 0) \
|
|
|
|
|
_(fputc, 2, S, INT, 0) \
|
|
|
|
|
_(fwrite, 4, S, INT, 0) \
|
|
|
|
|
_(fflush, 1, S, INT, 0) \
|
|
|
|
|
\
|
|
|
|
|
/* End of list. */
|
|
|
|
|
|
|
|
|
|
typedef enum {
|
|
|
|
|
#define IRCALLENUM(name, nargs, kind, type, flags) IRCALL_##name,
|
|
|
|
|
IRCALLDEF(IRCALLENUM)
|
|
|
|
|
#undef IRCALLENUM
|
|
|
|
|
IRCALL__MAX
|
|
|
|
|
} IRCallID;
|
|
|
|
|
|
|
|
|
|
LJ_FUNC TRef lj_ir_call(jit_State *J, IRCallID id, ...);
|
|
|
|
|
|
|
|
|
|
LJ_DATA const CCallInfo lj_ir_callinfo[IRCALL__MAX+1];
|
|
|
|
|
|
2011-05-22 15:41:59 +00:00
|
|
|
/* Soft-float declarations. */
|
|
|
|
|
#if LJ_SOFTFP
|
|
|
|
|
#if LJ_TARGET_ARM
|
|
|
|
|
#define softfp_add __aeabi_dadd
|
|
|
|
|
#define softfp_sub __aeabi_dsub
|
|
|
|
|
#define softfp_mul __aeabi_dmul
|
|
|
|
|
#define softfp_div __aeabi_ddiv
|
|
|
|
|
#define softfp_cmp __aeabi_cdcmple
|
|
|
|
|
#define softfp_i2d __aeabi_i2d
|
|
|
|
|
#define softfp_ui2d __aeabi_ui2d
|
|
|
|
|
#define softfp_l2d __aeabi_l2d
|
|
|
|
|
#define softfp_ul2d __aeabi_ul2d
|
|
|
|
|
#define softfp_f2d __aeabi_f2d
|
|
|
|
|
#define softfp_d2i __aeabi_d2iz
|
|
|
|
|
#define softfp_d2ui __aeabi_d2uiz
|
|
|
|
|
#define softfp_d2l __aeabi_d2lz
|
|
|
|
|
#define softfp_d2ul __aeabi_d2ulz
|
|
|
|
|
#define softfp_d2f __aeabi_d2f
|
|
|
|
|
#define softfp_i2f __aeabi_i2f
|
|
|
|
|
#define softfp_ui2f __aeabi_ui2f
|
|
|
|
|
#define softfp_l2f __aeabi_l2f
|
|
|
|
|
#define softfp_ul2f __aeabi_ul2f
|
|
|
|
|
#define softfp_f2i __aeabi_f2iz
|
|
|
|
|
#define softfp_f2ui __aeabi_f2uiz
|
|
|
|
|
#define softfp_f2l __aeabi_f2lz
|
|
|
|
|
#define softfp_f2ul __aeabi_f2ulz
|
|
|
|
|
#else
|
|
|
|
|
#error "Missing soft-float definitions for target architecture"
|
|
|
|
|
#endif
|
|
|
|
|
extern double softfp_add(double a, double b);
|
|
|
|
|
extern double softfp_sub(double a, double b);
|
|
|
|
|
extern double softfp_mul(double a, double b);
|
|
|
|
|
extern double softfp_div(double a, double b);
|
|
|
|
|
extern void softfp_cmp(double a, double b);
|
|
|
|
|
extern double softfp_i2d(int32_t a);
|
|
|
|
|
extern double softfp_ui2d(uint32_t a);
|
|
|
|
|
extern double softfp_l2d(int64_t a);
|
|
|
|
|
extern double softfp_ul2d(uint64_t a);
|
|
|
|
|
extern double softfp_f2d(float a);
|
|
|
|
|
extern int32_t softfp_d2i(double a);
|
|
|
|
|
extern uint32_t softfp_d2ui(double a);
|
|
|
|
|
extern int64_t softfp_d2l(double a);
|
|
|
|
|
extern uint64_t softfp_d2ul(double a);
|
|
|
|
|
extern float softfp_d2f(double a);
|
|
|
|
|
extern float softfp_i2f(int32_t a);
|
|
|
|
|
extern float softfp_ui2f(uint32_t a);
|
|
|
|
|
extern float softfp_l2f(int64_t a);
|
|
|
|
|
extern float softfp_ul2f(uint64_t a);
|
|
|
|
|
extern int32_t softfp_f2i(float a);
|
|
|
|
|
extern uint32_t softfp_f2ui(float a);
|
|
|
|
|
extern int64_t softfp_f2l(float a);
|
|
|
|
|
extern uint64_t softfp_f2ul(float a);
|
|
|
|
|
#endif
|
|
|
|
|
|
2011-05-22 14:19:53 +00:00
|
|
|
#endif
|
