2000-09-08
2000-09-08 17:06:29 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
da77e22a687e4b299c33a12d54a8afeb4b8d5a0c
(27 lines)
(+23/-4)
[
Show
| Annotate
]
Branch: 7.9
pike -d may now work again
Rev: src/las.c:1.203
Rev: src/pike_types.c:1.139
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: las.c,v 1.202 2000/09/04 14:49:05 per Exp $");
+ RCSID("$Id: las.c,v 1.203 2000/09/08 17:06:29 hubbe Exp $");
#include "language.h"
#include "interpret.h"
110: Inside #if defined(PIKE_DEBUG)
{
int parent_id = n->u.integer.a;
int id_no = n->u.integer.b;
- struct program_state *state = Pike_compiler->previous;
+ struct program_state *state = Pike_compiler;
while (state && (state->new_program->id != parent_id)) {
state = state->previous;
}
375: Inside #if defined(SHARED_NODES)
}
orig->node_info &= ~OPT_DEFROSTED;
add_node(dmalloc_touch(node *, orig));
+ check_tree(orig,0);
return check_node_hash(orig);
}
913:
node *debug_mkidentifiernode(int i)
{
#if 1
- return mkexternalnode(Pike_compiler->new_program, i);
+ node *res = mkexternalnode(Pike_compiler->new_program, i);
+ check_tree(res,0);
+ return res;
#else
node *res = mkemptynode();
res->token = F_IDENTIFIER;
1008:
if(parent_prog != Pike_compiler->new_program)
Pike_compiler->new_program->flags |= PROGRAM_USES_PARENT;
- return freeze_node(res);
+ res=freeze_node(res);
+
+ #ifdef PIKE_DEBUG
+ if(id->type != res->type)
+ {
+ printf("Type of external node is not matching it's identifier.\nid->type: ");
+ simple_describe_type(id->type);
+ printf("\nres->type : ");
+ simple_describe_type(res->type);
+ printf("\n");
+
+ fatal("Type of external node is not matching it's identifier.\n");
}
-
+ #endif
-
+ return res;
+ }
+
node *debug_mkcastnode(struct pike_string *type,node *n)
{
node *res;