Branch: Tag:

2000-02-13

2000-02-13 05:09:05 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

made some approximate bugfixes

Rev: src/program.c:1.203
Rev: src/testsuite.in:1.277

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.202 2000/02/10 17:58:08 hubbe Exp $"); + RCSID("$Id: program.c,v 1.203 2000/02/13 05:09:04 hubbe Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
1928:       if(!(IDENTIFIERP(n)->id_flags & ID_INLINE) || compiler_pass!=1)    { - /* if(ID_FROM_INT(new_program, n)->type != type) */ - /* my_yyerror("Illegal to redefine inherited variable " */ - /* "with different type."); */ +  if(!match_types(ID_FROM_INT(new_program, n)->type, type)) +  my_yyerror("Illegal to redefine inherited variable " +  "with different type.");    -  +  +     if(!IDENTIFIER_IS_VARIABLE(ID_FROM_INT(new_program, n)->    identifier_flags))    {