Branch: Tag:

2001-12-16

2001-12-16 01:17:23 by Martin Stjernholm <mast@lysator.liu.se>

Avoid getting a placeholder object in an inherit we can't cope with.

Rev: src/las.c:1.276

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.275 2001/12/13 11:19:18 mast Exp $"); + RCSID("$Id: las.c,v 1.276 2001/12/16 01:17:23 mast Exp $");      #include "language.h"   #include "interpret.h"
133: Inside #if defined(PIKE_DEBUG) and #if defined(PIKE_DEBUG)
   */    if(id->type != n->type)    { -  printf("Type of external node is not matching it's identifier.\nid->type: "); +  fprintf(stderr, "Type of external node " +  "is not matching its identifier.\nid->type: ");    simple_describe_type(id->type); -  printf("\nn->type : "); +  fprintf(stderr, "\nn->type : ");    simple_describe_type(n->type); -  printf("\n"); +  fprintf(stderr, "\n");    -  fatal("Type of external node is not matching it's identifier.\n"); +  fatal("Type of external node is not matching its identifier.\n");    }   #endif    }
1873:    if (IS_ZERO(sp-1)) yy_describe_exception(&thrown);    pop_stack();    } -  }else{ +  }else if (!force_resolve) {    /* Hope it's there in pass 2 */    pop_stack();    ref_push_object(placeholder_object);