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.312 2002/11/23 17:03:00 mast Exp $ + || $Id: las.c,v 1.313 2002/11/24 21:46:47 grubba Exp $   */      #include "global.h" - RCSID("$Id: las.c,v 1.312 2002/11/23 17:03:00 mast Exp $"); + RCSID("$Id: las.c,v 1.313 2002/11/24 21:46:47 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:5392:       p_const = Pike_compiler->new_program->constants + Pike_compiler->new_program->num_constants;       free_svalue(&p_const->sval);    if (p_const->name) {    free_string(p_const->name);    p_const->name = NULL;    }    }    -  Pike_compiler->new_program->num_program=jump; +    #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])); + #endif /* VALGRIND_DISCARD_TRANSLATIONS */   #endif /* PIKE_USE_MACHINE_CODE */    -  +  Pike_compiler->new_program->num_program=jump; +     return ret;   }      static node *eval(node *n)   {    node *new;    ptrdiff_t args;    if(!is_const(n) || n->token==':')    return n;   
pike.git/src/las.c:5593:    }else{    vargs=0;    }       if(Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPED)    vargs|=IDENTIFIER_SCOPED;       if(Pike_compiler->compiler_frame->lexical_scope & SCOPE_SCOPE_USED)    vargs|=IDENTIFIER_SCOPE_USED;    + #ifdef PIKE_DEBUG +  if(a_flag > 5) +  fprintf(stderr, "Extra identifier flags:0x%02x\n", vargs); + #endif +     if(Pike_compiler->compiler_pass==1)    {    tmp.offset=-1;   #ifdef PIKE_DEBUG    if(a_flag > 4)    {    fprintf(stderr,"Making prototype (pass 1) for: ");    print_tree(n);    }   #endif