mirror of
https://github.com/holub/mame
synced 2025-05-03 04:56:45 +03:00
b5475eb38b
Compile Lua as C++. When Lua is compiled as C, it uses setjmp/longjmp for error handling, resulting in failure to unwind intermediate stack frames. Trying to ensure no objects with non-trivial destructors are in scope when raising a Lua error is error-prone. In particular, converting an exception to a Lua error becomes convoluted, and raising a Lua error from a constructor is effectively impossible. Updated Lua to 5.4.4 - this includes a brand-new garbage collector implementation with better performance. The main thing removed is the deprecated bitlib. Updated sol2 to version 3.3.0 - this adds support for Lua 5.4 and fixes a number of issues, including not correctly handling errors when Lua is built as C++. Updated LuaFileSystem to version 1.8.0 - this adds support for symbolic links on Windows, as well as Lua 5.4 compatibility. Updated LuaSQLite3 to version 0.9.5 - this fixes issues in multi-threaded environments, as well as Lua 5.4 compatibility. Fixed double-free after attempting to construct a debugger expression from Lua with an invalid string, and exposed expression error to Lua in a better way. Added warning level print function to Lua. Fixed saving cheats with shift operators in expressions, although this code isn't actually used as there's no cheat editor.
105 lines
3.7 KiB
C
105 lines
3.7 KiB
C
/*
|
|
** $Id: lcode.h $
|
|
** Code generator for Lua
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lcode_h
|
|
#define lcode_h
|
|
|
|
#include "llex.h"
|
|
#include "lobject.h"
|
|
#include "lopcodes.h"
|
|
#include "lparser.h"
|
|
|
|
|
|
/*
|
|
** Marks the end of a patch list. It is an invalid value both as an absolute
|
|
** address, and as a list link (would link an element to itself).
|
|
*/
|
|
#define NO_JUMP (-1)
|
|
|
|
|
|
/*
|
|
** grep "ORDER OPR" if you change these enums (ORDER OP)
|
|
*/
|
|
typedef enum BinOpr {
|
|
/* arithmetic operators */
|
|
OPR_ADD, OPR_SUB, OPR_MUL, OPR_MOD, OPR_POW,
|
|
OPR_DIV, OPR_IDIV,
|
|
/* bitwise operators */
|
|
OPR_BAND, OPR_BOR, OPR_BXOR,
|
|
OPR_SHL, OPR_SHR,
|
|
/* string operator */
|
|
OPR_CONCAT,
|
|
/* comparison operators */
|
|
OPR_EQ, OPR_LT, OPR_LE,
|
|
OPR_NE, OPR_GT, OPR_GE,
|
|
/* logical operators */
|
|
OPR_AND, OPR_OR,
|
|
OPR_NOBINOPR
|
|
} BinOpr;
|
|
|
|
|
|
/* true if operation is foldable (that is, it is arithmetic or bitwise) */
|
|
#define foldbinop(op) ((op) <= OPR_SHR)
|
|
|
|
|
|
#define luaK_codeABC(fs,o,a,b,c) luaK_codeABCk(fs,o,a,b,c,0)
|
|
|
|
|
|
typedef enum UnOpr { OPR_MINUS, OPR_BNOT, OPR_NOT, OPR_LEN, OPR_NOUNOPR } UnOpr;
|
|
|
|
|
|
/* get (pointer to) instruction of given 'expdesc' */
|
|
#define getinstruction(fs,e) ((fs)->f->code[(e)->u.info])
|
|
|
|
|
|
#define luaK_setmultret(fs,e) luaK_setreturns(fs, e, LUA_MULTRET)
|
|
|
|
#define luaK_jumpto(fs,t) luaK_patchlist(fs, luaK_jump(fs), t)
|
|
|
|
LUAI_FUNC int luaK_code (FuncState *fs, Instruction i);
|
|
LUAI_FUNC int luaK_codeABx (FuncState *fs, OpCode o, int A, unsigned int Bx);
|
|
LUAI_FUNC int luaK_codeAsBx (FuncState *fs, OpCode o, int A, int Bx);
|
|
LUAI_FUNC int luaK_codeABCk (FuncState *fs, OpCode o, int A,
|
|
int B, int C, int k);
|
|
LUAI_FUNC int luaK_isKint (expdesc *e);
|
|
LUAI_FUNC int luaK_exp2const (FuncState *fs, const expdesc *e, TValue *v);
|
|
LUAI_FUNC void luaK_fixline (FuncState *fs, int line);
|
|
LUAI_FUNC void luaK_nil (FuncState *fs, int from, int n);
|
|
LUAI_FUNC void luaK_reserveregs (FuncState *fs, int n);
|
|
LUAI_FUNC void luaK_checkstack (FuncState *fs, int n);
|
|
LUAI_FUNC void luaK_int (FuncState *fs, int reg, lua_Integer n);
|
|
LUAI_FUNC void luaK_dischargevars (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC int luaK_exp2anyreg (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_exp2anyregup (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_exp2nextreg (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_exp2val (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC int luaK_exp2RK (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_self (FuncState *fs, expdesc *e, expdesc *key);
|
|
LUAI_FUNC void luaK_indexed (FuncState *fs, expdesc *t, expdesc *k);
|
|
LUAI_FUNC void luaK_goiftrue (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_goiffalse (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC void luaK_storevar (FuncState *fs, expdesc *var, expdesc *e);
|
|
LUAI_FUNC void luaK_setreturns (FuncState *fs, expdesc *e, int nresults);
|
|
LUAI_FUNC void luaK_setoneret (FuncState *fs, expdesc *e);
|
|
LUAI_FUNC int luaK_jump (FuncState *fs);
|
|
LUAI_FUNC void luaK_ret (FuncState *fs, int first, int nret);
|
|
LUAI_FUNC void luaK_patchlist (FuncState *fs, int list, int target);
|
|
LUAI_FUNC void luaK_patchtohere (FuncState *fs, int list);
|
|
LUAI_FUNC void luaK_concat (FuncState *fs, int *l1, int l2);
|
|
LUAI_FUNC int luaK_getlabel (FuncState *fs);
|
|
LUAI_FUNC void luaK_prefix (FuncState *fs, UnOpr op, expdesc *v, int line);
|
|
LUAI_FUNC void luaK_infix (FuncState *fs, BinOpr op, expdesc *v);
|
|
LUAI_FUNC void luaK_posfix (FuncState *fs, BinOpr op, expdesc *v1,
|
|
expdesc *v2, int line);
|
|
LUAI_FUNC void luaK_settablesize (FuncState *fs, int pc,
|
|
int ra, int asize, int hsize);
|
|
LUAI_FUNC void luaK_setlist (FuncState *fs, int base, int nelems, int tostore);
|
|
LUAI_FUNC void luaK_finish (FuncState *fs);
|
|
LUAI_FUNC l_noret luaK_semerror (LexState *ls, const char *msg);
|
|
|
|
|
|
#endif
|