pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-08-20
2001-08-20 18:09:18 by Martin Stjernholm <mast@lysator.liu.se>
2eb2d695917029e486ad5864afebd65417fc37f7 (
13
lines) (+
7
/-
6
)
[
Show
|
Annotate
]
Branch:
7.9
Improved locate_references for pike frames.
Rev: src/program.c:1.367
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
366
2001/08/
16
04
:
38
:
52
mast Exp $");
+
RCSID("$Id: program.c,v 1.
367
2001/08/
20
18
:
09
:
18
mast Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
4701:
if(f->flags & PIKE_FRAME_MALLOCED_LOCALS) { if(f->current_object)
-
debug_gc_check2(f->current_object,
PIKE_
T_
UNKNOWN
, f,
+
debug_gc_check2(f->current_object,
T_
PIKE_
FRAME
, f,
" as current_object in trampoline frame"); if(f->context.prog)
-
debug_gc_check2(f->context.prog,
PIKE_
T_
UNKNOWN
, f,
+
debug_gc_check2(f->context.prog,
T_
PIKE_
FRAME
, f,
" as context.prog in trampoline frame"); if(f->context.parent)
-
debug_gc_check2(f->context.parent,
PIKE_
T_
UNKNOWN
, f,
+
debug_gc_check2(f->context.parent,
T_
PIKE_
FRAME
, f,
" as context.parent in trampoline frame"); if(f->flags & PIKE_FRAME_MALLOCED_LOCALS)
-
debug_gc_check_svalues2(f->locals, f->num_locals,
PIKE_
T_
UNKNOWN
, f,
+
debug_gc_check_svalues2(f->locals, f->num_locals,
T_
PIKE_
FRAME
, f,
" in locals of trampoline frame");
-
if(f->scope && !debug_gc_check2(f->scope,
PIKE_
T_
UNKNOWN
, f,
+
if(f->scope && !debug_gc_check2(f->scope,
T_
PIKE_
FRAME
, f,
" as scope frame of trampoline frame")) gc_check_frame(f->scope); }