pike.git / src / modules / _Debug / debug.cmod

version» Context lines:

pike.git/src/modules/_Debug/debug.cmod:138:    tmp.u.object=tmp.u.object->next;    while(tmp.u.object && !tmp.u.object->prog)    tmp.u.object=tmp.u.object->next;    break;    case T_ARRAY: tmp.u.array=tmp.u.array->next; break;    case T_MAPPING: tmp.u.mapping=tmp.u.mapping->next; break;    case T_MULTISET:tmp.u.multiset=tmp.u.multiset->next; break;    case T_PROGRAM: tmp.u.program=tmp.u.program->next; break;    case T_STRING: tmp.u.string=next_pike_string(tmp.u.string); break;    default: -  SIMPLE_BAD_ARG_ERROR("next", 1, +  SIMPLE_ARG_TYPE_ERROR("next", 1,    "object|array|mapping|multiset|program|string");    }       if(tmp.u.refs)    assign_svalue(Pike_sp-1, &tmp);    else    {    pop_stack();    push_int(0);    }
pike.git/src/modules/_Debug/debug.cmod:186:    case T_OBJECT:    tmp.u.object=tmp.u.object->prev;    while(tmp.u.object && !tmp.u.object->prog)    tmp.u.object=tmp.u.object->prev;    break;    case T_ARRAY: tmp.u.array=tmp.u.array->prev; break;    case T_MAPPING: tmp.u.mapping=tmp.u.mapping->prev; break;    case T_MULTISET:tmp.u.multiset=tmp.u.multiset->prev; break;    case T_PROGRAM: tmp.u.program=tmp.u.program->prev; break;    default: -  SIMPLE_BAD_ARG_ERROR("prev", 1, "object|array|mapping|multiset|program"); +  SIMPLE_ARG_TYPE_ERROR("prev", 1, "object|array|mapping|multiset|program");    }    if(tmp.u.refs)    assign_svalue(Pike_sp-1, &tmp);    else    {    pop_stack();    push_int(0);    }   }      #ifdef PIKE_DEBUG   /* This function is for debugging *ONLY*    * do not document please. /Hubbe    */   PIKEFUN int leak(array|mapping|multiset|object|function|program|string|type val)    export;   {    INT32 i;       if(!REFCOUNTED_TYPE(TYPEOF(*val))) -  SIMPLE_BAD_ARG_ERROR("leak", 1, +  SIMPLE_ARG_TYPE_ERROR("leak", 1,    "array|mapping|multiset|object|"    "function|program|string|type");       add_ref(val->u.dummy);    i = val->u.refs[0];    RETURN i;   }      /*! @decl int(0..) debug(int(0..) level)    *!