pike.git
/
src
/
operators.c
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/operators.c:1:
/*\ ||| This file a part of Pike, and is copyright by Fredrik Hubinette ||| Pike is distributed as GPL (General Public License) ||| See the files COPYING and DISCLAIMER for more information. \*/ /**/ #include "global.h" #include <math.h>
-
RCSID("$Id: operators.c,v 1.
115
2000
/
12
/
15
21
:
37
:
44
grubba
Exp $");
+
RCSID("$Id: operators.c,v 1.
116
2001
/
01
/
25
09
:
14
:
39
hubbe
Exp $");
#include "interpret.h" #include "svalue.h" #include "multiset.h" #include "mapping.h" #include "array.h" #include "stralloc.h" #include "opcodes.h" #include "operators.h" #include "language.h" #include "pike_memory.h"
pike.git/src/operators.c:2592:
static int generate_sizeof(node *n) { node **arg; if(count_args(CDR(n)) != 1) return 0; if(do_docode(CDR(n),DO_NOT_COPY) != 1) fatal("Count args was wrong in sizeof().\n"); emit0(F_SIZEOF); return 1; }
-
static
int generate_call_function(node *n)
-
{
-
node **arg
;
-
emit0(F_MARK);
-
do_docode(CDR(n),DO_NOT_COPY);
-
emit0(F_CALL_FUNCTION);
-
return 1;
-
}
-
+
extern
int generate_call_function(node *n);
struct program *string_assignment_program; #undef THIS #define THIS ((struct string_assignment_storage *)(CURRENT_STORAGE)) static void f_string_assignment_index(INT32 args) { INT_TYPE i; get_all_args("string[]",args,"%i",&i); if(i<0) i+=THIS->s->len; if(i<0)