pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h:263:   #define stack_pop_to_no_free(X) move_svalue(X, --Pike_sp)      #define stack_pop_to(X) do { \    struct svalue *_=(X); \    free_svalue(_); \    stack_pop_to_no_free(_); \    }while(0)      #define push_program(P) do{ \    struct program *_=(P); \ -  struct svalue *_sp_ = (struct svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_PROGRAM,0); \    _sp_->u.program=_; \    }while(0)      #define push_int(I) do{ \    INT_TYPE _=(I); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_INT,NUMBER_NUMBER); \    _sp_->u.integer=_; \    }while(0)      #define push_undefined() do{ \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_INT,NUMBER_UNDEFINED); \    _sp_->u.integer=0; \    }while(0)      #define push_obj_index(I) do{ \    int _=(I); \    struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, T_OBJ_INDEX,0); \    _sp_->u.identifier=_; \    }while(0)
pike.git/src/interpret.h:317:   #define push_multiset(L) do{ \    struct multiset *_=(L); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_MULTISET,0); \    _sp_->u.multiset=_; \    }while(0)      #define push_string(S) do { \    struct pike_string *_=(S); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    DO_IF_DEBUG(if(_->size_shift & ~3) { \    Pike_fatal("Pushing string with bad shift: %d\n", \    _->size_shift); \    }); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    _sp_->u.string=_; \    }while(0)      #define push_empty_string() ref_push_string(empty_pike_string)
pike.git/src/interpret.h:341:    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_TYPE,0); \    _sp_->u.type=_; \    }while(0)      #define push_object(O) push_object_inherit(O,0)      #define push_object_inherit(O, INH_NUM) do { \    struct object *_ = (O); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    int _inh_ = (INH_NUM); \    debug_malloc_touch(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_OBJECT,_inh_); \    _sp_->u.object = _; \    }while(0)      #define push_float(F) do{ \    FLOAT_TYPE _=(F); \    struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_FLOAT,0); \    _sp_->u.float_number=_; \    }while(0)      PMOD_EXPORT extern void push_text( const char *x );      #define push_constant_text(T) do{ \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    REF_MAKE_CONST_STRING(_sp_->u.string,T); \    }while(0)      #define push_constant_string_code(STR, CODE) do{ \    struct pike_string *STR; \    REF_MAKE_CONST_STRING_CODE (STR, CODE); \    push_string (STR); \    }while(0)      #define push_function(OBJ, FUN) do { \    struct object *_=(OBJ); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_FUNCTION,(FUN)); \    _sp_->u.object=_; \    } while (0)      #define ref_push_program(P) do{ \    struct program *_=(P); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_PROGRAM,0); \
pike.git/src/interpret.h:411:   #define ref_push_multiset(L) do{ \    struct multiset *_=(L); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_MULTISET,0); \    _sp_->u.multiset=_; \    }while(0)      #define ref_push_string(S) do{ \    struct pike_string *_=(S); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    DO_IF_DEBUG(if(_->size_shift & ~3) { \    Pike_fatal("Pushing string with bad shift: %d\n", \    _->size_shift); \    }); \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    _sp_->u.string=_; \    }while(0)      #define ref_push_type_value(S) do{ \    struct pike_type *_=(S); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_TYPE,0); \    _sp_->u.type=_; \    }while(0)      #define ref_push_object(O) ref_push_object_inherit(O,0)      #define ref_push_object_inherit(O, INH_NUM) do{ \    struct object *_ = (O); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_OBJECT, (INH_NUM)); \    _sp_->u.object = _; \    }while(0)      #define ref_push_function(OBJ, FUN) do { \    struct object *_=(OBJ); \ -  struct fast_svalue *_sp_ = (struct fast_svalue*)Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_FUNCTION,(FUN)); \    _sp_->u.object=_; \    } while (0)      #define push_svalue(S) do { \    const struct svalue *_=(S); \    struct svalue *_sp_ = Pike_sp++; \    assign_svalue_no_free(_sp_,_); \    }while(0)
pike.git/src/interpret.h:470:    } while(0)      #if PIKE_T_INT+NUMBER_NUMBER==0 && defined(HAS___BUILTIN_MEMSET)   #define push_zeroes(N) do{ \    ptrdiff_t num_ = (N); \    __builtin_memset(Pike_sp,0,sizeof(struct svalue)*(num_)); \    Pike_sp+=num_; \    } while(0);   #else   #define push_zeroes(N) do{ \ -  struct fast_svalue *s_=(struct fast_svalue*)Pike_sp; \ +  struct svalue *s_ = Pike_sp; \    ptrdiff_t num_= (N); \    for(;num_-- > 0;s_++) \    { \    SET_SVAL_TYPE_SUBTYPE(*s_, PIKE_T_INT,NUMBER_NUMBER); \    s_->u.integer=0; \    } \    Pike_sp=s_; \   }while(0)   #endif      #define push_undefines(N) do{ \ -  struct fast_svalue *s_=(struct fast_svalue*)Pike_sp; \ +  struct svalue *s_ = Pike_sp; \    ptrdiff_t num_= (N); \    for(;num_-- > 0;s_++) \    { \    SET_SVAL_TYPE_SUBTYPE(*s_, PIKE_T_INT,NUMBER_UNDEFINED); \    s_->u.integer=0; \    } \    Pike_sp=s_; \   }while(0)