pike.git/
src/
program.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-10-02
2001-10-02 07:19:04 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>
e037dc231b1cfa5af382e5138685839996edcfc4 (
8
lines) (+
5
/-
3
)
[
Show
|
Annotate
]
Branch:
7.9
backwards compatibility
Rev: src/program.c:1.379
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: program.c,v 1.
378
2001/
09
/
29
06
:19:
28
hubbe Exp $");
+
RCSID("$Id: program.c,v 1.
379
2001/
10
/
02
07
:19:
04
hubbe Exp $");
#include "program.h" #include "object.h" #include "dynamic_buffer.h"
3317:
if(IDENTIFIERP(n)->id_flags & ID_NOMASK) my_yyerror("Illegal to redefine 'nomask' identifier \"%s\"", name->str);
-
if(IDENTIFIER_IS_VARIABLE(ID_FROM_INT(Pike_compiler->new_program,
+
if(
!TEST_COMPAT(7,0) &&
+
IDENTIFIER_IS_VARIABLE(ID_FROM_INT(Pike_compiler->new_program,
n)->identifier_flags)) {
-
my_yyerror("Illegal to redefine variable \"%s\" as constant.
\n
",
+
my_yyerror("Illegal to redefine variable \"%s\" as constant.",
name->str); }