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

garbage collecting fixes

Browse Source 
compile trues at the end of body
fix call_residue/2 so that constraints cannot escape (yet again).


git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@30 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2001-05-07 19:56:02 +00:00
parent 04f75a9662
commit bac5432950
7 changed files with 87 additions and 29 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
C/init.c
View File

@@ -488,26 +488,22 @@ InitDebug(void)
if (output_msg) {
char ch;
opcode(_Ystop);
#if !SHORT_INTS
YP_fprintf(YP_stderr,"absmi address:%x\n", Unsigned(FunAdr(absmi)));
#else
YP_fprintf(YP_stderr,"absmi address:%lx\n", Unsigned(FunAdr(absmi)));
#endif
YP_fprintf(YP_stderr,"Set Trace Options:\n");
YP_fprintf(YP_stderr,"a getch\t\tb token\t\tc Lookup\td LookupVar\ti Index\n");
YP_fprintf(YP_stderr,"e SetOp\t\tf compile\tg icode\t\th boot\t\tl log\n");
YP_fprintf(YP_stderr,"m Machine\n");
fprintf(stderr,"absmi address:%p\n", FunAdr(absmi));
fprintf(stderr,"Set Trace Options:\n");
fprintf(stderr,"a getch\t\tb token\t\tc Lookup\td LookupVar\ti Index\n");
fprintf(stderr,"e SetOp\t\tf compile\tg icode\t\th boot\t\tl log\n");
fprintf(stderr,"m Machine\n");
while ((ch = YP_putchar(YP_getchar())) != '\n')
if (ch >= 'a' && ch <= 'z')
Option[ch - 'a' + 1] = 1;
if (Option['l' - 96]) {
logfile = YP_fopen(LOGFILE, "w");
logfile = fopen(LOGFILE, "w");
if (logfile == Nill) {
YP_fprintf(YP_stderr,"can not open %s\n", LOGFILE);
YP_getchar();
fprintf(stderr,"can not open %s\n", LOGFILE);
getchar();
exit(0);
}
YP_fprintf(YP_stderr,"logging session to file 'logfile'\n");
fprintf(stderr,"logging session to file 'logfile'\n");
#ifdef MAC
SetTextFile(LOGFILE);
lp = my_line;