diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

export getval to C-code.

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-07-22 19:12:32 -05:00
parent 99948c5acc
commit 6ae0c450b3
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
C/globals.c
View File

@ -1398,6 +1398,30 @@ p_nb_getval( USES_REGS1 )
}
Term
Yap_GetGlobal( Atom at )
{
CACHE_REGS
GlobalEntry *ge;
Term to;
ge = FindGlobalEntry(at PASS_REGS);
if (!ge)
return 0L;
READ_LOCK(ge->GRWLock);
to = ge->global;
if (IsVarTerm(to) && IsUnboundVar(VarOfTerm(to))) {
Term t = MkVarTerm();
YapBind(VarOfTerm(to), t);
to = t;
}
READ_UNLOCK(ge->GRWLock);
if (to == TermFoundVar) {
return 0;
}
return to;
}
static Int
nbdelete(Atom at USES_REGS)
{