pike.git
/
src
/
program.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/program.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: program.c,v 1.
674
2008/04/
24
16
:
03
:
54
grubba Exp $
+
|| $Id: program.c,v 1.
675
2008/04/
25
11
:
26
:
30
grubba Exp $
*/ #include "global.h" #include "program.h" #include "object.h" #include "dynamic_buffer.h" #include "pike_types.h" #include "stralloc.h" #include "las.h" #include "lex.h"
pike.git/src/program.c:7938:
if (c->handler) free_object(c->handler); if ((c->handler=ahandler)) add_ref(ahandler); if (c->target) free_program(c->target); if ((c->target=atarget)) add_ref(atarget); if (c->placeholder) free_object(c->placeholder); if ((c->placeholder=aplaceholder)) add_ref(aplaceholder);
-
push_int(
amajor?amajor:-1
)
;
-
push_int(
aminor?aminor:-1
)
;
-
apply_current(PC_
CHANGE
_
COMPILER
_
COMPATIBILITY
_FUN_NUM,
2
);
+
c->major =
amajor?amajor:-1;
+
c->minor =
aminor?aminor:-1;
+
+
/* NOTE: Can't use change_compiler_compatibility() here,
+
* since we don't have a PikeCompiler yet!
+
*/
+
+
apply_current(PC_
GET
_
DEFAULT
_
MODULE
_FUN_NUM,
0
);
+
+
if(Pike_sp[-1].type == T_INT)
+
{
pop_stack();
-
STACK_LEVEL_DONE(
args
);
-
pop_n_elems(
args
);
+
ref_push_mapping(get_builtin_constants());
+
}
+
+
assign_svalue(&c->default_module, Pike_sp-1);
+
+
STACK_LEVEL_DONE(
args+1
);
+
pop_n_elems(
args+1
);
+
push_int(0); } /*! @decl program compile() *! *! Compile the current source into a program. *! *! This function compiles the current Pike source code *! into a clonable program. *!