2000-05-03
2000-05-03 09:03:16 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
b9e220c5df0877c6a0e1e33ff19c64378d3942fe
(28 lines)
(+12/-16)
[
Show
| Annotate
]
Branch: 7.9
more debug
Rev: src/interpret.c:1.151
Rev: src/interpreter.h:1.46
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: interpret.c,v 1.150 2000/05/01 10:28:26 hubbe Exp $");
+ RCSID("$Id: interpret.c,v 1.151 2000/05/03 09:03:16 hubbe Exp $");
#include "interpret.h"
#include "object.h"
#include "program.h"
484:
}
#ifdef PIKE_DEBUG
- #define BACKLOG 512
+ #define BACKLOG 1024
struct backlog
{
INT32 instruction;
494: Inside #if defined(_REENTRANT)
#ifdef _REENTRANT
struct object *thread_id;
#endif
+ int stack;
+ int mark_stack;
};
struct backlog backlog[BACKLOG];
539:
}
- if(instrs[backlog[e].instruction].flags & I_HASARG2)
- {
- fprintf(stderr,"%s:%ld: %s(%ld,%ld)\n",
+ fprintf(stderr,"%s:%ld: %s",
file,
(long)line,
- low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program),
+ low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program));
+ if(instrs[backlog[e].instruction].flags & I_HASARG2)
+ {
+ fprintf(stderr,"(%ld,%ld)",
(long)backlog[e].arg,
(long)backlog[e].arg2);
}
else if(instrs[backlog[e].instruction].flags & I_HASARG)
{
- fprintf(stderr,"%s:%ld: %s(%ld)\n",
- file,
- (long)line,
- low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program),
- (long)backlog[e].arg);
- }else{
- fprintf(stderr,"%s:%ld: %s\n",
- file,
- (long)line,
- low_get_f_name(backlog[e].instruction + F_OFFSET, backlog[e].program));
+ fprintf(stderr,"(%ld)", (long)backlog[e].arg);
}
-
+ fprintf(stderr," %d, %d", backlog[e].stack, backlog[e].mark_stack);
}
}while(e!=backlogp);
}