pike.git
/
src
/
docode.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/docode.c:1:
/* || This file is part of Pike. For copyright information see COPYRIGHT. || Pike is distributed under GPL, LGPL and MPL. See the file COPYING || for more information.
-
|| $Id: docode.c,v 1.
150
2002/10/
11
01
:
39
:
30
nilsson
Exp $
+
|| $Id: docode.c,v 1.
151
2002/10/
25
13
:
13
:
57
marcus
Exp $
*/ #include "global.h"
-
RCSID("$Id: docode.c,v 1.
150
2002/10/
11
01
:
39
:
30
nilsson
Exp $");
+
RCSID("$Id: docode.c,v 1.
151
2002/10/
25
13
:
13
:
57
marcus
Exp $");
#include "las.h" #include "program.h" #include "pike_types.h" #include "stralloc.h" #include "interpret.h" #include "constants.h" #include "array.h" #include "pike_macros.h" #include "pike_error.h" #include "pike_memory.h"
pike.git/src/docode.c:1708:
yytype_error("Type mismatch in case.", current_switch.type, case_val->type, 0); } else if (lex.pragmas & ID_STRICT_TYPES) { yytype_error("Type mismatch in case.", current_switch.type, case_val->type, YYTE_IS_WARNING); } } } if (!Pike_compiler->num_parse_error) {
-
tmp1=eval_low(case_val);
+
tmp1=eval_low(case_val
,1
);
if(tmp1<1) { yyerror("Error in case label."); push_int(0); tmp1=1; } pop_n_elems(tmp1-1); current_switch.values_on_stack++; for(tmp1=current_switch.values_on_stack; tmp1 > 1; tmp1--) if(is_equal(Pike_sp-tmp1, Pike_sp-1))