Branch: Tag:

2000-09-09

2000-09-09 19:39:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

temporary kluge..

Rev: src/las.c:1.204

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.203 2000/09/08 17:06:29 hubbe Exp $"); + RCSID("$Id: las.c,v 1.204 2000/09/09 19:39:44 hubbe Exp $");      #include "language.h"   #include "interpret.h"
118: Inside #if defined(PIKE_DEBUG)
   struct identifier *id = ID_FROM_INT(state->new_program, id_no);    if (id) {   #ifdef PIKE_DEBUG +  /* FIXME: This test crashes on valid code because the type of the +  * identifier can change in pass 2 - Hubbe +  */    if(id->type != n->type)    {    printf("Type of external node is not matching it's identifier.\nid->type: ");
1014:    res=freeze_node(res);      #ifdef PIKE_DEBUG -  if(id->type != res->type) +  /* FIXME: This test crashes on valid code because the type of the +  * identifier can change in pass 2 -Hubbe +  */ +  if(d_flag && id->type != res->type)    {    printf("Type of external node is not matching it's identifier.\nid->type: ");    simple_describe_type(id->type);
2828:    if (id && id->name) {    name = id->name->str;   #ifdef PIKE_DEBUG +  /* FIXME: This test crashes on valid code because the type of the +  * identifier can change in pass 2 -Hubbe +  */    if(id->type != f)    {    printf("Type of external node is not matching it's identifier.\nid->type: ");