diff options
author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-05-02 15:43:03 -0300 |
---|---|---|
committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1995-05-02 15:43:03 -0300 |
commit | 18ea2eff80c720632cb6a89d560c5cce2377df06 (patch) | |
tree | 67fc3acd282d134099b2f92657e191baeaff1277 /table.c | |
parent | 8156604823aa487f4436d33fe89302598faab3db (diff) | |
download | lua-18ea2eff80c720632cb6a89d560c5cce2377df06.tar.gz lua-18ea2eff80c720632cb6a89d560c5cce2377df06.tar.bz2 lua-18ea2eff80c720632cb6a89d560c5cce2377df06.zip |
calls to "lua_reportbug" changed to "lua_error", since
"lua_reportbug" is only an internal function to build debug information
Diffstat (limited to 'table.c')
-rw-r--r-- | table.c | 14 |
1 files changed, 7 insertions, 7 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** Module to control static tables | 3 | ** Module to control static tables |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_table="$Id: table.c,v 2.27 1995/01/13 22:11:12 roberto Exp celes $"; | 6 | char *rcs_table="$Id: table.c,v 2.28 1995/01/18 20:15:54 celes Exp roberto $"; |
7 | 7 | ||
8 | #include <string.h> | 8 | #include <string.h> |
9 | 9 | ||
@@ -11,8 +11,8 @@ char *rcs_table="$Id: table.c,v 2.27 1995/01/13 22:11:12 roberto Exp celes $"; | |||
11 | #include "opcode.h" | 11 | #include "opcode.h" |
12 | #include "tree.h" | 12 | #include "tree.h" |
13 | #include "hash.h" | 13 | #include "hash.h" |
14 | #include "inout.h" | ||
15 | #include "table.h" | 14 | #include "table.h" |
15 | #include "inout.h" | ||
16 | #include "lua.h" | 16 | #include "lua.h" |
17 | #include "fallback.h" | 17 | #include "fallback.h" |
18 | 18 | ||
@@ -228,14 +228,14 @@ static void lua_nextvar (void) | |||
228 | TreeNode *next; | 228 | TreeNode *next; |
229 | lua_Object o = lua_getparam(1); | 229 | lua_Object o = lua_getparam(1); |
230 | if (o == LUA_NOOBJECT) | 230 | if (o == LUA_NOOBJECT) |
231 | lua_reportbug("too few arguments to function `nextvar'"); | 231 | lua_error("too few arguments to function `nextvar'"); |
232 | if (lua_getparam(2) != LUA_NOOBJECT) | 232 | if (lua_getparam(2) != LUA_NOOBJECT) |
233 | lua_reportbug("too many arguments to function `nextvar'"); | 233 | lua_error("too many arguments to function `nextvar'"); |
234 | if (lua_isnil(o)) | 234 | if (lua_isnil(o)) |
235 | varname = NULL; | 235 | varname = NULL; |
236 | else if (!lua_isstring(o)) | 236 | else if (!lua_isstring(o)) |
237 | { | 237 | { |
238 | lua_reportbug("incorrect argument to function `nextvar'"); | 238 | lua_error("incorrect argument to function `nextvar'"); |
239 | return; /* to avoid warnings */ | 239 | return; /* to avoid warnings */ |
240 | } | 240 | } |
241 | else | 241 | else |
@@ -262,7 +262,7 @@ static void setglobal (void) | |||
262 | lua_Object name = lua_getparam(1); | 262 | lua_Object name = lua_getparam(1); |
263 | lua_Object value = lua_getparam(2); | 263 | lua_Object value = lua_getparam(2); |
264 | if (!lua_isstring(name)) | 264 | if (!lua_isstring(name)) |
265 | lua_reportbug("incorrect argument to function `setglobal'"); | 265 | lua_error("incorrect argument to function `setglobal'"); |
266 | lua_pushobject(value); | 266 | lua_pushobject(value); |
267 | lua_storeglobal(lua_getstring(name)); | 267 | lua_storeglobal(lua_getstring(name)); |
268 | } | 268 | } |
@@ -272,6 +272,6 @@ static void getglobal (void) | |||
272 | { | 272 | { |
273 | lua_Object name = lua_getparam(1); | 273 | lua_Object name = lua_getparam(1); |
274 | if (!lua_isstring(name)) | 274 | if (!lua_isstring(name)) |
275 | lua_reportbug("incorrect argument to function `getglobal'"); | 275 | lua_error("incorrect argument to function `getglobal'"); |
276 | lua_pushobject(lua_getglobal(lua_getstring(name))); | 276 | lua_pushobject(lua_getglobal(lua_getstring(name))); |
277 | } | 277 | } |