gh-mirror/mikepaul-LuaJIT
1
0
Fork 0
mirror of https://github.com/LuaJIT/LuaJIT.git synced 2025-02-07 15:14:08 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix warnings in minilua.c.

Browse Source
This commit is contained in:
Mike Pall 2022-06-08 15:35:12 +02:00
parent fd86c924b9
commit 7dc3850e78
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/host/genminilua.lua
View File

@ -327,6 +327,12 @@ local function rename_tokens2(src)
return gsub(src, "ZY([%w_]+)", "union %1") return gsub(src, "ZY([%w_]+)", "union %1")
end end
local function fix_bugs_and_warnings(src)
src = gsub(src, "(luaD_checkstack%(L,p%->maxstacksize)%)", "%1+p->numparams)")
src = gsub(src, "if%(sep==%-1%)(return'%[';)\nelse (luaX_lexerror%b();)", "if (sep!=-1)%2\n%1")
return gsub(src, "(default:{\nNode%*n=mainposition)", "/*fallthrough*/\n%1")
end
local function func_gather(src) local function func_gather(src)
local nodes, list = {}, {} local nodes, list = {}, {}
local pos, len = 1, #src local pos, len = 1, #src
@ -425,5 +431,6 @@ src = rename_tokens1(src)
src = func_collect(src) src = func_collect(src)
src = rename_tokens2(src) src = rename_tokens2(src)
src = restore_strings(src) src = restore_strings(src)
src = fix_bugs_and_warnings(src)
src = merge_header(src, license) src = merge_header(src, license)
io.write(src) io.write(src)

5
src/host/minilua.c
View File

@ -1639,6 +1639,7 @@ lua_number2int(k,n);
if(luai_numeq(cast_num(k),nvalue(key))) if(luai_numeq(cast_num(k),nvalue(key)))
return luaH_getnum(t,k); return luaH_getnum(t,k);
} }
/*fallthrough*/
default:{ default:{
Node*n=mainposition(t,key); Node*n=mainposition(t,key);
do{ do{
@ -2905,8 +2906,8 @@ if(sep>=0){
read_long_string(ls,seminfo,sep); read_long_string(ls,seminfo,sep);
return TK_STRING; return TK_STRING;
} }
else if(sep==-1)return'['; else if (sep!=-1)luaX_lexerror(ls,"invalid long string delimiter",TK_STRING);
else luaX_lexerror(ls,"invalid long string delimiter",TK_STRING); return'[';
} }
case'=':{ case'=':{
next(ls); next(ls);