pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
1998-04-09
1998-04-09 02:49:48 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
e964aed9986505ec730525e8b1ca8f3e2f9d6570 (
29
lines) (+
16
/-
13
)
[
Show
|
Annotate
]
Branch:
7.9
minor fixes
Rev: src/program.c:1.73
Rev: src/program.h:1.38
4:
||| See the files COPYING and DISCLAIMER for more information. \*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
72
1998/04/
08
01
:
32
:
35
hubbe Exp $");
+
RCSID("$Id: program.c,v 1.
73
1998/04/
09
02
:
49
:
48
hubbe Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
644:
}
-
static
int sizeof_variable(int run_time_type)
+
int sizeof_variable(int run_time_type)
{ switch(run_time_type) {
2044:
return p; }
-
void
add_function(char *name,void (*cfun)(INT32),char *type,INT16 flags)
+
int
add_function(char *name,void (*cfun)(INT32),char *type,INT16 flags)
{
-
+
int ret;
struct pike_string *name_tmp,*type_tmp; union idptr tmp;
2055:
if(cfun) { tmp.c_fun=cfun;
-
define_function(name_tmp,
+
ret=
define_function(name_tmp,
type_tmp, flags, IDENTIFIER_C_FUNCTION, &tmp); }else{
-
define_function(name_tmp,
+
ret=
define_function(name_tmp,
type_tmp, flags, IDENTIFIER_C_FUNCTION,
2069:
} free_string(name_tmp); free_string(type_tmp);
+
return ret;
} #ifdef DEBUG