pike.git / src / builtin.cmod

version» Context lines:

pike.git/src/builtin.cmod:1:   /* -*- c -*- -  * $Id: builtin.cmod,v 1.54 2001/07/02 10:43:39 grubba Exp $ +  * $Id: builtin.cmod,v 1.55 2001/07/02 11:21:09 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:47:    if(fun != -1)    {    push_int('t');    f_aggregate_mapping(0);    apply_low(x->u.object, fun, 2);    if(Pike_sp[-1].type == T_STRING)    {    stack_swap();    pop_stack();    return; -  } +  } else if (IS_ZERO(Pike_sp-1)) { +  pop_stack(); +  push_constant_text("object"); +  return; +  } else {    Pike_error("Non-string returned from _sprintf()\n");    }    } -  +  }    pop_stack();    switch(t)    {    case T_ARRAY: push_constant_text("array"); break;    case T_FLOAT: push_constant_text("float"); break;    case T_FUNCTION: push_constant_text("function"); break;    case T_INT: push_constant_text("int"); break;    case T_LVALUE: push_constant_text("lvalue"); break;    case T_MAPPING: push_constant_text("mapping"); break;    case T_MULTISET: push_constant_text("multiset"); break;