diff options
Diffstat (limited to 'ldebug.c')
-rw-r--r-- | ldebug.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldebug.c,v 1.121 2002/06/18 17:10:43 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 1.122 2002/06/20 20:39:44 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 | */ |
@@ -506,13 +506,14 @@ void luaG_aritherror (lua_State *L, StkId p1, const TObject *p2) { | |||
506 | } | 506 | } |
507 | 507 | ||
508 | 508 | ||
509 | void luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) { | 509 | int luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) { |
510 | const char *t1 = luaT_typenames[ttype(p1)]; | 510 | const char *t1 = luaT_typenames[ttype(p1)]; |
511 | const char *t2 = luaT_typenames[ttype(p2)]; | 511 | const char *t2 = luaT_typenames[ttype(p2)]; |
512 | if (t1[2] == t2[2]) | 512 | if (t1[2] == t2[2]) |
513 | luaG_runerror(L, "attempt to compare two %s values", t1); | 513 | luaG_runerror(L, "attempt to compare two %s values", t1); |
514 | else | 514 | else |
515 | luaG_runerror(L, "attempt to compare %s with %s", t1, t2); | 515 | luaG_runerror(L, "attempt to compare %s with %s", t1, t2); |
516 | return 0; | ||
516 | } | 517 | } |
517 | 518 | ||
518 | 519 | ||