diff options
-rw-r--r-- | ldo.c | 4 | ||||
-rw-r--r-- | lmem.c | 6 | ||||
-rw-r--r-- | lvm.c | 4 |
3 files changed, 7 insertions, 7 deletions
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: ldo.c,v 2.85 2010/04/18 12:41:35 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.86 2010/04/18 13:22:48 roberto Exp roberto $ |
3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -476,7 +476,7 @@ static int recover (lua_State *L, int status) { | |||
476 | /* | 476 | /* |
477 | ** signal an error in the call to 'resume', not in the execution of the | 477 | ** signal an error in the call to 'resume', not in the execution of the |
478 | ** coroutine itself. (Such errors should not be handled by any coroutine | 478 | ** coroutine itself. (Such errors should not be handled by any coroutine |
479 | ** error hanlder and should not kill the coroutine.) | 479 | ** error handler and should not kill the coroutine.) |
480 | */ | 480 | */ |
481 | static void resume_error (lua_State *L, const char *msg, StkId firstArg) { | 481 | static void resume_error (lua_State *L, const char *msg, StkId firstArg) { |
482 | L->top = firstArg; /* remove args from the stack */ | 482 | L->top = firstArg; /* remove args from the stack */ |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lmem.c,v 1.77 2010/04/30 18:17:24 roberto Exp roberto $ | 2 | ** $Id: lmem.c,v 1.78 2010/05/04 18:10:02 roberto Exp roberto $ |
3 | ** Interface to Memory Manager | 3 | ** Interface to Memory Manager |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -98,13 +98,13 @@ void *luaM_realloc_ (lua_State *L, void *block, size_t osize, size_t nsize) { | |||
98 | if (!gcstopped(g)) | 98 | if (!gcstopped(g)) |
99 | g->GCdebt += nsize; /* give some credit to garbage collector */ | 99 | g->GCdebt += nsize; /* give some credit to garbage collector */ |
100 | #if defined(TRACEMEM) | 100 | #if defined(TRACEMEM) |
101 | { /* auxiliar patch to monitor garbage collection. | 101 | { /* auxiliary patch to monitor garbage collection. |
102 | ** To plot, gnuplot with following command: | 102 | ** To plot, gnuplot with following command: |
103 | ** plot TRACEMEM using 1:2 with lines, TRACEMEM using 1:3 with lines | 103 | ** plot TRACEMEM using 1:2 with lines, TRACEMEM using 1:3 with lines |
104 | */ | 104 | */ |
105 | static unsigned long total = 0; /* our "time" */ | 105 | static unsigned long total = 0; /* our "time" */ |
106 | static FILE *f = NULL; /* output file */ | 106 | static FILE *f = NULL; /* output file */ |
107 | total++; /* "time" always grow */ | 107 | total++; /* "time" always grows */ |
108 | if ((total % 200) == 0) { | 108 | if ((total % 200) == 0) { |
109 | if (f == NULL) f = fopen(TRACEMEM, "w"); | 109 | if (f == NULL) f = fopen(TRACEMEM, "w"); |
110 | fprintf(f, "%lu %u %d %d\n", total, | 110 | fprintf(f, "%lu %u %d %d\n", total, |
@@ -1,5 +1,5 @@ | |||
1 | /* | 1 | /* |
2 | ** $Id: lvm.c,v 2.115 2010/04/19 17:58:46 roberto Exp roberto $ | 2 | ** $Id: lvm.c,v 2.116 2010/05/04 17:25:19 roberto Exp roberto $ |
3 | ** Lua virtual machine | 3 | ** Lua virtual machine |
4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
5 | */ | 5 | */ |
@@ -751,7 +751,7 @@ void luaV_execute (lua_State *L) { | |||
751 | h = hvalue(ra); | 751 | h = hvalue(ra); |
752 | last = ((c-1)*LFIELDS_PER_FLUSH) + n; | 752 | last = ((c-1)*LFIELDS_PER_FLUSH) + n; |
753 | if (last > h->sizearray) /* needs more space? */ | 753 | if (last > h->sizearray) /* needs more space? */ |
754 | luaH_resizearray(L, h, last); /* pre-alloc it at once */ | 754 | luaH_resizearray(L, h, last); /* pre-allocate it at once */ |
755 | for (; n > 0; n--) { | 755 | for (; n > 0; n--) { |
756 | TValue *val = ra+n; | 756 | TValue *val = ra+n; |
757 | setobj2t(L, luaH_setint(L, h, last--), val); | 757 | setobj2t(L, luaH_setint(L, h, last--), val); |