Branch: Tag:

2005-06-09

2005-06-09 17:57:50 by Martin Stjernholm <mast@lysator.liu.se>

Fixed bug that caused free_all_nodes to free nodes too often. It could be
trigged either after compilation errors or when rtldebug is used.

Rev: src/las.c:1.245

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.244 2005/05/15 13:16:56 grubba Exp $"); + RCSID("$Id: las.c,v 1.245 2005/06/09 17:57:50 mast Exp $");      #include "language.h"   #include "interpret.h"
3084:    char *name;    INT32 max_args,args;    +  type_stack_mark(); +     push_type(T_MIXED); /* match any return type */    push_type(T_VOID); /* even void */    push_type(T_OR);
3093:    function_type_max=0;    low_build_function_type(CDR(n));    push_type(T_FUNCTION); -  s = pop_type(); +  +  s = pop_unfinished_type(); +     f = CAR(n)->type?CAR(n)->type:mixed_type_string;    n->type = check_call(s, f,    (lex.pragmas & ID_STRICT_TYPES) &&