pike.git / src / opcodes.c

version» Context lines:

pike.git/src/opcodes.c:15:   #include "opcodes.h"   #include "object.h"   #include "error.h"   #include "pike_types.h"   #include "pike_memory.h"   #include "fd_control.h"   #include "cyclic.h"   #include "builtin_functions.h"   #include "module_support.h"    - RCSID("$Id: opcodes.c,v 1.19 1998/04/16 01:14:16 hubbe Exp $"); + RCSID("$Id: opcodes.c,v 1.20 1998/04/20 18:53:21 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {    INT32 i;    switch(what->type)    {    case T_ARRAY:    simple_array_index_no_free(to,what->u.array,ind);    break;   
pike.git/src/opcodes.c:236:    push_int(0);    }    APPLY_MASTER("cast_to_program",2);    return;       case T_FUNCTION:    {    struct program *p=program_from_function(sp-1);    if(p)    { -  p->refs++; +  add_ref(p);    pop_stack();    push_program(p);    }else{    pop_stack();    push_int(0);    }    }    return;       default:
pike.git/src/opcodes.c:264:    if(fp->current_object->prog)    error("Cast to function in destructed object.\n");    i=find_shared_string_identifier(sp[-1].u.string,fp->current_object->prog);    free_string(sp[-1].u.string);    /* FIXME, check that it is a indeed a function */    if(i==-1)    {    sp[-1].type=T_FUNCTION;    sp[-1].subtype=i;    sp[-1].u.object=fp->current_object; -  fp->current_object->refs++; +  add_ref(fp->current_object);    }else{    sp[-1].type=T_INT;    sp[-1].subtype=NUMBER_UNDEFINED;    sp[-1].u.integer=0;    }    break;    }    }    }