pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h:195:    (depth)); \    } \    } while(0)   #else /* !PIKE_DEBUG */   #define STACK_LEVEL_START(depth) do {   #define STACK_LEVEL_DONE(depth) } while(0)   #define STACK_LEVEL_CHECK(depth)   #endif /* PIKE_DEBUG */      #ifdef __CHECKER__ - #define SET_SVAL_TYPE_SUBTYPE_CHECKER(S,T,U) SET_SVAL_TYPE(S,Y);SET_SVAL_SUBTYPE(S,U) + #define SET_SVAL_TYPE_CHECKER(S,T) SET_SVAL_TYPE_SUBTYPE(S,T,0)   #else - #define SET_SVAL_TYPE_SUBTYPE_CHECKER(S,T,U) SET_SVAL_TYPE(S,T) + #define SET_SVAL_TYPE_CHECKER(S,T) SET_SVAL_TYPE_DC(S,T)   #endif      #define pop_stack() do{ free_svalue(--Pike_sp); debug_check_stack(); }while(0)   #define pop_2_elems() do { pop_stack(); pop_stack(); }while(0)      #ifdef __ECL   #define MAYBE_CAST_TO_LONG(X) (X)   #else /* !__ECL */   #define MAYBE_CAST_TO_LONG(X) ((long)(X))   #endif /* __ECL */
pike.git/src/interpret.h:265:   #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_ = Pike_sp++; \    debug_malloc_touch(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_PROGRAM,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_PROGRAM); \    _sp_->u.program=_; \    }while(0)      #define push_int(I) do{ \    INT_TYPE _=(I); \    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 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); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, T_OBJ_INDEX); \    _sp_->u.identifier=_; \    }while(0)      #define push_mapping(M) do{ \    struct mapping *_=(M); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_MAPPING,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_MAPPING); \    _sp_->u.mapping=_; \    }while(0)      #define push_array(A) do{ \    struct array *_=(A); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_ARRAY,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_ARRAY); \    _sp_->u.array=_ ; \    }while(0)      #define push_empty_array() ref_push_array(&empty_array)      #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); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_MULTISET); \    _sp_->u.multiset=_; \    }while(0)      #define push_string(S) do { \    struct pike_string *_=(S); \    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); \
pike.git/src/interpret.h:333:    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    _sp_->u.string=_; \    }while(0)      #define push_empty_string() ref_push_string(empty_pike_string)      #define push_type_value(S) do{ \    struct pike_type *_=(S); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_TYPE,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_TYPE); \    _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 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); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_FLOAT); \    _sp_->u.float_number=_; \    }while(0)      PMOD_EXPORT extern void push_text( const char *x );      #define push_constant_text(T) do{ \    struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    REF_MAKE_CONST_STRING(_sp_->u.string,T); \    }while(0)
pike.git/src/interpret.h:381:    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); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_PROGRAM); \    _sp_->u.program=_; \    }while(0)      #define ref_push_mapping(M) do{ \    struct mapping *_=(M); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_MAPPING,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_MAPPING); \    _sp_->u.mapping=_; \    }while(0)      #define ref_push_array(A) do{ \    struct array *_=(A); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \ -  SET_SVAL_TYPE_SUBTYPE_CHECKER(*_sp_, PIKE_T_ARRAY,0); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_ARRAY); \    _sp_->u.array=_ ; \    }while(0)      #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); \ +  SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_MULTISET); \    _sp_->u.multiset=_; \    }while(0)      #define ref_push_string(S) do{ \    struct pike_string *_=(S); \    struct svalue *_sp_ = Pike_sp++; \    DO_IF_DEBUG(if(_->size_shift & ~3) { \    Pike_fatal("Pushing string with bad shift: %d\n", \    _->size_shift); \    }); \