gval
struct evalue *gval;
gval = lut_lookup(*globals, (void *)np->u.globid.s, NULL);
if (gval == NULL) {
valuep->t = gval->t;
valuep->v = gval->v;
gval = lut_lookup(*globals,
if (gval == NULL) {
gval = MALLOC(sizeof (*gval));
(void *) np->u.expr.left->u.globid.s, gval, NULL);
gval->t = rval.t;
gval->v = rval.v;
if (gval->t == UINT64) {
np->u.expr.left->u.globid.s, gval->v);
(char *)(uintptr_t)gval->v);
(gval = lut_lookup(*globals,
gval = MALLOC(sizeof (*gval));
gval, NULL);
gval->t = rval.t;
gval->v = rval.v;
struct evalue *gval;
if ((gval = lut_lookup(fmep->globals,
} else if (gval->t == UINT64) {
out(O_ALTFP, " %llu", gval->v);
(void) sprintf(suffixbuf, "%llu", gval->v);
out(O_ALTFP, " \"%s\"", (char *)(uintptr_t)gval->v);
suffix = (char *)(uintptr_t)gval->v;
lua_assert(ttisnil(gval(n)));
if (ttisnil(gval(n))) /* entry is empty? */
if (!hasclears && iscleared(g, gval(n))) /* is there a white value? */
if (ttisnil(gval(n))) /* entry is empty? */
if (valiswhite(gval(n))) /* value not marked yet? */
else if (valiswhite(gval(n))) { /* value not marked yet? */
reallymarkobject(g, gcvalue(gval(n))); /* mark it now */
if (ttisnil(gval(n))) /* entry is empty? */
markvalue(g, gval(n)); /* mark value */
if (!ttisnil(gval(n)) && (iscleared(g, gkey(n)))) {
setnilvalue(gval(n)); /* remove value ... */
if (!ttisnil(gval(n)) && iscleared(g, gval(n))) {
setnilvalue(gval(n)); /* remove value ... */
#define checkdeadkey(n) lua_assert(!ttisdeadkey(gkey(n)) || ttisnil(gval(n)))
if (!ttisnil(gval(gnode(t, i)))) { /* a non-nil value? */
setobj2s(L, key+1, gval(gnode(t, i)));
if (!ttisnil(gval(n))) {
setnilvalue(gval(n));
if (!ttisnil(gval(old))) {
setobjt2t(L, luaH_set(L, t, gkey(old)), gval(old));
if (!ttisnil(gval(mp)) || isdummy(mp)) { /* main position is taken? */
setnilvalue(gval(mp));
lua_assert(ttisnil(gval(mp)));
return gval(mp);
return gval(n); /* that's it */
return gval(n); /* that's it */
return gval(n); /* that's it */