diff options
Diffstat (limited to 'ldo.c')
| -rw-r--r-- | ldo.c | 8 |
1 files changed, 4 insertions, 4 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 1.59 1999/12/21 18:04:41 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 1.60 1999/12/23 18:19:57 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 | */ |
| @@ -56,7 +56,7 @@ void luaD_checkstack (lua_State *L, int n) { | |||
| 56 | else { | 56 | else { |
| 57 | L->stack_last += EXTRA_STACK; /* to be used by error message */ | 57 | L->stack_last += EXTRA_STACK; /* to be used by error message */ |
| 58 | if (lua_stackedfunction(L, L->stacksize/SLOTS_PER_F) == LUA_NOOBJECT) { | 58 | if (lua_stackedfunction(L, L->stacksize/SLOTS_PER_F) == LUA_NOOBJECT) { |
| 59 | /* too few funcs on stack: doesn't look like a rec. loop */ | 59 | /* too few funcs on stack: doesn't look like a recursion loop */ |
| 60 | lua_error(L, "Lua2C - C2Lua overflow"); | 60 | lua_error(L, "Lua2C - C2Lua overflow"); |
| 61 | } | 61 | } |
| 62 | else | 62 | else |
| @@ -253,14 +253,14 @@ static void message (lua_State *L, const char *s) { | |||
| 253 | } | 253 | } |
| 254 | 254 | ||
| 255 | /* | 255 | /* |
| 256 | ** Reports an error, and jumps up to the available recover label | 256 | ** Reports an error, and jumps up to the available recovery label |
| 257 | */ | 257 | */ |
| 258 | void lua_error (lua_State *L, const char *s) { | 258 | void lua_error (lua_State *L, const char *s) { |
| 259 | if (s) message(L, s); | 259 | if (s) message(L, s); |
| 260 | if (L->errorJmp) | 260 | if (L->errorJmp) |
| 261 | longjmp(L->errorJmp->b, 1); | 261 | longjmp(L->errorJmp->b, 1); |
| 262 | else { | 262 | else { |
| 263 | message(L, "exit(1). Unable to recover.\n"); | 263 | message(L, "unable to recover. exiting.\n"); |
| 264 | exit(1); | 264 | exit(1); |
| 265 | } | 265 | } |
| 266 | } | 266 | } |
