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

minor fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1459 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2005-11-16 02:01:09 +00:00
parent 4c0865ca37
commit db16d32668
3 changed files with 2 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
C/parser.c
View File

@@ -512,14 +512,6 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
func = Yap_MkFunctor((Atom) t, 1);
t = ParseTerm(oprprio, FailBuff);
t = Yap_MkApplTerm(func, 1, &t);
#ifdef DEBUG
if (Yap_Option['p' - 'a' + 1]) {
Yap_DebugPutc(Yap_c_error_stream,'[');
Yap_plwrite (t, Yap_DebugPutc, 0);
Yap_DebugPutc(Yap_c_error_stream,']');
Yap_DebugPutc(Yap_c_error_stream,'\n');
}
#endif
/* check for possible overflow against local stack */
if (H > ASP-4096) {
Yap_ErrorMessage = "Stack Overflow";
@@ -540,14 +532,6 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
case Number_tok:
t = Yap_tokptr->TokInfo;
#ifdef DEBUG
if (Yap_Option['p' - 'a' + 1]) {
Yap_DebugPutc(Yap_c_error_stream,'[');
Yap_plwrite (t, Yap_DebugPutc, 0);
Yap_DebugPutc(Yap_c_error_stream,']');
Yap_DebugPutc(Yap_c_error_stream,'\n');
}
#endif
NextToken;
break;
@@ -562,14 +546,6 @@ ParseTerm(int prio, JMPBUFF *FailBuff)
t = MkAtomTerm(Yap_LookupAtom(p));
else
t = Yap_StringToList(p);
#ifdef DEBUG
if (Yap_Option['p' - 'a' + 1]) {
Yap_DebugPutc(Yap_c_error_stream,'[');
Yap_plwrite (t, Yap_DebugPutc, 0);
Yap_DebugPutc(Yap_c_error_stream,']');
Yap_DebugPutc(Yap_c_error_stream,'\n');
}
#endif
NextToken;
}
break;