pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2006-07-05
2006-07-05 02:21:51 by Martin Stjernholm <mast@lysator.liu.se>
f13b9580f832cc587fdc8d16c9456e81cb6943e2 (
15
lines) (+
11
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Added do_free_program. Added some PMOD_EXPORTs.
Rev: src/program.c:1.602
2:
|| This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: program.c,v 1.
601
2006/07/
04
14
:
38
:
17
mast Exp $
+
|| $Id: program.c,v 1.
602
2006/07/
05
02
:
21
:
51
mast Exp $
*/ #include "global.h"
1188:
int get_small_number(char **q);
+
PMOD_EXPORT void do_free_program (struct program *p)
+
{
+
if (p)
+
free_program(p);
+
}
+
/* So what if we don't have templates? / Hubbe */ #ifdef PIKE_DEBUG
3451:
((oldhandlertype *)Pike_compiler->new_program->program)[PROG_EVENT_GC_CHECK]=m; }
-
void pike_set_prog_event_callback(void (*cb)(int))
+
PMOD_EXPORT
void pike_set_prog_event_callback(void (*cb)(int))
{ #ifdef PIKE_DEBUG if(Pike_compiler->new_program->event_handler)
3460:
Pike_compiler->new_program->event_handler=cb; }
-
void pike_set_prog_optimize_callback(node *(*opt)(node *))
+
PMOD_EXPORT
void pike_set_prog_optimize_callback(node *(*opt)(node *))
{ #ifdef PIKE_DEBUG if(Pike_compiler->new_program->optimize)
5242:
return id; }
-
int low_find_lfun(struct program *p, ptrdiff_t lfun)
+
PMOD_EXPORT
int low_find_lfun(struct program *p, ptrdiff_t lfun)
{ struct pike_string *lfun_name = lfun_strings[lfun]; unsigned int flags = 0;