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

fix log(0.0) and log10(0.0) to be SICStus compatible.

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1245 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-02-18 21:34:02 +00:00
parent 755c60a7ca
commit 18f0de5486
13 changed files with 76 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
C/utilpreds.c
View File

@@ -23,6 +23,7 @@ static char SccsId[] = "@(#)utilpreds.c 1.3";
#include "Heap.h"
#include "yapio.h"
#include "eval.h"
#include "attvar.h"
typedef struct {
Term old_var;
@@ -206,7 +207,7 @@ copy_complex_term(register CELL *pt0, register CELL *pt0_end, CELL *ptf, CELL *H
CELL **bp[1];
if (dvars == NULL) {
dvars = (CELL *)Yap_ReadTimedVar(DelayedVars);
dvars = (CELL *)DelayTop();
}
if (ptd0 >= dvars) {
*ptf++ = (CELL) ptd0;
@@ -686,8 +687,10 @@ static Int
p_copy_term_no_delays(void) /* copy term t to a new instance */
{
Term t = CopyTermNoDelays(ARG1);
if (t == 0L)
if (t == 0L) {
printf("Error\n");
return FALSE;
}
/* be careful, there may be a stack shift here */
return(Yap_unify(ARG2,t));
}