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

fix bug in copyterm

Browse Source
This commit is contained in:
Costa Vitor 2009-06-17 14:43:24 -05:00
parent d0baedbf84
commit bf9091b5ed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/utilpreds.c
View File

@ -467,7 +467,7 @@ CopyTerm(Term inp, UInt arity, int share, int newattvs) {
if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L) if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L)
return FALSE; return FALSE;
goto restart_list; goto restart_list;
} else if (res && share && FunctorOfTerm(t) != FunctorMutable) { } else if (res && share) {
H = Hi; H = Hi;
return t; return t;
} }
@ -499,7 +499,7 @@ CopyTerm(Term inp, UInt arity, int share, int newattvs) {
if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L) if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L)
return FALSE; return FALSE;
goto restart_appl; goto restart_appl;
} else if (res && share) { } else if (res && share && FunctorOfTerm(t) != FunctorMutable) {
H = HB0; H = HB0;
return t; return t;
} }