pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
1999-12-05
1999-12-05 15:36:28 by Henrik Grubbström (Grubba) <grubba@grubba.org>
fdb012c1084fdefa5a650c3d99277142a4f8a4a2 (
22
lines) (+
13
/-
9
)
[
Show
|
Annotate
]
Branch:
7.9
-dT now forces #pragma strict_types.
Rev: src/program.c:1.177
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
176
1999/
11
/
30
07
:
50
:
20
hubbe
Exp $");
+
RCSID("$Id: program.c,v 1.
177
1999/
12
/
05
15
:
36
:
28
grubba
Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
2795:
lex.current_line=1; lex.current_file=make_shared_string("-");
-
lex.pragmas=0;
+
if (debug_options & DEBUG_TYPES) {
+
lex.pragmas
=
ID_STRICT_TYPES;
+
} else {
+
lex.pragmas =
0;
+
}
low_start_new_program(0,0,0); if(lex.current_file)
3322:
if (!p) return 0;
-
if (!s->subtype) {
+
if ((call_fun = FIND_LFUN(p, LFUN_CALL)) >= 0) { /* Get the program from the return type. */ struct identifier *id = ID_FROM_INT(p, call_fun); /* FIXME: do it. */
-
+
/* fprintf(stderr, "Object type has `()().\n"); */
return 0; }
-
}
+
push_svalue(s); f_object_program(1); p=program_from_svalue(sp-1);