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

fix SYSTEM_ERROR messages

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1310 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2005-05-31 02:15:53 +00:00
parent f1db3d3b69
commit 7ef2b657df
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
C/index.c
View File

@ -11,8 +11,12 @@
* File: index.c * * File: index.c *
* comments: Indexing a Prolog predicate * * comments: Indexing a Prolog predicate *
* * * *
* Last rev: $Date: 2005-05-30 05:26:49 $,$Author: vsc $ * * Last rev: $Date: 2005-05-31 02:15:53 $,$Author: vsc $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.128 2005/05/30 05:26:49 vsc
* fix tabling
* allow atom gc again for now.
*
* Revision 1.127 2005/05/27 21:44:00 vsc * Revision 1.127 2005/05/27 21:44:00 vsc
* Don't try to mess with sequences that don't end with a trust. * Don't try to mess with sequences that don't end with a trust.
* A fix for the atom garbage collector actually ignore floats ;-). * A fix for the atom garbage collector actually ignore floats ;-).
@ -4734,7 +4738,7 @@ expand_index(struct intermediates *cint) {
break; break;
case _trust: case _trust:
/* we should never be here */ /* we should never be here */
Yap_Error(SYSTEM_ERROR, TermNil, "New indexing code"); Yap_Error(INTERNAL_COMPILER_ERROR, TermNil, "found trust in expand_index");
labp = NULL; labp = NULL;
ipc = NULL; ipc = NULL;
break; break;
@ -4968,7 +4972,7 @@ expand_index(struct intermediates *cint) {
break; break;
default: default:
if (alt == NULL) { if (alt == NULL) {
Yap_Error(SYSTEM_ERROR,t,"Bug in Indexing Code"); Yap_Error(INTERNAL_COMPILER_ERROR,t,"unexpected instruction %d at expand_index ", op);
labp = NULL; labp = NULL;
ipc = NULL; ipc = NULL;
} else { } else {
@ -8584,7 +8588,7 @@ find_caller(PredEntry *ap, yamop *code, struct intermediates *cint) {
return NULL; return NULL;
default: default:
if (alt == NULL) { if (alt == NULL) {
Yap_Error(SYSTEM_ERROR,t,"Bug in Indexing Code"); Yap_Error(INTERNAL_COMPILER_ERROR,t,"unexpected instruction %d in find_caller", op);
return NULL; return NULL;
} else { } else {
ipc = alt; ipc = alt;