pike.git / src / interpret.h

version» Context lines:

pike.git/src/interpret.h:404:    FLOAT_TYPE _=(F); \    struct svalue *_sp_ = Pike_sp++; \    SET_SVAL_TYPE_CHECKER(*_sp_, PIKE_T_FLOAT); \    _sp_->u.float_number=_; \    }while(0)      PMOD_EXPORT extern void push_text( const char *x );   PMOD_EXPORT extern void push_static_text( const char *x );      #define push_constant_text(T) do{ \ -  struct svalue *_sp_ = Pike_sp++; \ +  struct svalue *_sp_ = Pike_sp; \    SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_STRING,0); \    REF_MAKE_CONST_STRING(_sp_->u.string,T); \ -  +  Pike_sp = _sp_ + 1; \    }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 { \ -  +  INT16 _fun_ = (FUN); \    struct object *_=(OBJ); \    struct svalue *_sp_ = Pike_sp++; \    debug_malloc_touch(_); \ -  SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_FUNCTION,(FUN)); \ +  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_CHECKER(*_sp_, PIKE_T_PROGRAM); \    _sp_->u.program=_; \    }while(0)
pike.git/src/interpret.h:478:    struct pike_type *_=(S); \    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{ \ +  INT16 _inherit_ = (INH_NUM); \    struct object *_ = (O); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \ -  SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_OBJECT, (INH_NUM)); \ +  SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_OBJECT, _inherit_); \    _sp_->u.object = _; \    }while(0)      #define ref_push_function(OBJ, FUN) do { \ -  +  INT16 _fun_ = (FUN); \    struct object *_=(OBJ); \    struct svalue *_sp_ = Pike_sp++; \    add_ref(_); \ -  SET_SVAL_TYPE_SUBTYPE(*_sp_, PIKE_T_FUNCTION,(FUN)); \ +  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++; \ +  struct svalue *_sp_ = Pike_sp; \    assign_svalue_no_free(_sp_,_); \ -  +  Pike_sp = _sp_ + 1; \    }while(0)      #define stack_dup() push_svalue(Pike_sp-1)      #define stack_swap() do { \    struct svalue *_sp_ = Pike_sp; \    struct svalue _=_sp_[-1]; \    _sp_[-1]=_sp_[-2]; \    _sp_[-2]=_; \    } while(0)