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.321 2003/08/18 15:11:38 mast Exp $ + || $Id: las.c,v 1.322 2003/12/02 13:49:58 grubba Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.321 2003/08/18 15:11:38 mast Exp $"); + RCSID("$Id: las.c,v 1.322 2003/12/02 13:49:58 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:5323:    if(foo->counter-- < 0)    {    foo->yes=1;    pike_throw();    }   }      ptrdiff_t eval_low(node *n,int print_error)   {    unsigned INT16 num_strings, num_constants; +  unsigned INT32 num_program;    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);    print_tree(n);    }   #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; -  +  num_program=Pike_compiler->new_program->num_program;   #ifdef PIKE_USE_MACHINE_CODE    num_relocations = Pike_compiler->new_program->num_relocations;   #endif /* PIKE_USE_MACHINE_CODE */    -  jump = PIKE_PC; +  jump = docode(dmalloc_touch(node *, n));    - #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; -  +     ret=-1;    if(!Pike_compiler->num_parse_error)    {    struct callback *tmp_callback;    struct timer_oflo foo;       /* This is how long we try to optimize before giving up... */    foo.counter=10000;    foo.yes=0;   
pike.git/src/las.c:5436:    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(Pike_compiler->new_program->program + jump, +  VALGRIND_DISCARD_TRANSLATIONS(Pike_compiler->new_program->program + +  num_program,    (Pike_compiler->new_program-> -  num_program - jump)*sizeof(PIKE_OPCODE_T)); +  num_program - num_program)*sizeof(PIKE_OPCODE_T));   #endif /* VALGRIND_DISCARD_TRANSLATIONS */   #endif /* PIKE_USE_MACHINE_CODE */    -  Pike_compiler->new_program->num_program=jump; +  Pike_compiler->new_program->num_program=num_program;       return ret;   }      static node *eval(node *n)   {    node *new;    ptrdiff_t args;    if(!is_const(n) || n->token==':')    return n;