Branch: Tag:

2000-07-11

2000-07-11 10:27:24 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed bug in debug_mkexternalnode().

Rev: src/las.c:1.183

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.182 2000/07/10 20:57:56 grubba Exp $"); + RCSID("$Id: las.c,v 1.183 2000/07/11 10:27:24 grubba Exp $");      #include "language.h"   #include "interpret.h"
898:    node *res = mkemptynode();    res->token = F_EXTERNAL;    +  /* Kludge */ +  id = ID_FROM_INT(parent_compilation(level), i); +     copy_shared_string(res->type, id->type);       /* FIXME */ -  if(IDENTIFIER_IS_CONSTANT(ID_FROM_INT(parent_compilation(level), -  i)->identifier_flags)) +  if(IDENTIFIER_IS_CONSTANT(id->identifier_flags))    {    res->node_info = OPT_EXTERNAL_DEPEND;    }else{
919:    /* Bzot-i-zot */    Pike_compiler->new_program->flags |= PROGRAM_USES_PARENT;    -  return freeze_node(res); +  /* Can't freeze the node, since the type-info may become wrong. */ +  /* return freeze_node(res); */ +  return res;   }      node *debug_mkcastnode(struct pike_string *type,node *n)