diff options
| -rw-r--r-- | lgc.c | 8 | ||||
| -rw-r--r-- | liolib.c | 4 |
2 files changed, 6 insertions, 6 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lgc.c,v 2.194 2014/09/03 16:54:41 roberto Exp roberto $ | 2 | ** $Id: lgc.c,v 2.195 2014/09/04 18:15:29 roberto Exp roberto $ |
| 3 | ** Garbage Collector | 3 | ** Garbage Collector |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -852,7 +852,7 @@ static GCObject **findlast (GCObject **p) { | |||
| 852 | 852 | ||
| 853 | /* | 853 | /* |
| 854 | ** move all unreachable objects (or 'all' objects) that need | 854 | ** move all unreachable objects (or 'all' objects) that need |
| 855 | ** finalization from list 'p' to list 'tobefnz' (to be finalized) | 855 | ** finalization from list 'finobj' to list 'tobefnz' (to be finalized) |
| 856 | */ | 856 | */ |
| 857 | static void separatetobefnz (global_State *g, int all) { | 857 | static void separatetobefnz (global_State *g, int all) { |
| 858 | GCObject *curr; | 858 | GCObject *curr; |
| @@ -863,7 +863,7 @@ static void separatetobefnz (global_State *g, int all) { | |||
| 863 | if (!(iswhite(curr) || all)) /* not being collected? */ | 863 | if (!(iswhite(curr) || all)) /* not being collected? */ |
| 864 | p = &curr->next; /* don't bother with it */ | 864 | p = &curr->next; /* don't bother with it */ |
| 865 | else { | 865 | else { |
| 866 | *p = curr->next; /* remove 'curr' from "fin" list */ | 866 | *p = curr->next; /* remove 'curr' from 'finobj' list */ |
| 867 | curr->next = *lastnext; /* link at the end of 'tobefnz' list */ | 867 | curr->next = *lastnext; /* link at the end of 'tobefnz' list */ |
| 868 | *lastnext = curr; | 868 | *lastnext = curr; |
| 869 | lastnext = &curr->next; | 869 | lastnext = &curr->next; |
| @@ -891,7 +891,7 @@ void luaC_checkfinalizer (lua_State *L, GCObject *o, Table *mt) { | |||
| 891 | /* search for pointer pointing to 'o' */ | 891 | /* search for pointer pointing to 'o' */ |
| 892 | for (p = &g->allgc; *p != o; p = &(*p)->next) { /* empty */ } | 892 | for (p = &g->allgc; *p != o; p = &(*p)->next) { /* empty */ } |
| 893 | *p = o->next; /* remove 'o' from 'allgc' list */ | 893 | *p = o->next; /* remove 'o' from 'allgc' list */ |
| 894 | o->next = g->finobj; /* link it in "fin" list */ | 894 | o->next = g->finobj; /* link it in 'finobj' list */ |
| 895 | g->finobj = o; | 895 | g->finobj = o; |
| 896 | l_setbit(o->marked, FINALIZEDBIT); /* mark it as such */ | 896 | l_setbit(o->marked, FINALIZEDBIT); /* mark it as such */ |
| 897 | } | 897 | } |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: liolib.c,v 2.129 2014/09/26 14:09:21 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.130 2014/10/01 16:05:06 roberto Exp roberto $ |
| 3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -195,7 +195,7 @@ static LStream *newprefile (lua_State *L) { | |||
| 195 | 195 | ||
| 196 | /* | 196 | /* |
| 197 | ** Calls the 'close' function from a file handle. The 'volatile' avoids | 197 | ** Calls the 'close' function from a file handle. The 'volatile' avoids |
| 198 | ** a bug in some verisions of the Clang compiler (e.g., clang 3.0 for | 198 | ** a bug in some versions of the Clang compiler (e.g., clang 3.0 for |
| 199 | ** 32 bits). | 199 | ** 32 bits). |
| 200 | */ | 200 | */ |
| 201 | static int aux_close (lua_State *L) { | 201 | static int aux_close (lua_State *L) { |
