pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2003-12-30
2003-12-30 10:54:41 by Henrik Grubbström (Grubba) <grubba@grubba.org>
9a200993646a29011ff66297095234d20d79fe39 (
11
lines) (+
6
/-
5
)
[
Show
|
Annotate
]
Branch:
7.9
More fixes.
Rev: src/program.c:1.545
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.
544
2003/12/30 10:
02
:
46
grubba Exp $
+
|| $Id: program.c,v 1.
545
2003/12/30 10:
54
:
41
grubba Exp $
*/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
544
2003/12/30 10:
02
:
46
grubba Exp $");
+
RCSID("$Id: program.c,v 1.
545
2003/12/30 10:
54
:
41
grubba Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
1923:
p);
+
p->flags |= PROGRAM_FIXED;
+
/* Yes, it is supposed to start at 1 /Hubbe */ for(i=1;i<NUM_LFUNS;i++) { p->lfuns[i] = low_find_lfun(p, i); }
-
p->flags |= PROGRAM_FIXED;
-
+
if(Pike_compiler->check_final) { for(i=0;i<(int)p->num_identifier_references;i++)
5015:
dmalloc_touch(struct program *, p), SEE_STATIC);
-
if (i < 0) return i;
+
if (i < 0
|| !(p->flags & PROGRAM_FIXED
)
)
return i;
id = ID_FROM_INT(p, i); if (IDENTIFIER_IS_PIKE_FUNCTION(id->identifier_flags) && (id->func.offset == -1)) {