pike.git
/
src
/
builtin.cmod
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/src/builtin.cmod:1:
/* -*- c -*- || 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: builtin.cmod,v 1.
126
2003/03/
12
09
:
29
:
57
agehall
Exp $
+
|| $Id: builtin.cmod,v 1.
127
2003/03/
14
17
:
19
:
52
grubba
Exp $
*/ #include "global.h" #include "interpret.h" #include "svalue.h" #include "opcodes.h" #include "pike_macros.h" #include "object.h" #include "program.h" #include "array.h"
pike.git/src/builtin.cmod:59:
if (id->identifier_flags & IDENTIFIER_C_FUNCTION) { push_int(-2); } else { push_int(id->func.offset); } push_int(ref->inherit_offset); push_int(inh->inherit_level); f_aggregate(6); } f_aggregate(p->num_identifier_references);
+
dmalloc_touch_svalue(Pike_sp-1);
res = Pike_sp[-1].u.array; Pike_sp--; pop_n_elems(args); push_array(res); } /*! @decl string basetype(mixed x) *! *! Same as sprintf("%t",x); *!
pike.git/src/builtin.cmod:294:
if((a=(struct array *)BEGIN_CYCLIC(data,0))) { add_ref(a); }else{ push_array(a=allocate_array(data->size)); SET_CYCLIC_RET(a); for(e=0;e<a->size;e++) index_no_free(ITEM(a)+e, ITEM(data)+e, index);
+
dmalloc_touch_svalue(Pike_sp-1);
Pike_sp--; } END_CYCLIC(); RETURN a; } /*! @decl multiset mkmultiset(array a) *! *! This function creates a multiset from an array. *!
pike.git/src/builtin.cmod:773:
* * or similar */ if( map->type == T_MAPPING ) { struct svalue s; map_delete_no_free(map->u.mapping, index, &s); pop_n_elems(args); *Pike_sp=s; Pike_sp++;
+
dmalloc_touch_svalue(Pike_sp-1);
} else if (map->type == T_OBJECT && map->u.object->prog) { int id = FIND_LFUN(map->u.object->prog, LFUN__M_DELETE); if( id == -1 ) SIMPLE_BAD_ARG_ERROR("m_delete", 1, "object containing the _m_delete method"); apply_low( map->u.object, id, 1 ); stack_swap();
pike.git/src/builtin.cmod:1615:
{ push_int(str->str.s->len); push_int(str->str.malloced); } else { push_int( 0 ); push_int( 0 ); } f_sprintf( 3 );
+
dmalloc_touch_svalue(Pike_sp-1);
res = Pike_sp[-1].u.string; Pike_sp--; RETURN res; } case 's': { pop_n_elems( args ); if( Pike_fp->current_object->refs != 1 ) f_Buffer_get_copy( 0 );
pike.git/src/builtin.cmod:2761:
push_svalue(ITEM(tmpargs[e].u.array)+x); }else{ push_svalue(tmpargs+e); } } if(d == depth) apply_svalue(fun,args); else low_automap(d+1,depth,fun,real_args,args);
+
dmalloc_touch_svalue(Pike_sp-1);
ITEM(ret)[x]=*--Pike_sp; } stack_unlink(args); } PIKEFUN array __automap__(mixed fun, mixed ... tmpargs) efun; { int e,depth=-1;