aboutsummaryrefslogtreecommitdiff
path: root/ldebug.c
diff options
context:
space:
mode:
Diffstat (limited to 'ldebug.c')
-rw-r--r--ldebug.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/ldebug.c b/ldebug.c
index 2b7f566f..5123f77d 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -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
509void luaG_ordererror (lua_State *L, const TObject *p1, const TObject *p2) { 509int 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