pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2000-02-13
2000-02-13 05:09:05 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
9eaa6e0c3f136df08e240b476b88c769c957468e (
11
lines) (+
7
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
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)) {