pike.git / src / las.c

version» Context lines:

pike.git/src/las.c:1:   /*   || 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: las.c,v 1.313 2002/11/24 21:46:47 grubba Exp $ + || $Id: las.c,v 1.314 2002/11/24 21:57:16 grubba Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.313 2002/11/24 21:46:47 grubba Exp $"); + RCSID("$Id: las.c,v 1.314 2002/11/24 21:57:16 grubba Exp $");      #include "language.h"   #include "interpret.h"   #include "las.h"   #include "array.h"   #include "object.h"   #include "stralloc.h"   #include "dynamic_buffer.h"   #include "lex.h"   #include "pike_types.h"
pike.git/src/las.c:5284:    if(foo->counter-- < 0)    {    foo->yes=1;    pike_throw();    }   }      ptrdiff_t eval_low(node *n,int print_error)   {    unsigned INT16 num_strings, num_constants; -  INT32 jump; +  size_t jump;    struct svalue *save_sp = Pike_sp;    ptrdiff_t ret;   #ifdef PIKE_USE_MACHINE_CODE    size_t num_relocations;   #endif /* PIKE_USE_MACHINE_CODE */      #ifdef PIKE_DEBUG    if(l_flag > 3 && n)    {    fprintf(stderr,"Evaluating (tree info=%x):",n->tree_info);
pike.git/src/las.c:5307:   #endif       if(Pike_compiler->num_parse_error) return -1;       num_strings=Pike_compiler->new_program->num_strings;    num_constants=Pike_compiler->new_program->num_constants;   #ifdef PIKE_USE_MACHINE_CODE    num_relocations = Pike_compiler->new_program->num_relocations;   #endif /* PIKE_USE_MACHINE_CODE */    -  jump = DO_NOT_WARN((INT32)PIKE_PC); +  jump = PIKE_PC;      #ifdef INS_ENTRY    INS_ENTRY();   #endif /* INS_ENTRY */       store_linenumbers=0;    docode(dmalloc_touch(node *, n));    ins_f_byte(F_DUMB_RETURN);    store_linenumbers=1;   
pike.git/src/las.c:5397:    free_string(p_const->name);    p_const->name = NULL;    }    }      #ifdef PIKE_USE_MACHINE_CODE    Pike_compiler->new_program->num_relocations = num_relocations;      #ifdef VALGRIND_DISCARD_TRANSLATIONS    /* We won't use this machine code any more... */ -  VALGRIND_DISCARD_TRANSLATIONS(jump, -  (p->num_program - jump)*sizeof(p->program[0])); +  VALGRIND_DISCARD_TRANSLATIONS(Pike_compiler->new_program->program + jump, +  (Pike_compiler->new_program-> +  num_program - jump)*sizeof(PIKE_OPCODE_T));   #endif /* VALGRIND_DISCARD_TRANSLATIONS */   #endif /* PIKE_USE_MACHINE_CODE */       Pike_compiler->new_program->num_program=jump;       return ret;   }      static node *eval(node *n)   {