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

get rid of pesky debugging prints

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1063 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-05-13 21:36:45 +00:00
parent 9d12384db1
commit 19bfe301db
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
C/cdmgr.c
View File

@@ -11,8 +11,12 @@
* File: cdmgr.c * * File: cdmgr.c *
* comments: Code manager * * comments: Code manager *
* * * *
* Last rev: $Date: 2004-05-13 20:54:57 $,$Author: vsc $ * * Last rev: $Date: 2004-05-13 21:36:45 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.121 2004/05/13 20:54:57 vsc
* debugger fixes
* make sure we always go back to current module, even during initizlization.
*
* Revision 1.120 2004/04/27 16:21:16 vsc * Revision 1.120 2004/04/27 16:21:16 vsc
* stupid bug * stupid bug
* *
@@ -2373,11 +2377,11 @@ search_for_static_predicate_in_use(PredEntry *p, int check_everything)
choiceptr b_ptr = B; choiceptr b_ptr = B;
CELL *env_ptr = ENV; CELL *env_ptr = ENV;
if (check_everything) { if (check_everything && P) {
PredEntry *pe = EnvPreg(P); PredEntry *pe = EnvPreg(P);
if (p == pe) return(TRUE); if (p == pe) return TRUE;
pe = EnvPreg(CP); pe = EnvPreg(CP);
if (p == pe) return(TRUE); if (p == pe) return TRUE;
} }
do { do {
/* check first environments that are younger than our latest choicepoint */ /* check first environments that are younger than our latest choicepoint */

2
C/save.c
View File

@@ -1411,9 +1411,7 @@ Restore(char *s, char *lib_dir)
restore_regs(restore_mode); restore_regs(restore_mode);
in_limbo = FALSE; in_limbo = FALSE;
/*#endif*/ /*#endif*/
fprintf(stderr,"1 CurrentModule is %p\n", CurrentModule);
RestoreHeap(old_ops); RestoreHeap(old_ops);
fprintf(stderr,"1.5 CurrentModule is %p\n", CurrentModule);
switch(restore_mode) { switch(restore_mode) {
case DO_EVERYTHING: case DO_EVERYTHING:
if (OldHeapBase != Yap_HeapBase || if (OldHeapBase != Yap_HeapBase ||