pike.git/
src/
error.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-07-16
1998-07-16 23:09:39 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
5196c579ee4b48decb5f2fddd19d2905daf8b3bc (
9
lines) (+
7
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
more debug
Rev: src/error.c:1.21
Rev: src/error.h:1.23
16:
#include "backend.h" #include "operators.h"
-
RCSID("$Id: error.c,v 1.
20
1998/
05
/16
08:
23:
06
hubbe Exp $");
+
RCSID("$Id: error.c,v 1.
21
1998/
07
/16 23:
09:39
hubbe Exp $");
#undef ATTRIBUTE #define ATTRIBUTE(X) JMP_BUF *recoveries=0;
-
JMP_BUF *init_recovery(JMP_BUF *r)
+
JMP_BUF *init_recovery(JMP_BUF *r
DEBUG_LINE_ARGS
)
{
-
+
#ifdef DEBUG
+
r->line=line;
+
r->file=file;
+
#endif
r->fp=fp; r->sp=sp-evaluator_stack; r->mark_sp=mark_sp - mark_stack;