aboutsummaryrefslogtreecommitdiff
path: root/ldo.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-12-27 15:33:22 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1999-12-27 15:33:22 -0200
commitacdb0b741e31adebfa4f608f8bf23e65fa68d741 (patch)
treea4f3bb695c4b2ae03ef8e02d15953bc12de25a9d /ldo.c
parent5b08fcd5a1392a7440cae91e68f350a44b136806 (diff)
downloadlua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.tar.gz
lua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.tar.bz2
lua-acdb0b741e31adebfa4f608f8bf23e65fa68d741.zip
comments.
Diffstat (limited to 'ldo.c')
-rw-r--r--ldo.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/ldo.c b/ldo.c
index 3fde714b..e4751e48 100644
--- a/ldo.c
+++ b/ldo.c
@@ -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*/
258void lua_error (lua_State *L, const char *s) { 258void 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}