pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2008-04-25
2008-04-25 11:26:30 by Henrik Grubbström (Grubba) <grubba@grubba.org>
1892022d26b198f02c3231e8efb479f7fd97e4ac (
31
lines) (+
23
/-
8
)
[
Show
|
Annotate
]
Branch:
7.9
Some bugs remained in the last commit...
Rev: src/program.c:1.675
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.
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"
7945:
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); }