diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2016-02-26 16:20:15 -0300 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2016-02-26 16:20:15 -0300 |
| commit | 7777b412deb46d051967b699697d1d6e6286a7b6 (patch) | |
| tree | d6af032d014eb42f7328d071934156a37050fbbc /ldebug.c | |
| parent | c3e9b14d24afe14b2fc59c83d134430be5568769 (diff) | |
| download | lua-7777b412deb46d051967b699697d1d6e6286a7b6.tar.gz lua-7777b412deb46d051967b699697d1d6e6286a7b6.tar.bz2 lua-7777b412deb46d051967b699697d1d6e6286a7b6.zip | |
When available, use metafield '__name' in error messages
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 10 |
1 files changed, 5 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 2.117 2015/11/02 18:48:07 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.118 2015/12/16 16:40:07 roberto Exp roberto $ |
| 3 | ** Debug Interface | 3 | ** Debug Interface |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -564,7 +564,7 @@ static const char *varinfo (lua_State *L, const TValue *o) { | |||
| 564 | 564 | ||
| 565 | 565 | ||
| 566 | l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) { | 566 | l_noret luaG_typeerror (lua_State *L, const TValue *o, const char *op) { |
| 567 | const char *t = objtypename(o); | 567 | const char *t = luaT_objtypename(L, o); |
| 568 | luaG_runerror(L, "attempt to %s a %s value%s", op, t, varinfo(L, o)); | 568 | luaG_runerror(L, "attempt to %s a %s value%s", op, t, varinfo(L, o)); |
| 569 | } | 569 | } |
| 570 | 570 | ||
| @@ -596,9 +596,9 @@ l_noret luaG_tointerror (lua_State *L, const TValue *p1, const TValue *p2) { | |||
| 596 | 596 | ||
| 597 | 597 | ||
| 598 | l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { | 598 | l_noret luaG_ordererror (lua_State *L, const TValue *p1, const TValue *p2) { |
| 599 | const char *t1 = objtypename(p1); | 599 | const char *t1 = luaT_objtypename(L, p1); |
| 600 | const char *t2 = objtypename(p2); | 600 | const char *t2 = luaT_objtypename(L, p2); |
| 601 | if (t1 == t2) | 601 | if (strcmp(t1, t2) == 0) |
| 602 | luaG_runerror(L, "attempt to compare two %s values", t1); | 602 | luaG_runerror(L, "attempt to compare two %s values", t1); |
| 603 | else | 603 | else |
| 604 | luaG_runerror(L, "attempt to compare %s with %s", t1, t2); | 604 | luaG_runerror(L, "attempt to compare %s with %s", t1, t2); |
