pike.git
/
src
/
modules
/
Parser
/
parser.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/modules/Parser/parser.c:1:
#include "global.h" #include "stralloc.h" #include "global.h"
-
RCSID("$Id: parser.c,v 1.
11
2000
/
12
/
01
08
:
10
:
18
hubbe
Exp $");
+
RCSID("$Id: parser.c,v 1.
12
2001
/
07/
12
14
:
02
:
16
grubba
Exp $");
#include "pike_macros.h" #include "interpret.h" #include "program.h" #include "program_id.h" #include "object.h" #include "operators.h" #include "parser.h" /* must be included last */
pike.git/src/modules/Parser/parser.c:88:
PTRDIFF_T_TO_LONG(sp - save_sp), X); \ } \ } while(0) #else #define PARSER_CHECK_STACK(X) #endif /* PIKE_DEBUG */ static void parser_magic_index(INT32 args) {
-
struct svalue tmp;
+
int i; if (args!=1) Pike_error("Parser.`[]: Too few or too many arguments\n"); if (sp[-1].type!=T_STRING) Pike_error("Parser.`[]: Illegal type of argument\n"); for (i=0; i<(int)NELEM(submagic)-1; i++) if (sp[-1].u.string==submagic[i].ps) {