pike.git / src / program.c

version» Context lines:

pike.git/src/program.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: program.c,v 1.483 2003/02/24 21:00:45 mast Exp $ + || $Id: program.c,v 1.484 2003/03/08 17:25:19 grubba Exp $   */      #include "global.h" - RCSID("$Id: program.c,v 1.483 2003/02/24 21:00:45 mast Exp $"); + RCSID("$Id: program.c,v 1.484 2003/03/08 17:25:19 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "language.h"   #include "lex.h"   #include "pike_macros.h"   #include "fsort.h"
pike.git/src/program.c:5730:    */    free_program(c->placeholder->prog);    c->placeholder->prog = NULL;    debug_malloc_touch(c->placeholder);    }    free_object(c->placeholder);    c->placeholder=0;    verify_supporters();   }    + /* NOTE: Must not throw errors! */   static int run_pass1(struct compilation *c)   {    int ret=0;       debug_malloc_touch(c);    run_init(c);      #if 0    CDFPRINTF((stderr, "th(%ld) compile() starting compilation_depth=%d\n",    (long)th_self(),compilation_depth));   #endif    -  if(c->placeholder && c->placeholder->prog != null_program) -  Pike_error("Placeholder object is not a null_program clone!\n"); +  if(c->placeholder && c->placeholder->prog != null_program) { +  yyerror("Placeholder object is not a null_program clone!"); +  return 0; +  }    debug_malloc_touch(c->placeholder);    -  if(c->target && !(c->target->flags & PROGRAM_VIRGIN)) -  Pike_error("Placeholder program is not virgin!\n"); +  if(c->target && !(c->target->flags & PROGRAM_VIRGIN)) { +  yyerror("Placeholder program is not virgin!"); +  return 0; +  }       low_start_new_program(c->target,0,0,0);    c->supporter.prog = Pike_compiler->new_program;       CDFPRINTF((stderr,    "th(%ld) %p run_pass1() start: "    "threads_disabled:%d, compilation_depth:%d\n",    (long)th_self(), Pike_compiler->new_program,    threads_disabled, compilation_depth));   
pike.git/src/program.c:6008:    ONERROR tmp;   #endif    struct compilation *c=ALLOC_STRUCT(compilation);       verify_supporters();       CDFPRINTF((stderr, "th(%ld) %p compile() enter, placeholder=%p\n",    (long) th_self(), atarget, aplaceholder));       debug_malloc_touch(c); +  c->p = NULL;    add_ref(c->prog=aprog);    if((c->handler=ahandler)) add_ref(ahandler);    c->major=amajor;    c->minor=aminor;    if((c->target=atarget)) add_ref(atarget);    if((c->placeholder=aplaceholder)) add_ref(aplaceholder);    c->default_module.type=T_INT;       if (c->handler)    {