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

don't do garbage collection while in ErrorMode 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@262 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-01-03 16:27:00 +00:00
parent 54729fc4eb
commit 8155e3fbf1
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
C/dbase.c
View File

@ -2036,7 +2036,12 @@ GetDBTerm(DBRef DBSP)
pt = CellPtr(DBSP->Contents);
NOf = DBSP->NOfCells;
if (H+NOf > ASP-CalculateStackGap()) {
return((Term)0);
if (PrologMode & InErrorMode) {
if (H+NOf > ASP)
exit_yap( 1, "No Stack for Error Handling\n");
} else {
return((Term)0);
}
}
HeapPtr = cpcells(HOld, pt, NOf);
pt += HeapPtr - HOld;

6
C/tracer.c
View File

@ -72,7 +72,11 @@ send_tracer_message(char *start, char *name, Int arity, char *mname, CELL *args)
YP_fprintf(YP_stderr, "\n");
}
#if defined(__GNUC__)
unsigned long long vsc_count;
#else
unsigned long vsc_count;
#endif
/*
static int
@ -114,7 +118,7 @@ low_level_trace(yap_low_level_port port, PredEntry *pred, CELL *args)
extern int gc_calls;
vsc_count++;
/* if (vsc_count < 1025) return; */
if (vsc_count < 49036000) return;
/* if (vsc_count > 500000) exit(0); */
/* if (gc_calls < 1) return;*/
YP_fprintf(YP_stderr,"%lu (%x) ", vsc_count, CreepFlag);