pike.git/src/modules/Parser/pike.c:83:
struct pike_string *left_s = NULL; /* Make gcc happy. */
struct pike_string *data;
int left;
ONERROR tmp;
get_all_args("tokenize", args, "%W", &data);
if(!data->len)
{
pop_n_elems(args);
- ref_push_array(&empty_array);
- ref_push_string(empty_pike_string);
+ push_empty_array();
+ push_empty_string();
f_aggregate(2);
return;
}
res = allocate_array_no_init( 0, 128 );
SET_ONERROR(tmp, do_free_arrayptr, &res);
switch(data->size_shift)
{
case 0:
pike.git/src/modules/Parser/pike.c:116: Inside #if defined(PIKE_DEBUG)
#ifdef PIKE_DEBUG
default:
Pike_error("Unknown shift size %d.\n", data->size_shift);
#endif
}
UNSET_ONERROR(tmp);
pop_n_elems(args);
if (!res->size) {
free_array(res);
- add_ref(res = &empty_array);
+ push_empty_array();
}
-
+ else
push_array(res);
push_string( left_s );
f_aggregate( 2 );
}
void init_parser_pike()
{
ADD_FUNCTION2("tokenize", f_tokenize,
tFunc(tStr,tArr(tOr(tArr(tStr),tStr))), 0, 0);
}
void exit_parser_pike()
{
}