Branch: Tag:

2002-06-25

2002-06-25 14:26:41 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Removed the support for the old-style preorder dumped types (pre USE_PIKE_TYPE).

Rev: src/acconfig.h:1.101
Rev: src/builtin_functions.c:1.433
Rev: src/compilation.h:1.27
Rev: src/configure.in:1.590
Rev: src/constants.c:1.37
Rev: src/encode.c:1.149
Rev: src/global.h:1.70
Rev: src/interpret.c:1.262
Rev: src/language.yacc:1.288
Rev: src/las.c:1.295
Rev: src/main.c:1.149
Rev: src/operators.c:1.156
Rev: src/pike_types.c:1.188
Rev: src/pike_types.h:1.78
Rev: src/program.c:1.437
Rev: src/svalue.c:1.142
Rev: src/svalue.h:1.105

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.294 2002/06/07 17:45:49 nilsson Exp $"); + RCSID("$Id: las.c,v 1.295 2002/06/25 14:26:40 grubba Exp $");      #include "language.h"   #include "interpret.h"
3290:       case F_PUSH_ARRAY:    { - #ifdef USE_PIKE_TYPE +     struct pike_type *so_far;    struct pike_type *arg_type;    struct pike_type *tmp;
3331: Inside #if defined(USE_PIKE_TYPE)
   free_type(so_far);    free_type(tmp);    push_type(T_MANY); - #else /* !USE_PIKE_TYPE */ -  /* We let this ruin type-checking for now.. */ -  reset_type_stack(); -  -  push_type(T_MIXED); -  push_type(T_VOID); -  push_type(T_OR); /* return type is void or mixed */ -  -  push_type(T_MIXED); -  push_type(T_VOID); -  push_type(T_OR); /* varargs */ -  -  push_type(T_MANY); - #endif /* USE_PIKE_TYPE */ +     }    return;   
3356:    }else{    push_type(T_MIXED);    } - #ifdef USE_PIKE_TYPE +     push_type(T_FUNCTION); - #endif /* USE_PIKE_TYPE */ +     }   }   
3574:    char *name;    INT32 max_args,args;    - #if defined(USE_PIKE_TYPE) && defined(NEW_ARG_CHECK) + #ifdef NEW_ARG_CHECK       args = 0;   
3595: Inside #if defined(USE_PIKE_TYPE) && defined(NEW_ARG_CHECK)
   break;    }    - #else /* !(USE_PIKE_TYPE && NEW_ARG_CHECK) */ + #else /* !NEW_ARG_CHECK */       push_type(T_MIXED); /* match any return type */    push_type(T_VOID); /* even void */
3605:    push_type(T_MANY);    function_type_max=0;    low_build_function_type(CDR(n)); - #ifndef USE_PIKE_TYPE -  push_type(T_FUNCTION); - #endif /* !USE_PIKE_TYPE */ +     s = pop_type();    f = CAR(n)->type?CAR(n)->type:mixed_type_string;    n->type = check_call(s, f,
3755:    /* print_tree(n); */       free_type(s); - #endif /* USE_PIKE_TYPE && NEW_ARG_CHECK */ + #endif /* NEW_ARG_CHECK */    }    copy_pike_type(n->type, mixed_type_string);    break;
3853:    push_type(T_VOID);    push_type(T_MANY);    push_finished_type(CDR(n)->type); - #ifdef USE_PIKE_TYPE +     push_type(T_FUNCTION); - #endif /* USE_PIKE_TYPE */ +     push_finished_type(CAR(n)->type);    push_type(T_FUNCTION);