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

don't use YP_ in error.c

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@501 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2002-05-28 17:12:58 +00:00
parent c30abf5b81
commit 3542cd5990
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/errors.c
View File

@ -113,7 +113,7 @@ DumpActiveGoals (void)
if (pe->KindOfPE && hidden (NameOfFunctor (f))) if (pe->KindOfPE && hidden (NameOfFunctor (f)))
goto next; goto next;
if (first++ == 1) if (first++ == 1)
YP_fprintf(YP_stderr,"Active ancestors:\n"); fprintf(stderr,"Active ancestors:\n");
if (pe->ModuleOfPred) mod = IntOfTerm(pe->ModuleOfPred); if (pe->ModuleOfPred) mod = IntOfTerm(pe->ModuleOfPred);
plwrite (ModuleName[mod], DebugPutc, 0); plwrite (ModuleName[mod], DebugPutc, 0);
DebugPutc (c_output_stream,':'); DebugPutc (c_output_stream,':');
@ -131,7 +131,7 @@ DumpActiveGoals (void)
ep = (CELL *) ep[E_E]; ep = (CELL *) ep[E_E];
} }
first = 1; first = 1;
YP_fprintf(YP_stderr,"Active Choice-Points:\n"); fprintf(stderr,"Active Choice-Points:\n");
while (TRUE) while (TRUE)
{ {
PredEntry *pe; PredEntry *pe;
@ -352,7 +352,7 @@ Error (yap_error_number type, Term where, char *format,...)
tmpbuf[0] = '\0'; tmpbuf[0] = '\0';
} }
va_end (ap); va_end (ap);
YP_fprintf(YP_stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf);
exit_yap (1); exit_yap (1);
} }
if (P == (yamop *)(FAILCODE)) if (P == (yamop *)(FAILCODE))
@ -400,15 +400,15 @@ Error (yap_error_number type, Term where, char *format,...)
switch (type) { switch (type) {
case INTERNAL_ERROR: case INTERNAL_ERROR:
{ {
YP_fprintf(YP_stderr,"[ Internal YAP Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Internal YAP Error: %s exiting.... ]\n",tmpbuf);
serious = TRUE; serious = TRUE;
detect_bug_location(tmpbuf, YAP_BUF_SIZE); detect_bug_location(tmpbuf, YAP_BUF_SIZE);
YP_fprintf(YP_stderr,"[ Bug found while executing %s ]\n",tmpbuf); fprintf(stderr,"[ Bug found while executing %s ]\n",tmpbuf);
exit_yap (1); exit_yap (1);
} }
case FATAL_ERROR: case FATAL_ERROR:
{ {
YP_fprintf(YP_stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf);
exit_yap (1); exit_yap (1);
} }
case PURE_ABORT: case PURE_ABORT: