pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-10-21
1999-10-21 22:16:45 by Henrik Grubbström (Grubba) <grubba@grubba.org>
3aa0db524b3e345079cf235e8a61f89a056a9f61 (
11
lines) (+
8
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed typo.
Rev: src/program.c:1.162
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
161
1999/10/21
21
:
34
:
33
hubbe
Exp $");
+
RCSID("$Id: program.c,v 1.
162
1999/10/21
22
:
16
:
45
grubba
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
601:
fake_object->parent=0; fake_object->parent_identifier=0; fake_object->prog=p;
+
add_ref(p);
+
#ifdef DEBUG_MALLOC
+
fake_object->dead_prog=p;
+
add_ref(p);
+
#endif /* DEBUG_MALLOC */
#ifdef PIKE_SECURITY fake_object->prot=0; #endif
-
add_ref(p);
+
if(name) {
2923:
Inside #if defined(GC2)
{ int e;
-
dmalloc
_touch(p);
+
debug
_
malloc_
touch(p);
for(e=0;e<p->num_constants;e++) debug_gc_check_svalues(& p->constants[e].sval, 1, T_PROGRAM, p);