mirrors/lua
1
0
Fork 0
mirror of https://github.com/lua/lua synced 2025-03-25 15:12:51 +03:00
Code Issues Packages Projects Releases Wiki Activity

details

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2000-09-12 10:47:39 -03:00
parent 55c3bc2bcb
commit 0f59e3d7a7
2 changed files with 5 additions and 4 deletions

6
ldo.c

@ -1,5 +1,5 @@
/* /*
** $Id: ldo.c,v 1.94 2000/09/11 17:38:42 roberto Exp roberto $ ** $Id: ldo.c,v 1.95 2000/09/11 20:29:27 roberto Exp roberto $
** Stack and Call structure of Lua ** Stack and Call structure of Lua
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -218,7 +218,7 @@ void luaD_breakrun (lua_State *L, int errcode) {
else { else {
if (errcode != LUA_ERRMEM) if (errcode != LUA_ERRMEM)
message(L, "unable to recover; exiting\n"); message(L, "unable to recover; exiting\n");
exit(1); exit(EXIT_FAILURE);
} }
} }
@ -271,7 +271,7 @@ static int protectedparser (lua_State *L, ZIO *z, int bin) {
old_blocks = L->nblocks; old_blocks = L->nblocks;
chain_longjmp(L, &myErrorJmp); chain_longjmp(L, &myErrorJmp);
if (setjmp(myErrorJmp.b) == 0) { if (setjmp(myErrorJmp.b) == 0) {
Proto *tf = bin ? luaU_undump1(L, z) : luaY_parser(L, z); Proto *tf = bin ? luaU_undump(L, z) : luaY_parser(L, z);
luaV_Lclosure(L, tf, 0); luaV_Lclosure(L, tf, 0);
} }
else { /* an error occurred: correct error code */ else { /* an error occurred: correct error code */

3
lobject.c

@ -1,5 +1,5 @@
/* /*
** $Id: lobject.c,v 1.46 2000/09/11 17:38:42 roberto Exp roberto $ ** $Id: lobject.c,v 1.47 2000/09/11 20:29:27 roberto Exp roberto $
** Some generic functions over Lua objects ** Some generic functions over Lua objects
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -127,6 +127,7 @@ int luaO_str2d (const char *s, Number *result) { /* LUA_NUMBER */
} }
/* this function needs to handle only '%d' and '%.XXXs' formats */
void luaO_verror (lua_State *L, const char *fmt, ...) { void luaO_verror (lua_State *L, const char *fmt, ...) {
char buff[500]; char buff[500];
va_list argp; va_list argp;