diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-03 11:58:26 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-03-03 11:58:26 -0300 |
| commit | 3c9d999424520c809e05bee11d81788b488434f6 (patch) | |
| tree | 7556d9ea10bda42b226aec4dd956753467cc0864 /ldo.c | |
| parent | f7840a3e0bc07813246b2bad6bf4579848187908 (diff) | |
| download | lua-3c9d999424520c809e05bee11d81788b488434f6.tar.gz lua-3c9d999424520c809e05bee11d81788b488434f6.tar.bz2 lua-3c9d999424520c809e05bee11d81788b488434f6.zip | |
many details (most by lhf).
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.66 2000/01/19 12:00:45 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.67 2000/02/08 16:34:31 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -52,7 +52,7 @@ void luaD_checkstack (lua_State *L, int n) { | |||
| 52 | if (L->stack_last-L->stack > (L->stacksize-1)) { | 52 | if (L->stack_last-L->stack > (L->stacksize-1)) { |
| 53 | /* overflow while handling overflow: do what?? */ | 53 | /* overflow while handling overflow: do what?? */ |
| 54 | L->top -= EXTRA_STACK; | 54 | L->top -= EXTRA_STACK; |
| 55 | lua_error(L, "BAD STACK OVERFLOW! DATA CORRUPTED!!"); | 55 | lua_error(L, "BAD STACK OVERFLOW! DATA CORRUPTED!"); |
| 56 | } | 56 | } |
| 57 | else { | 57 | else { |
| 58 | lua_Dbgactreg dummy; | 58 | lua_Dbgactreg dummy; |
| @@ -62,7 +62,7 @@ void luaD_checkstack (lua_State *L, int n) { | |||
| 62 | lua_error(L, "Lua2C - C2Lua overflow"); | 62 | lua_error(L, "Lua2C - C2Lua overflow"); |
| 63 | } | 63 | } |
| 64 | else | 64 | else |
| 65 | lua_error(L, "stack size overflow"); | 65 | lua_error(L, "stack overflow; possible recursion loop"); |
| 66 | } | 66 | } |
| 67 | } | 67 | } |
| 68 | } | 68 | } |
| @@ -254,7 +254,7 @@ void lua_error (lua_State *L, const char *s) { | |||
| 254 | if (L->errorJmp) | 254 | if (L->errorJmp) |
| 255 | longjmp(L->errorJmp->b, 1); | 255 | longjmp(L->errorJmp->b, 1); |
| 256 | else { | 256 | else { |
| 257 | message(L, "unable to recover. exiting.\n"); | 257 | message(L, "unable to recover; exiting\n"); |
| 258 | exit(1); | 258 | exit(1); |
| 259 | } | 259 | } |
| 260 | } | 260 | } |
| @@ -301,7 +301,7 @@ static int protectedparser (lua_State *L, ZIO *z, int bin) { | |||
| 301 | TProtoFunc *volatile tf; | 301 | TProtoFunc *volatile tf; |
| 302 | struct lua_longjmp *volatile oldErr = L->errorJmp; | 302 | struct lua_longjmp *volatile oldErr = L->errorJmp; |
| 303 | L->errorJmp = &myErrorJmp; | 303 | L->errorJmp = &myErrorJmp; |
| 304 | L->top = base; /* erase C2Lua */ | 304 | L->top = base; /* clear C2Lua */ |
| 305 | if (setjmp(myErrorJmp.b) == 0) { | 305 | if (setjmp(myErrorJmp.b) == 0) { |
| 306 | tf = bin ? luaU_undump1(L, z) : luaY_parser(L, z); | 306 | tf = bin ? luaU_undump1(L, z) : luaY_parser(L, z); |
| 307 | status = 0; | 307 | status = 0; |