pike.git/
src/
las.c
Branch:
Tag:
Non-build tags
All tags
No tags
2001-03-11
2001-03-11 14:19:49 by Henrik Grubbström (Grubba) <grubba@grubba.org>
9459a930f7cd71c51a74cafe0aee2792ff0553ed (
9
lines) (+
5
/-
4
)
[
Show
|
Annotate
]
Branch:
7.9
Moved some foreach() warnigns to strict_types.
Rev: src/las.c:1.244
5:
\*/ /**/ #include "global.h"
-
RCSID("$Id: las.c,v 1.
243
2001/03/
03
17
:
51
:
50
grubba Exp $");
+
RCSID("$Id: las.c,v 1.
244
2001/03/
11
14
:
19
:
49
grubba Exp $");
#include "language.h" #include "interpret.h"
3473:
*/ free_type(iterator_type); goto foreach_type_check_done;
-
} else {
+
} else
if (lex.pragmas & ID_STRICT_TYPES)
{
yytype_error("Iterator type mismatch in foreach()", iterator_type, CAAR(n)->type, YYTE_IS_WARNING); }
3508:
if (!match_types(CADAR(n)->type, index_type)) { yytype_error("Type mismatch for index in foreach().", index_type, CADAR(n)->type, 0);
-
} else {
+
} else
if (lex.pragmas & ID_STRICT_TYPES)
{
yytype_error("Type mismatch for index in foreach().", index_type, CADAR(n)->type, YYTE_IS_WARNING); }
3538:
if (!match_types(CDDAR(n)->type, value_type)) { yytype_error("Type mismatch for value in foreach().", value_type, CDDAR(n)->type, 0);
-
} else {
+
} else
if (lex.pragmas & ID_STRICT_TYPES)
{
yytype_error("Type mismatch for value in foreach().", value_type, CDDAR(n)->type, YYTE_IS_WARNING); }