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

dump stack on error

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@585 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
uid49918 2002-09-09 19:52:38 +00:00
parent 636600e3b8
commit a758145ae9
1 changed files with 45 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
C/errors.c
View File

@ -34,7 +34,7 @@
STATIC_PROTO (int hidden, (Atom)); STATIC_PROTO (int hidden, (Atom));
STATIC_PROTO (int legal_env, (CELL *)); STATIC_PROTO (int legal_env, (CELL *));
void STD_PROTO (DumpActiveGoals, (void)); void STD_PROTO (DumpActiveGoals, (void));
STATIC_PROTO (void detect_bug_location, (char *, int)); STATIC_PROTO (void detect_bug_location, (yamop *,char *, int));
#define ONHEAP(ptr) (CellPtr(ptr) >= CellPtr(HeapBase) && CellPtr(ptr) < CellPtr(HeapTop)) #define ONHEAP(ptr) (CellPtr(ptr) >= CellPtr(HeapBase) && CellPtr(ptr) < CellPtr(HeapTop))
@ -204,16 +204,15 @@ exit_yap (int value)
exit(value); exit(value);
} }
static void static void
detect_bug_location(char *tp, int psize) detect_bug_location(yamop *yap_pc, char *tp, int psize)
{ {
Atom pred_name; Atom pred_name;
Int pred_arity; Int pred_arity;
SMALLUNSGN pred_module; SMALLUNSGN pred_module;
Int cl; Int cl;
if ((cl = PredForCode((CODEADDR)P, &pred_name, &pred_arity, &pred_module)) if ((cl = PredForCode((CODEADDR)yap_pc, &pred_name, &pred_arity, &pred_module))
== 0) { == 0) {
/* system predicate */ /* system predicate */
#if HAVE_SNPRINTF #if HAVE_SNPRINTF
@ -293,6 +292,42 @@ detect_bug_location(char *tp, int psize)
} }
} }
static void
cl_position(yamop *ptr)
{
char tp[256];
detect_bug_location(ptr, tp, 256);
fprintf(stderr," %s\n", tp);
}
static void
error_exit_yap (int value)
{
choiceptr b_ptr = B;
CELL *env_ptr = ENV;
if (H > ASP || H > LCL0) {
fprintf(stderr,"[ YAP ERROR: Global Collided against Local ]\n");
} else if (HeapTop > (ADDR)GlobalBase) {
fprintf(stderr,"[ YAP ERROR: Code Space Collided against Global ]\n");
} else {
fprintf(stderr," [ Goals with alternatives open:\n");
while (b_ptr != NULL) {
cl_position(b_ptr->cp_ap);
b_ptr = b_ptr->cp_b;
}
fprintf(stderr," ]\n");
fprintf(stderr," [ Goals left to continue:\n");
while (env_ptr != NULL) {
cl_position((yamop *)(env_ptr[E_CP]));
env_ptr = (CELL *)(env_ptr[E_E]);
}
fprintf(stderr," ]\n");
}
exit_yap(value);
}
#ifdef DEBUG #ifdef DEBUG
#include <stdio.h> #include <stdio.h>
@ -300,10 +335,7 @@ detect_bug_location(char *tp, int psize)
void void
bug_location(yamop *pc) bug_location(yamop *pc)
{ {
yamop *oldp = pc; detect_bug_location(pc, (char *)H, 256);
P = pc;
detect_bug_location((char *)H, 256);
P = oldp;
fprintf(stderr,"%s\n",(char *)H); fprintf(stderr,"%s\n",(char *)H);
} }
#endif #endif
@ -357,7 +389,7 @@ Error (yap_error_number type, Term where, char *format,...)
} }
va_end (ap); va_end (ap);
fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf);
exit_yap (1); error_exit_yap (1);
} }
if (P == (yamop *)(FAILCODE)) if (P == (yamop *)(FAILCODE))
return(P); return(P);
@ -396,7 +428,7 @@ Error (yap_error_number type, Term where, char *format,...)
if (PrologMode & BootMode) { if (PrologMode & BootMode) {
/* crash in flames! */ /* crash in flames! */
fprintf(stderr,"[ Fatal Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Fatal Error: %s exiting.... ]\n",tmpbuf);
exit_yap (1); error_exit_yap (1);
} }
#ifdef DEBUGX #ifdef DEBUGX
DumpActiveGoals(); DumpActiveGoals();
@ -406,14 +438,14 @@ Error (yap_error_number type, Term where, char *format,...)
{ {
fprintf(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(P, tmpbuf, YAP_BUF_SIZE);
fprintf(stderr,"[ Bug found while executing %s ]\n",tmpbuf); fprintf(stderr,"[ Bug found while executing %s ]\n",tmpbuf);
exit_yap (1); error_exit_yap (1);
} }
case FATAL_ERROR: case FATAL_ERROR:
{ {
fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf); fprintf(stderr,"[ Fatal YAP Error: %s exiting.... ]\n",tmpbuf);
exit_yap (1); error_exit_yap (1);
} }
case PURE_ABORT: case PURE_ABORT:
nt[0] = MkAtomTerm(LookupAtom(tmpbuf)); nt[0] = MkAtomTerm(LookupAtom(tmpbuf));