Branch: Tag:

2003-01-15

2003-01-15 19:07:50 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Some more hiding of trampoline objects.

Rev: src/opcodes.c:1.133

2:   || This file is part of Pike. For copyright information see COPYRIGHT.   || Pike is distributed under GPL, LGPL and MPL. See the file COPYING   || for more information. - || $Id: opcodes.c,v 1.132 2003/01/14 11:54:06 jhs Exp $ + || $Id: opcodes.c,v 1.133 2003/01/15 19:07:50 grubba Exp $   */      #include "global.h"
30:      #define sp Pike_sp    - RCSID("$Id: opcodes.c,v 1.132 2003/01/14 11:54:06 jhs Exp $"); + RCSID("$Id: opcodes.c,v 1.133 2003/01/15 19:07:50 grubba Exp $");      void index_no_free(struct svalue *to,struct svalue *what,struct svalue *ind)   {
580:    case T_FUNCTION:    if (Pike_sp[-1].subtype == FUNCTION_BUILTIN) {    Pike_error("Cannot cast builtin functions to object.\n"); +  } else if (Pike_sp[-1].u.object->prog == pike_trampoline_program) { +  ref_push_object(((struct pike_trampoline *) +  (Pike_sp[-1].u.object->storage))-> +  frame->current_object); +  stack_pop_n_elems_keep_top(1);    } else {    Pike_sp[-1].type = T_OBJECT;    }