2000-09-09
2000-09-09 19:39:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
-
cfe1fe505949a255b571bc0e1694394a56edba41
(14 lines)
(+12/-2)
[
Show
| Annotate
]
Branch: 7.9
temporary kluge..
Rev: src/las.c:1.204
5:
\*/
/**/
#include "global.h"
- RCSID("$Id: las.c,v 1.203 2000/09/08 17:06:29 hubbe Exp $");
+ RCSID("$Id: las.c,v 1.204 2000/09/09 19:39:44 hubbe Exp $");
#include "language.h"
#include "interpret.h"
118: Inside #if defined(PIKE_DEBUG)
struct identifier *id = ID_FROM_INT(state->new_program, id_no);
if (id) {
#ifdef PIKE_DEBUG
+ /* FIXME: This test crashes on valid code because the type of the
+ * identifier can change in pass 2 - Hubbe
+ */
if(id->type != n->type)
{
printf("Type of external node is not matching it's identifier.\nid->type: ");
1014:
res=freeze_node(res);
#ifdef PIKE_DEBUG
- if(id->type != res->type)
+ /* FIXME: This test crashes on valid code because the type of the
+ * identifier can change in pass 2 -Hubbe
+ */
+ if(d_flag && id->type != res->type)
{
printf("Type of external node is not matching it's identifier.\nid->type: ");
simple_describe_type(id->type);
2828:
if (id && id->name) {
name = id->name->str;
#ifdef PIKE_DEBUG
+ /* FIXME: This test crashes on valid code because the type of the
+ * identifier can change in pass 2 -Hubbe
+ */
if(id->type != f)
{
printf("Type of external node is not matching it's identifier.\nid->type: ");