Branch: Tag:

2001-12-06

2001-12-06 14:10:19 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Partial revertion of fix for [bug 2511].

Rev: src/program.c:1.387

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.386 2001/12/06 13:56:05 grubba Exp $"); + RCSID("$Id: program.c,v 1.387 2001/12/06 14:10:19 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
4011:    if (IDENTIFIER_IS_CONSTANT(id->identifier_flags)) {    struct program *p2 = PROG_FROM_INT(p, e);    struct svalue *val = &p2->constants[id->func.offset].sval; -  if ((val->type != T_PROGRAM) || -  !(val->u.program->flags & PROGRAM_USES_PARENT)) { +     assign_svalue_no_free(to, val);    return;    }    } -  } +        to->type=T_INT;    to->subtype=NUMBER_UNDEFINED;