pike.git/
src/
interpret.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-06-18
1998-06-18 23:18:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
aa5b80b2fbd3d0a1d5113c89505cd2eb38f50e13 (
15
lines) (+
12
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
bugfix
Rev: src/interpret.c:1.88
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: interpret.c,v 1.
87
1998/06/
06
03
:
25
:
36
hubbe Exp $");
+
RCSID("$Id: interpret.c,v 1.
88
1998/06/
18
23
:
18
:
44
hubbe Exp $");
#include "interpret.h" #include "object.h" #include "program.h"
2026:
#endif new_frame.num_locals=num_locals; new_frame.num_args=num_args;
+
{
+
struct svalue **save_mark_sp=mark_sp;
tailrecurse=eval_instruction(pc); #ifdef DEBUG
-
+
if(mark_sp < save_mark_sp)
+
fatal("Popped below save_mark_sp!\n");
+
#endif
+
mark_sp=save_mark_sp;
+
}
+
#ifdef DEBUG
if(sp<evaluator_stack) fatal("Stack error (also simple).\n"); #endif
2158:
free_object(new_frame.current_object); free_program(new_frame.context.prog);
-
fp
=
new
_
frame.parent
_
frame
;
+
mark_sp
=
save
_
mark
_
sp
;
return ret; }