Branch: Tag:

1999-12-13

1999-12-13 23:41:07 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Improved find_return_type().

Rev: src/las.c:1.137

5:   \*/   /**/   #include "global.h" - RCSID("$Id: las.c,v 1.136 1999/12/09 23:24:10 grubba Exp $"); + RCSID("$Id: las.c,v 1.137 1999/12/13 23:41:07 grubba Exp $");      #include "language.h"   #include "interpret.h"
107: Inside #if defined(PIKE_DEBUG)
      if(car_is_node(n))    { + #ifndef SHARED_NODES    if(CAR(n)->parent != n)    fatal("Parent is wrong.\n"); -  + #endif /* !SHARED_NODES */       check_tree(CAR(n),depth);    }       if(cdr_is_node(n))    { -  + #ifndef SHARED_NODES    if(CDR(n)->parent != n)    fatal("Parent is wrong.\n"); -  + #endif /* !SHARED_NODES */       check_tree(CDR(n),depth);    }
200:       if(a)    { -  if(b && a!=b) return mixed_type_string; +  if(b && a!=b) return or_pike_types(a, b); +  add_ref(a);    return a;    } -  +  if (b) { +  add_ref(b);    return b;    } -  +  return 0; + }         #define NODES 256