nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

lock mechanism more robust; nil is pseudo-locked under index -1.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1996-02-08 17:08:34 -02:00
parent 7918c6cf11
commit 369c5fe3c0
1 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
fallback.c
View File

@@ -3,7 +3,7 @@
** TecCGraf - PUC-Rio ** TecCGraf - PUC-Rio
*/ */
char *rcs_fallback="$Id: fallback.c,v 1.17 1995/10/17 14:30:05 roberto Exp roberto $"; char *rcs_fallback="$Id: fallback.c,v 1.18 1996/01/30 15:25:23 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@@ -123,7 +123,7 @@ int luaI_lock (Object *object)
Word i; Word i;
Word oldSize; Word oldSize;
if (tag(object) == LUA_T_NIL) if (tag(object) == LUA_T_NIL)
return -1; return -1; /* special lock ref for nil */
for (i=0; i<lockSize; i++) for (i=0; i<lockSize; i++)
if (tag(&lockArray[i]) == LUA_T_NIL) if (tag(&lockArray[i]) == LUA_T_NIL)
{ {
@@ -151,13 +151,18 @@ int luaI_lock (Object *object)
void lua_unlock (int ref) void lua_unlock (int ref)
{ {
tag(&lockArray[ref]) = LUA_T_NIL; if (ref >= 0 && ref < lockSize)
tag(&lockArray[ref]) = LUA_T_NIL;
} }
Object *luaI_getlocked (int ref) Object *luaI_getlocked (int ref)
{ {
return &lockArray[ref]; static Object nul = {LUA_T_NIL, {0}};
if (ref >= 0 && ref < lockSize)
return &lockArray[ref];
else
return &nul;
} }