diff options
| author | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-11-17 17:50:05 -0200 |
|---|---|---|
| committer | Roberto Ierusalimschy <roberto@inf.puc-rio.br> | 2003-11-17 17:50:05 -0200 |
| commit | ab7d9bfd0c38f1dd8eda40ae3c1f1c686564a92d (patch) | |
| tree | e7f5231cc02b89b2507ad846d5d547e35e9c4153 /lfunc.c | |
| parent | 921b1723e2fddde0382143b28b5be3b7128204b8 (diff) | |
| download | lua-ab7d9bfd0c38f1dd8eda40ae3c1f1c686564a92d.tar.gz lua-ab7d9bfd0c38f1dd8eda40ae3c1f1c686564a92d.tar.bz2 lua-ab7d9bfd0c38f1dd8eda40ae3c1f1c686564a92d.zip | |
cleaner code for manipulation of `marked' field
Diffstat (limited to 'lfunc.c')
| -rw-r--r-- | lfunc.c | 4 |
1 files changed, 2 insertions, 2 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lfunc.c,v 1.68 2003/10/02 19:21:09 roberto Exp roberto $ | 2 | ** $Id: lfunc.c,v 1.69 2003/10/20 17:42:41 roberto Exp roberto $ |
| 3 | ** Auxiliary functions to manipulate prototypes and closures | 3 | ** Auxiliary functions to manipulate prototypes and closures |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -64,7 +64,7 @@ UpVal *luaF_findupval (lua_State *L, StkId level) { | |||
| 64 | } | 64 | } |
| 65 | v = luaM_new(L, UpVal); /* not found: create a new one */ | 65 | v = luaM_new(L, UpVal); /* not found: create a new one */ |
| 66 | v->tt = LUA_TUPVAL; | 66 | v->tt = LUA_TUPVAL; |
| 67 | v->marked = 1; /* open upvalues should not be collected */ | 67 | v->marked = bitmask(BLACKBIT); /* open upvalues should not be collected */ |
| 68 | v->v = level; /* current value lives in the stack */ | 68 | v->v = level; /* current value lives in the stack */ |
| 69 | v->next = *pp; /* chain it in the proper position */ | 69 | v->next = *pp; /* chain it in the proper position */ |
| 70 | *pp = valtogco(v); | 70 | *pp = valtogco(v); |