pike.git / src / operators.c

version» Context lines:

pike.git/src/operators.c:5562:   #define THIS ((struct string_assignment_storage *)(CURRENT_STORAGE))   /*! @decl int `[](int i)    *!    *! String index operator.    */   static void f_string_assignment_index(INT32 args)   {    ptrdiff_t len;    INT_TYPE i, p;    -  get_all_args("string[]", args, "%i", &p); +  get_all_args(NULL, args, "%i", &p);       if (!THIS->s) {    Pike_error("Indexing uninitialized string_assignment.\n");    }       len = THIS->s->len;    i = p < 0 ? p + len : p;    if(i<0 || i>=len)    Pike_error("Index %"PRINTPIKEINT"d is out of string range "    "%"PRINTPTRDIFFT"d..%"PRINTPTRDIFFT"d.\n",
pike.git/src/operators.c:5590:   /*! @decl int `[]=(int i, int j)    *!    *! String assign index operator.    */   static void f_string_assignment_assign_index(INT32 args)   {    INT_TYPE p, i, j;    union anything *u;    ptrdiff_t len;    -  get_all_args("string[]=",args,"%i%i",&p,&j); +  get_all_args(NULL, args, "%i%i", &p, &j);       if((u=get_pointer_if_this_type(THIS->lval, T_STRING)))    {    len = u->string->len;    i = p < 0 ? p + len : p;    if(i<0 || i>=len)    Pike_error("Index %"PRINTPIKEINT"d is out of string range "    "%"PRINTPTRDIFFT"d..%"PRINTPTRDIFFT"d.\n",    p, -len, len - 1);    if (THIS->s) free_string(THIS->s);