lua

commit cfa8bc3ca4befd1df216d8007b8557da2976f359
parent a654e82f5c0dcc57d5db385a359379d226054b39
Author: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date:   Fri, 27 Nov 2009 13:39:07 -0200

continuations may be upvalues too

Diffstat:
M
ltests.c
 | 
9
+++++----

1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/ltests.c b/ltests.c
@@ -1,5 +1,5 @@
 /*
-** $Id: ltests.c,v 2.78 2009/11/05 17:43:54 roberto Exp roberto $
+** $Id: ltests.c,v 2.79 2009/11/06 17:08:43 roberto Exp roberto $
 ** Internal Module for Debugging of the Lua Implementation
 ** See Copyright Notice in lua.h
 */
@@ -875,6 +875,7 @@ static int Cfunck (lua_State *L);
 
 static int runC (lua_State *L, lua_State *L1, const char *pc) {
   char buff[30];
+  if (pc == NULL) return luaL_error(L, "attempt to runC null code");
   for (;;) {
     const char *inst = getname;
     if EQ("") return 0;
@@ -1039,13 +1040,13 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
     else if EQ("pcallk") {
       int narg = getnum;
       int nres = getnum;
-      int i = getnum;
+      int i = getindex;
       lua_pcallk(L1, narg, nres, 0, i, Cfunck);
     }
     else if EQ("callk") {
       int narg = getnum;
       int nres = getnum;
-      int i = getnum;
+      int i = getindex;
       lua_callk(L1, narg, nres, i, Cfunck);
     }
     else if EQ("yield") {
@@ -1053,7 +1054,7 @@ static int runC (lua_State *L, lua_State *L1, const char *pc) {
     }
     else if EQ("yieldk") {
       int nres = getnum;
-      int i = getnum;
+      int i = getindex;
       return lua_yieldk(L1, nres, i, Cfunck);
     }
     else if EQ("loadstring") {