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

avoid ground term optimisation with YAPOR.

Browse Source
This commit is contained in:
Vitor Santos Costa 2011-07-22 01:35:43 -07:00
parent a1d903e3e9
commit c0ef01a700
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/compiler.c
View File

@ -735,7 +735,7 @@ c_arg(Int argno, Term t, unsigned int arity, unsigned int level, compiler_struct
} else if (IsPairTerm(t)) { } else if (IsPairTerm(t)) {
cglobs->space_used += 2; cglobs->space_used += 2;
if (optimizer_on && level < 6) { if (optimizer_on && level < 6) {
#if !defined(THREADS) #if !defined(THREADS) && !defined(YAPOR)
/* discard code sharing because we cannot write on shared stuff */ /* discard code sharing because we cannot write on shared stuff */
if (!(cglobs->cint.CurrentPred->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))) { if (!(cglobs->cint.CurrentPred->PredFlags & (DynamicPredFlag|LogUpdatePredFlag))) {
if (try_store_as_dbterm(t, argno, arity, level, cglobs)) if (try_store_as_dbterm(t, argno, arity, level, cglobs))