diff options
author | Li Jin <dragon-fly@qq.com> | 2022-10-31 11:32:33 +0800 |
---|---|---|
committer | Li Jin <dragon-fly@qq.com> | 2022-11-09 11:29:32 +0800 |
commit | 417ec1a37922c6178900adfec70628cad46731ff (patch) | |
tree | a5a2d74927ad2c41b5a16264a78409e1c0334b72 /win-build/Lua53/lcode.h | |
parent | 3dd607c8887d2fe0186668aabca31bb84a41e2da (diff) | |
download | yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.gz yuescript-417ec1a37922c6178900adfec70628cad46731ff.tar.bz2 yuescript-417ec1a37922c6178900adfec70628cad46731ff.zip |
fix issue #112 and issue #113.
Diffstat (limited to 'win-build/Lua53/lcode.h')
-rw-r--r-- | win-build/Lua53/lcode.h | 88 |
1 files changed, 88 insertions, 0 deletions
diff --git a/win-build/Lua53/lcode.h b/win-build/Lua53/lcode.h new file mode 100644 index 0000000..882dc9c --- /dev/null +++ b/win-build/Lua53/lcode.h | |||
@@ -0,0 +1,88 @@ | |||
1 | /* | ||
2 | ** $Id: lcode.h,v 1.64.1.1 2017/04/19 17:20:42 roberto Exp $ | ||
3 | ** Code generator for Lua | ||
4 | ** See Copyright Notice in lua.h | ||
5 | */ | ||
6 | |||
7 | #ifndef lcode_h | ||
8 | #define lcode_h | ||
9 | |||
10 | #include "llex.h" | ||
11 | #include "lobject.h" | ||
12 | #include "lopcodes.h" | ||
13 | #include "lparser.h" | ||
14 | |||
15 | |||
16 | /* | ||
17 | ** Marks the end of a patch list. It is an invalid value both as an absolute | ||
18 | ** address, and as a list link (would link an element to itself). | ||
19 | */ | ||
20 | #define NO_JUMP (-1) | ||
21 | |||
22 | |||
23 | /* | ||
24 | ** grep "ORDER OPR" if you change these enums (ORDER OP) | ||
25 | */ | ||
26 | typedef enum BinOpr { | ||
27 | OPR_ADD, OPR_SUB, OPR_MUL, OPR_MOD, OPR_POW, | ||
28 | OPR_DIV, | ||
29 | OPR_IDIV, | ||
30 | OPR_BAND, OPR_BOR, OPR_BXOR, | ||
31 | OPR_SHL, OPR_SHR, | ||
32 | OPR_CONCAT, | ||
33 | OPR_EQ, OPR_LT, OPR_LE, | ||
34 | OPR_NE, OPR_GT, OPR_GE, | ||
35 | OPR_AND, OPR_OR, | ||
36 | OPR_NOBINOPR | ||
37 | } BinOpr; | ||
38 | |||
39 | |||
40 | typedef enum UnOpr { OPR_MINUS, OPR_BNOT, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr; | ||
41 | |||
42 | |||
43 | /* get (pointer to) instruction of given 'expdesc' */ | ||
44 | #define getinstruction(fs,e) ((fs)->f->code[(e)->u.info]) | ||
45 | |||
46 | #define luaK_codeAsBx(fs,o,A,sBx) luaK_codeABx(fs,o,A,(sBx)+MAXARG_sBx) | ||
47 | |||
48 | #define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET) | ||
49 | |||
50 | #define luaK_jumpto(fs,t) luaK_patchlist(fs, luaK_jump(fs), t) | ||
51 | |||
52 | LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned int Bx); | ||
53 | LUAI_FUNC int luaK_codeABC (FuncState *fs, OpCode o, int A, int B, int C); | ||
54 | LUAI_FUNC int luaK_codek (FuncState *fs, int reg, int k); | ||
55 | LUAI_FUNC void luaK_fixline (FuncState *fs, int line); | ||
56 | LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n); | ||
57 | LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n); | ||
58 | LUAI_FUNC void luaK_checkstack (FuncState *fs, int n); | ||
59 | LUAI_FUNC int luaK_stringK (FuncState *fs, TString *s); | ||
60 | LUAI_FUNC int luaK_intK (FuncState *fs, lua_Integer n); | ||
61 | LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e); | ||
62 | LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e); | ||
63 | LUAI_FUNC void luaK_exp2anyregup (FuncState *fs, expdesc *e); | ||
64 | LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e); | ||
65 | LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e); | ||
66 | LUAI_FUNC int luaK_exp2RK (FuncState *fs, expdesc *e); | ||
67 | LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key); | ||
68 | LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k); | ||
69 | LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e); | ||
70 | LUAI_FUNC void luaK_goiffalse (FuncState *fs, expdesc *e); | ||
71 | LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e); | ||
72 | LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults); | ||
73 | LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e); | ||
74 | LUAI_FUNC int luaK_jump (FuncState *fs); | ||
75 | LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret); | ||
76 | LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target); | ||
77 | LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list); | ||
78 | LUAI_FUNC void luaK_patchclose (FuncState *fs, int list, int level); | ||
79 | LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2); | ||
80 | LUAI_FUNC int luaK_getlabel (FuncState *fs); | ||
81 | LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v, int line); | ||
82 | LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v); | ||
83 | LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1, | ||
84 | expdesc *v2, int line); | ||
85 | LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore); | ||
86 | |||
87 | |||
88 | #endif | ||