1999-12-13
1999-12-13 23:41:07 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
f1af89e329839c45ffd2b3973d86abf06bb3d5a3
(16 lines)
(+13/-3)
[
Show
| Annotate
]
Branch: 7.9
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