pike.git/ src/ pike_types.c

2000-01-02

2000-01-02 23:36:44 by Martin Stjernholm <mast@lysator.liu.se>

• a0b73fa2e4293f3bddd4adef4084f64f2a297d6d (54 lines) (+30/-24) ^{[ Show | Annotate ]}
  Branch: 7.9

The least specified function is not function(mixed...:void|mixed) but
function(zero...:void|mixed). Handle T_ARRAY in
zzap_function_return(). When a program doesn't have a create function,
it's function prototype is now the stronger function(:object(Foo))
instead of function(mixed...:object(Foo)).

Rev: src/pike_types.c:1.117

5:   \*/   /**/   #include "global.h" - RCSID("$Id: pike_types.c,v 1.116 1999/12/31 14:50:16 grubba Exp $"); + RCSID("$Id: pike_types.c,v 1.117 2000/01/02 23:36:44 mast Exp $");   #include <ctype.h>   #include "svalue.h"   #include "pike_types.h"
485:    push_type(T_MIXED);    push_type(T_OR);    push_type(T_VOID); -  push_type(T_MIXED); +  push_type(T_ZERO);    push_type(T_OR);    push_type(T_MANY);    }
892:    int s;    my_strcat("function");    if(EXTRACT_UCHAR(t) == T_MANY && -  (EXTRACT_UCHAR(t+1) == T_MIXED && +  ((EXTRACT_UCHAR(t+1) == T_ZERO &&    EXTRACT_UCHAR(t+2) == T_OR &&    ((EXTRACT_UCHAR(t+3) == T_MIXED && EXTRACT_UCHAR(t+4) == T_VOID) ||    (EXTRACT_UCHAR(t+4) == T_MIXED && EXTRACT_UCHAR(t+3) == T_VOID)))    ||    (EXTRACT_UCHAR(t+1) == T_OR    && -  ((EXTRACT_UCHAR(t+2) == T_MIXED && EXTRACT_UCHAR(t+3) == T_VOID) || -  (EXTRACT_UCHAR(t+3) == T_MIXED && EXTRACT_UCHAR(t+2) == T_VOID)) +  ((EXTRACT_UCHAR(t+2) == T_ZERO && EXTRACT_UCHAR(t+3) == T_VOID) || +  (EXTRACT_UCHAR(t+3) == T_ZERO && EXTRACT_UCHAR(t+2) == T_VOID))    &&    EXTRACT_UCHAR(t+4) == T_OR    &&    ((EXTRACT_UCHAR(t+5) == T_MIXED && EXTRACT_UCHAR(t+6) == T_VOID) || -  (EXTRACT_UCHAR(t+6) == T_MIXED && EXTRACT_UCHAR(t+5) == T_VOID)))) +  (EXTRACT_UCHAR(t+6) == T_MIXED && EXTRACT_UCHAR(t+5) == T_VOID)))))    {    /* done */ -  if (EXTRACT_UCHAR(t+1) == T_MIXED) { -  /* function(mixed...:mixed|void) */ +  if (EXTRACT_UCHAR(t+1) == T_ZERO) { +  /* function(zero...:mixed|void) */    t += 5;    } else { -  /* function(mixed|void...mixed|void) */ +  /* function(zero|void...mixed|void) */    t += 7;    }    } else {
3160:    type_stack_reverse();    push_type(T_FUNCTION);    return pop_unfinished_type(); +  +  case T_ARRAY: +  return zzap_function_return(a+1,id);    }   /* This error is bogus /Hubbe    fatal("zzap_function_return() called with unexpected value: %d\n",
3289:    if(id>=0)    {    a=ID_FROM_INT(s->u.program, id)->type->str; -  }else{ -  a=function_type_string->str; -  } +     if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp; -  +  tmp=describe_type(ID_FROM_INT(s->u.program, id)->type); +  yywarning ("zzap_function_return() failed on the create() type: %s", +  tmp->str); +  free_string(tmp); +  }    -  a=function_type_string->str; +  a=tFunc(tVoid,tObj);    if((tmp=zzap_function_return(a, s->u.program->id)))    return tmp;