DIFFS

   1 diff -r lua-5.0/COPYRIGHT lua-5.0.2/COPYRIGHT
   2 12c12
   3 < Copyright (C) 2003 Tecgraf, PUC-Rio.
   4 ---
   5 > Copyright (C) 2003-2004 Tecgraf, PUC-Rio.
   6 diff -r lua-5.0/Makefile lua-5.0.2/Makefile
   7 98a99,101
   8 > newer:
   9 >       @find . -newer MANIFEST -type f
  10 >
  11 diff -r lua-5.0/doc/readme.html lua-5.0.2/doc/readme.html
  12 16c16
  13 < <LI><A HREF="manual.html">Reference manual</A>
  14 ---
  15 > <LI><A HREF="contents.html">Reference manual</A>
  16 31c31
  17 < Tue Apr  1 14:35:18 EST 2003
  18 ---
  19 > Thu Mar 11 23:08:56 BRT 2004
  20 diff -r lua-5.0/include/lua.h lua-5.0.2/include/lua.h
  21 2c2
  22 < ** $Id: lua.h,v 1.175 2003/03/18 12:31:39 roberto Exp $
  23 ---
  24 > ** $Id: lua.h,v 1.175b 2003/03/18 12:31:39 roberto Exp $
  25 17,18c17,18
  26 < #define LUA_VERSION   "Lua 5.0"
  27 < #define LUA_COPYRIGHT "Copyright (C) 1994-2003 Tecgraf, PUC-Rio"
  28 ---
  29 > #define LUA_VERSION   "Lua 5.0.2"
  30 > #define LUA_COPYRIGHT "Copyright (C) 1994-2004 Tecgraf, PUC-Rio"
  31 368c368
  32 < * Copyright (C) 1994-2003 Tecgraf, PUC-Rio.  All rights reserved.
  33 ---
  34 > * Copyright (C) 1994-2004 Tecgraf, PUC-Rio.  All rights reserved.
  35 diff -r lua-5.0/src/ldo.c lua-5.0.2/src/ldo.c
  36 2c2
  37 < ** $Id: ldo.c,v 1.217 2003/04/03 13:35:34 roberto Exp $
  38 ---
  39 > ** $Id: ldo.c,v 1.217a 2003/04/03 13:35:34 roberto Exp $
  40 325,326c325
  41 <     if (nargs >= L->top - L->base)
  42 <       luaG_runerror(L, "cannot resume dead coroutine");
  43 ---
  44 >     lua_assert(nargs < L->top - L->base);
  45 329c328,329
  46 <   else if (ci->state & CI_YIELD) {  /* inside a yield? */
  47 ---
  48 >   else {  /* inside a yield */
  49 >     lua_assert(ci->state & CI_YIELD);
  50 344,345d343
  51 <   else
  52 <     luaG_runerror(L, "cannot resume non-suspended coroutine");
  53 351a350,358
  54 > static int resume_error (lua_State *L, const char *msg) {
  55 >   L->top = L->ci->base;
  56 >   setsvalue2s(L->top, luaS_new(L, msg));
  57 >   incr_top(L);
  58 >   lua_unlock(L);
  59 >   return LUA_ERRRUN;
  60 > }
  61 >
  62 >
  63 355a363,368
  64 >   if (L->ci == L->base_ci) {
  65 >     if (nargs >= L->top - L->base)
  66 >       return resume_error(L, "cannot resume dead coroutine");
  67 >   }
  68 >   else if (!(L->ci->state & CI_YIELD))  /* not inside a yield? */
  69 >     return resume_error(L, "cannot resume non-suspended coroutine");
  70 diff -r lua-5.0/src/lgc.c lua-5.0.2/src/lgc.c
  71 2c2
  72 < ** $Id: lgc.c,v 1.171 2003/04/03 13:35:34 roberto Exp $
  73 ---
  74 > ** $Id: lgc.c,v 1.171a 2003/04/03 13:35:34 roberto Exp $
  75 113c113,114
  76 < void luaC_separateudata (lua_State *L) {
  77 ---
  78 > size_t luaC_separateudata (lua_State *L) {
  79 >   size_t deadmem = 0;
  80 127a129
  81 >       deadmem += sizeudata(gcotou(curr)->uv.len);
  82 136a139
  83 >   return deadmem;
  84 247c250
  85 <     if (!(ci->state & CI_C) && lim < ci->top)
  86 ---
  87 >     if (lim < ci->top)
  88 390c393
  89 < static void checkSizes (lua_State *L) {
  90 ---
  91 > static void checkSizes (lua_State *L, size_t deadmem) {
  92 400c403
  93 <   G(L)->GCthreshold = 2*G(L)->nblocks;  /* new threshold */
  94 ---
  95 >   G(L)->GCthreshold = 2*G(L)->nblocks - deadmem;  /* new threshold */
  96 454c457,458
  97 < static void mark (lua_State *L) {
  98 ---
  99 > static size_t mark (lua_State *L) {
 100 >   size_t deadmem;
 101 467c471
 102 <   luaC_separateudata(L);  /* separate userdata to be preserved */
 103 ---
 104 >   deadmem = luaC_separateudata(L);  /* separate userdata to be preserved */
 105 475a480
 106 >   return deadmem;
 107 480c485
 108 <   mark(L);
 109 ---
 110 >   size_t deadmem = mark(L);
 111 482c487
 112 <   checkSizes(L);
 113 ---
 114 >   checkSizes(L, deadmem);
 115 diff -r lua-5.0/src/lgc.h lua-5.0.2/src/lgc.h
 116 2c2
 117 < ** $Id: lgc.h,v 1.19 2003/02/28 19:45:15 roberto Exp $
 118 ---
 119 > ** $Id: lgc.h,v 1.19a 2003/02/28 19:45:15 roberto Exp $
 120 18c18
 121 < void luaC_separateudata (lua_State *L);
 122 ---
 123 > size_t luaC_separateudata (lua_State *L);
 124 diff -r lua-5.0/src/lib/lbaselib.c lua-5.0.2/src/lib/lbaselib.c
 125 2c2
 126 < ** $Id: lbaselib.c,v 1.130 2003/04/03 13:35:34 roberto Exp $
 127 ---
 128 > ** $Id: lbaselib.c,v 1.130b 2003/04/03 13:35:34 roberto Exp $
 129 276a277
 130 >   int n = lua_gettop(L);
 131 280c281
 132 <   return lua_gettop(L) - 1;
 133 ---
 134 >   return lua_gettop(L) - n;
 135 327c328
 136 <   char buff[64];
 137 ---
 138 >   char buff[128];
 139 diff -r lua-5.0/src/lib/liolib.c lua-5.0.2/src/lib/liolib.c
 140 2c2
 141 < ** $Id: liolib.c,v 2.39 2003/03/19 21:16:12 roberto Exp $
 142 ---
 143 > ** $Id: liolib.c,v 2.39a 2003/03/19 21:16:12 roberto Exp $
 144 161c161
 145 <   if (lua_isnone(L, 1)) {
 146 ---
 147 >   if (lua_isnone(L, 1) && lua_type(L, lua_upvalueindex(1)) == LUA_TTABLE) {
 148 178c178
 149 <   char buff[32];
 150 ---
 151 >   char buff[128];
 152 diff -r lua-5.0/src/lparser.c lua-5.0.2/src/lparser.c
 153 2c2
 154 < ** $Id: lparser.c,v 1.208 2003/04/03 13:35:34 roberto Exp $
 155 ---
 156 > ** $Id: lparser.c,v 1.208a 2003/04/03 13:35:34 roberto Exp $
 157 1143a1144
 158 >   FuncState *fs = ls->fs;
 159 1145c1146,1147
 160 <   init_exp(&v, VLOCAL, ls->fs->freereg++);
 161 ---
 162 >   init_exp(&v, VLOCAL, fs->freereg);
 163 >   luaK_reserveregs(fs, 1);
 164 1148c1150,1152
 165 <   luaK_storevar(ls->fs, &v, &b);
 166 ---
 167 >   luaK_storevar(fs, &v, &b);
 168 >   /* debug information will only see the variable after this point! */
 169 >   getlocvar(fs, fs->nactvar - 1).startpc = fs->pc;
 170 diff -r lua-5.0/src/luac/Makefile lua-5.0.2/src/luac/Makefile
 171 16c16
 172 <       $(CC) -o $@ $(MYLDFLAGS) $(OBJS) -L$(LIB) -llua -llualib $(EXTRA_LIBS)
 173 ---
 174 >       $(CC) -o $@ $(MYLDFLAGS) $(OBJS) -L$(LIB) -llua -llualib $(EXTRA_LIBS) $(DLLIB)
 175 diff -r lua-5.0/src/luac/luac.c lua-5.0.2/src/luac/luac.c
 176 2c2
 177 < ** $Id: luac.c,v 1.44 2003/04/07 20:34:20 lhf Exp $
 178 ---
 179 > ** $Id: luac.c,v 1.44a 2003/04/07 20:34:20 lhf Exp $
 180 184a185
 181 >   lua_lock(L);
 182 185a187
 183 >   lua_unlock(L);
 184 diff -r lua-5.0/src/lvm.c lua-5.0.2/src/lvm.c
 185 2c2
 186 < ** $Id: lvm.c,v 1.284 2003/04/03 13:35:34 roberto Exp $
 187 ---
 188 > ** $Id: lvm.c,v 1.284b 2003/04/03 13:35:34 roberto Exp $
 189 69c69
 190 <   if (mask > LUA_MASKLINE) {  /* instruction-hook set? */
 191 ---
 192 >   if (mask & LUA_MASKCOUNT) {  /* instruction-hook set? */
 193 402,403c402,403
 194 <   L->ci->u.l.pc = &pc;
 195 <   if (L->hookmask & LUA_MASKCALL)
 196 ---
 197 >   if (L->hookmask & LUA_MASKCALL) {
 198 >     L->ci->u.l.pc = &pc;
 199 404a405
 200 >   }
 201 405a407
 202 >   L->ci->u.l.pc = &pc;
 203 676,678c678
 204 <           lua_assert(ci->u.l.pc == &pc &&
 205 <                      ttisfunction(ci->base - 1) &&
 206 <                      (ci->state & CI_SAVEDPC));
 207 ---
 208 >           lua_assert(ttisfunction(ci->base - 1) && (ci->state & CI_SAVEDPC));
 209 779a780
 210 >
 211 diff -r lua-5.0/test/luac.lua lua-5.0.2/test/luac.lua
 212 4,6c4,6
 213 < assert(arg[1]~=nil,"usage: lua luac.lua file.lua")
 214 < f=assert(io.open("luac.out","w"))
 215 < f:write(string.dump(loadfile(arg[1])))
 216 ---
 217 > assert(arg[1]~=nil and arg[2]==nil,"usage: lua luac.lua file.lua")
 218 > f=assert(io.open("luac.out","wb"))
 219 > f:write(string.dump(assert(loadfile(arg[1]))))
 220 diff -r lua-5.0/test/table.lua lua-5.0.2/test/table.lua
 221 8c8
 222 <  local _,_,a,b=string.find(l,'"?(%w+)"?%s*(.*)$')
 223 ---
 224 >  local _,_,a,b=string.find(l,'"?([_%w]+)"?%s*(.*)$')