pike.git/ src/ pike_types.c

2000-09-08

2000-09-08 17:06:29 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• da77e22a687e4b299c33a12d54a8afeb4b8d5a0c (31 lines) (+14/-17) ^{[ Show | Annotate ]}
  Branch: 7.9

pike -d may now work again

Rev: src/las.c:1.203
Rev: src/pike_types.c:1.139

5:   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.138 2000/09/08 16:34:49 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.139 2000/09/08 17:06:29 hubbe Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"
3299:    struct pike_string *tmp;    int id;    -  if(!s->u.program->identifiers) +  if(s->u.program->identifiers)    { -  a=function_type_string->str; -  if((tmp=zzap_function_return(a, s->u.program->id))) -  return tmp; -  } -  +     id=FIND_LFUN(s->u.program,LFUN_CREATE);    if(id>=0)    {
3316:    /* yywarning("Failed to zzap function return for type: %s.", tmp->str);*/    free_string(tmp);    } +  }    -  a=tFunc(tVoid,tObj); +  a=tFunc( tNone ,tObj);    if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp;