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

copy value structs to stack

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@389 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-02-27 01:20:18 +00:00
parent 4d76fbc47e
commit 499adf4cf4
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
C/adtdefs.c
View File

@ -456,6 +456,19 @@ GetValue(Atom a)
return (TermNil); return (TermNil);
READ_LOCK(RepValProp(p0)->VRWLock); READ_LOCK(RepValProp(p0)->VRWLock);
out = RepValProp(p0)->ValueOfVE; out = RepValProp(p0)->ValueOfVE;
if (IsApplTerm(out)) {
Functor f = FunctorOfTerm(out);
if (f == FunctorDouble) {
out = MkFloatTerm(FloatOfTerm(out));
} else if (f == FunctorLongInt) {
out = MkLongIntTerm(LongIntOfTerm(out));
}
#ifdef USE_GMP
else {
out = MkBigIntTerm(BigIntOfTerm(out));
}
#endif
}
READ_UNLOCK(RepValProp(p0)->VRWLock); READ_UNLOCK(RepValProp(p0)->VRWLock);
return (out); return (out);
} }