diff options
Diffstat (limited to 'ldebug.c')
| -rw-r--r-- | ldebug.c | 12 |
1 files changed, 7 insertions, 5 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 2.97 2013/12/09 14:21:10 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.98 2014/07/15 21:26:50 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 | */ |
| @@ -534,18 +534,20 @@ l_noret luaG_concaterror (lua_State *L, const TValue *p1, const TValue *p2) { | |||
| 534 | 534 | ||
| 535 | l_noret luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) { | 535 | l_noret luaG_aritherror (lua_State *L, const TValue *p1, const TValue *p2) { |
| 536 | lua_Number temp; | 536 | lua_Number temp; |
| 537 | if (!tonumber(p1, &temp)) | 537 | if (!tonumber(p1, &temp)) /* first operand is wrong? */ |
| 538 | p2 = p1; /* first operand is wrong */ | 538 | p2 = p1; /* now second is wrong */ |
| 539 | luaG_typeerror(L, p2, "perform arithmetic on"); | 539 | luaG_typeerror(L, p2, "perform arithmetic on"); |
| 540 | } | 540 | } |
| 541 | 541 | ||
| 542 | 542 | ||
| 543 | /* | ||
| 544 | ** Error when both values are convertible to numbers, but not to integers | ||
| 545 | */ | ||
| 543 | l_noret luaG_tointerror (lua_State *L, const TValue *p1, const TValue *p2) { | 546 | l_noret luaG_tointerror (lua_State *L, const TValue *p1, const TValue *p2) { |
| 544 | lua_Integer temp; | 547 | lua_Integer temp; |
| 545 | if (!tointeger(p1, &temp)) | 548 | if (!tointeger(p1, &temp)) |
| 546 | p2 = p1; | 549 | p2 = p1; |
| 547 | luaG_runerror(L, "attempt to convert an out of range float%s to an integer", | 550 | luaG_runerror(L, "number%s has no integer representation", varinfo(L, p2)); |
| 548 | varinfo(L, p2)); | ||
| 549 | } | 551 | } |
| 550 | 552 | ||
| 551 | 553 | ||
