diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-04-14 12:30:03 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 1997-04-14 12:30:03 -0300 |
| commit | d73c5bcfe79459efafb4d4ede67ece8df9f6ef16 (patch) | |
| tree | 41603d8105899889346fb04b259ef7bcab1df3a8 | |
| parent | e78c1c54aacdd581f729214b199b2eb750a349ac (diff) | |
| download | lua-d73c5bcfe79459efafb4d4ede67ece8df9f6ef16.tar.gz lua-d73c5bcfe79459efafb4d4ede67ece8df9f6ef16.tar.bz2 lua-d73c5bcfe79459efafb4d4ede67ece8df9f6ef16.zip | |
function name is only needed *if* there is an error.
| -rw-r--r-- | auxlib.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,4 +1,4 @@ | |||
| 1 | char *rcs_auxlib="$Id: auxlib.c,v 1.3 1997/04/06 14:08:08 roberto Exp roberto $"; | 1 | char *rcs_auxlib="$Id: auxlib.c,v 1.4 1997/04/07 14:48:53 roberto Exp roberto $"; |
| 2 | 2 | ||
| 3 | #include <stdio.h> | 3 | #include <stdio.h> |
| 4 | #include <stdarg.h> | 4 | #include <stdarg.h> |
| @@ -22,11 +22,11 @@ int luaI_findstring (char *name, char *list[]) | |||
| 22 | 22 | ||
| 23 | void luaL_arg_check(int cond, int numarg, char *extramsg) | 23 | void luaL_arg_check(int cond, int numarg, char *extramsg) |
| 24 | { | 24 | { |
| 25 | char *funcname; | ||
| 26 | lua_getobjname(lua_stackedfunction(0), &funcname); | ||
| 27 | if (funcname == NULL) | ||
| 28 | funcname = "???"; | ||
| 29 | if (!cond) { | 25 | if (!cond) { |
| 26 | char *funcname; | ||
| 27 | lua_getobjname(lua_stackedfunction(0), &funcname); | ||
| 28 | if (funcname == NULL) | ||
| 29 | funcname = "???"; | ||
| 30 | if (extramsg == NULL) | 30 | if (extramsg == NULL) |
| 31 | luaL_verror("bad argument #%d to function `%s'", numarg, funcname); | 31 | luaL_verror("bad argument #%d to function `%s'", numarg, funcname); |
| 32 | else | 32 | else |