pike.git / src / interpret.c

version» Context lines:

pike.git/src/interpret.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: interpret.c,v 1.81 1998/05/12 23:51:23 hubbe Exp $"); + RCSID("$Id: interpret.c,v 1.82 1998/05/24 00:49:47 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"   #include "svalue.h"   #include "array.h"   #include "mapping.h"   #include "error.h"   #include "language.h"   #include "stralloc.h"   #include "constants.h"
pike.git/src/interpret.c:794:    CASE(F_LOCAL_LVALUE);    sp[0].type=T_LVALUE;    sp[0].u.lval=fp->locals+GET_ARG();    sp[1].type=T_VOID;    sp+=2;    break;       CASE(F_ARRAY_LVALUE);    f_aggregate(GET_ARG()*2);    sp[-1].u.array->flags |= ARRAY_LVALUE; +  sp[-1].u.array->type_field |= BIT_UNFINISHED;    sp[0]=sp[-1];    sp[-1].type=T_ARRAY_LVALUE;    sp++;    break;       CASE(F_CLEAR_2_LOCAL);    instr=GET_ARG();    free_svalues(fp->locals + instr, 2, -1);    fp->locals[instr].type=T_INT;    fp->locals[instr].subtype=0;
pike.git/src/interpret.c:1413:    push_int(1);    goto do_return;       CASE(F_RETURN_0);    push_int(0);    goto do_return;       CASE(F_RETURN);    do_return:   #if defined(DEBUG) && defined(GC2) -  if(d_flag > 2) do_gc(); +  if(d_flag>2) do_gc(); +  if(d_flag>3) do_debug();    check_threads_etc();   #endif       /* fall through */       CASE(F_DUMB_RETURN);    return -1;       CASE(F_NEGATE);    if(sp[-1].type == T_INT)