pike.git/ src/ program.c

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)) {