diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-01-19 10:00:45 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2000-01-19 10:00:45 -0200 |
| commit | 2877bad4c260d11c22c3b12e633d6b1ca3415789 (patch) | |
| tree | 2109684c4521c34b584bfd24e0eae05688c7fc32 /lauxlib.c | |
| parent | 27163f032eed6b851b98a0ab67b1387d701e61c0 (diff) | |
| download | lua-2877bad4c260d11c22c3b12e633d6b1ca3415789.tar.gz lua-2877bad4c260d11c22c3b12e633d6b1ca3415789.tar.bz2 lua-2877bad4c260d11c22c3b12e633d6b1ca3415789.zip | |
new debug API (first version)
Diffstat (limited to 'lauxlib.c')
| -rw-r--r-- | lauxlib.c | 16 |
1 files changed, 8 insertions, 8 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lauxlib.c,v 1.23 1999/12/27 17:33:22 roberto Exp roberto $ | 2 | ** $Id: lauxlib.c,v 1.24 1999/12/28 11:52:49 roberto Exp roberto $ |
| 3 | ** Auxiliary functions for building Lua libraries | 3 | ** Auxiliary functions for building Lua libraries |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -31,14 +31,14 @@ int luaL_findstring (const char *name, const char *const list[]) { | |||
| 31 | } | 31 | } |
| 32 | 32 | ||
| 33 | void luaL_argerror (lua_State *L, int narg, const char *extramsg) { | 33 | void luaL_argerror (lua_State *L, int narg, const char *extramsg) { |
| 34 | lua_Function f = lua_stackedfunction(L, 0); | 34 | lua_Dbgactreg ar; |
| 35 | const char *funcname; | 35 | lua_getstack(L, 0, &ar); |
| 36 | lua_getobjname(L, f, &funcname); | 36 | lua_getinfo(L, "nu", &ar); |
| 37 | narg -= lua_nups(L, f); | 37 | narg -= ar.nups; |
| 38 | if (funcname == NULL) | 38 | if (ar.name == NULL) |
| 39 | funcname = "?"; | 39 | ar.name = "?"; |
| 40 | luaL_verror(L, "bad argument #%d to `%.50s' (%.100s)", | 40 | luaL_verror(L, "bad argument #%d to `%.50s' (%.100s)", |
| 41 | narg, funcname, extramsg); | 41 | narg, ar.name, extramsg); |
| 42 | } | 42 | } |
| 43 | 43 | ||
| 44 | 44 | ||