pike.git
/
src
/
constants.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/constants.c:1:
/* || 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: constants.c,v 1.
60
2008/
05
/
11
14
:
55
:
53
mast
Exp $
+
|| $Id: constants.c,v 1.
61
2008/
06
/
18
21
:
23
:
12
grubba
Exp $
*/ #include "global.h" #include "constants.h" #include "pike_macros.h" #include "program.h" #include "pike_types.h" #include "stralloc.h" #include "pike_memory.h" #include "interpret.h"
pike.git/src/constants.c:104:
f->function=fun; f->name=name; f->type=type; f->prog=Pike_compiler->new_program; f->flags=flags; f->docode=docode; f->optimize=optimize; f->internal_flags = global_callable_flags; #ifdef PIKE_DEBUG {
-
struct pike_type *z = check_call(
function
_type_string, type,
0
);
+
struct pike_type *z =
NULL;
+
add_ref(type);
+
type =
check_
splice_
call(
name, type, 1, mixed
_type_string,
NULL,
+
CALL_INHIBIT_WARNINGS);
+
if (
type
) {
+
z = new_get_return_type(type
,
CALL_INHIBIT_WARNINGS
);
+
free_type(type);
+
}
f->may_return_void = (z == void_type_string); if(!z) Pike_fatal("Function has no valid return type.\n"); free_type(z); } f->runs=0; #endif return f; } PMOD_EXPORT struct callable *make_callable(c_fun fun,