diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-01-24 18:11:26 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-01-24 18:11:26 -0200 |
| commit | 9744255ae929d11661ae622201a6d627b6403088 (patch) | |
| tree | f030039e99a1b1a5d368a412fd3b84bfc43d4ea1 | |
| parent | 512b15b6012c14b0b58c4531078d27794a583f84 (diff) | |
| download | lua-9744255ae929d11661ae622201a6d627b6403088.tar.gz lua-9744255ae929d11661ae622201a6d627b6403088.tar.bz2 lua-9744255ae929d11661ae622201a6d627b6403088.zip | |
error in call must be propagated
| -rw-r--r-- | ltests.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ltests.c,v 1.4 2000/01/13 16:30:47 roberto Exp roberto $ | 2 | ** $Id: ltests.c,v 1.5 2000/01/19 12:00:45 roberto Exp roberto $ |
| 3 | ** Internal Module for Debugging of the Lua Implementation | 3 | ** Internal Module for Debugging of the Lua Implementation |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -182,7 +182,7 @@ static void testC (lua_State *L) { | |||
| 182 | lua_pushobject(L, reg[getreg(L, &pc)]); | 182 | lua_pushobject(L, reg[getreg(L, &pc)]); |
| 183 | } | 183 | } |
| 184 | else if EQ("call") { | 184 | else if EQ("call") { |
| 185 | lua_call(L, getname(&pc)); | 185 | if (lua_call(L, getname(&pc))) lua_error(L, NULL); |
| 186 | } | 186 | } |
| 187 | else if EQ("gettable") { | 187 | else if EQ("gettable") { |
| 188 | reg[getreg(L, &pc)] = lua_gettable(L); | 188 | reg[getreg(L, &pc)] = lua_gettable(L); |