1 files changed, 5 insertions, 5 deletions
diff --git a/ldebug.c b/ldebug.c
index 5f114f88..f8369d2d 100644
--- a/ldebug.c
+++ b/ldebug.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ldebug.c,v 1.74 2001/03/07 18:09:25 roberto Exp roberto $
+** $Id: ldebug.c,v 1.75 2001/03/26 14:31:49 roberto Exp roberto $
 ** Debug Interface
 ** See Copyright Notice in lua.h
 */
@@ -419,13 +419,13 @@ static Instruction luaG_symbexec (lua_State *L, const Proto *pt,
        break;
      }
      case OP_SETLIST: {
-        pop = arg2;
+        check(arg2 >= 0);
-        check(top-pop >= 1);  /* there must be a table below the list */
+        pop = top-arg2-1;
        break;
      }
      case OP_SETMAP: {
-        pop = 2*arg1;
+        check(arg1 >= 0);
-        check(top-pop >= 1);
+        pop = top-arg1-1;
        break;
      }
      case OP_CONCAT: {

diff --git a/ldebug.c b/ldebug.c index 5f114f88..f8369d2d 100644 --- a/ldebug.c +++ b/ldebug.c
@@ -1,5 +1,5 @@
1	/*	1	/*
2	** $Id: ldebug.c,v 1.74 2001/03/07 18:09:25 roberto Exp roberto $	2	** $Id: ldebug.c,v 1.75 2001/03/26 14:31:49 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	*/
@@ -419,13 +419,13 @@ static Instruction luaG_symbexec (lua_State L, const Proto pt,
419	break;	419	break;
420	}	420	}
421	case OP_SETLIST: {	421	case OP_SETLIST: {
422	pop = arg2;	422	check(arg2 >= 0);
423	check(top-pop >= 1); /* there must be a table below the list */	423	pop = top-arg2-1;
424	break;	424	break;
425	}	425	}
426	case OP_SETMAP: {	426	case OP_SETMAP: {
427	pop = 2*arg1;	427	check(arg1 >= 0);
428	check(top-pop >= 1);	428	pop = top-arg1-1;
429	break;	429	break;
430	}	430	}
431	case OP_CONCAT: {	431	case OP_CONCAT: {