pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-10-20
2000-10-20 21:27:25 by Henrik Grubbström (Grubba) <grubba@grubba.org>
9e955e2f79e433f82c1affb0a76060197a6321f6 (
9
lines) (+
7
/-
2
)
[
Show
|
Annotate
]
Branch:
7.9
Fixed memory leak.
Rev: src/program.c:1.276
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
275
2000/10/
04
05
:
12
:
13
hubbe
Exp $");
+
RCSID("$Id: program.c,v 1.
276
2000/10/
20
21
:
27
:
25
grubba
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
3454:
used_modules = used_modules_save; Pike_compiler->num_used_modules = num_used_modules_save ; error_handler = saved_handler;
+
if (compat_handler) {
+
free_object(compat_handler);
+
}
compat_handler = saved_compat_handler; #ifdef PIKE_DEBUG if (resolve_cache) fatal("resolve_cache not freed at end of compilation.\n");
4455:
if(sp[-1].type == T_OBJECT) {
-
compat_handler=sp[-1].u.object;
+
compat_handler
=
dmalloc_touch(struct object *,
sp[-1].u.object
)
;
sp--; apply(compat_handler,"get_default_module",0);
4476:
free_svalue( (struct svalue *)used_modules.s.str ); ((struct svalue *)used_modules.s.str)[0]=sp[-1]; sp--;
+
dmalloc_touch_svalue(sp);
if(Pike_compiler->module_index_cache) { free_mapping(Pike_compiler->module_index_cache);