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.740 2008/08/13 14:45:08 mast Exp $ + || $Id: program.c,v 1.741 2008/08/13 18:02:02 mast Exp $   */      #include "global.h"   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"   #include "pike_types.h"   #include "stralloc.h"   #include "las.h"   #include "lex.h"
pike.git/src/program.c:7963:   {    debug_malloc_touch(c);    debug_malloc_touch(c->placeholder);   #if 0 /* FIXME */    if (threads_disabled != c->saved_threads_disabled) {    Pike_fatal("compile(): threads_disabled:%d saved_threads_disabled:%d\n",    threads_disabled, c->saved_threads_disabled);    }   #endif /* PIKE_DEBUG */    -  /* We can get called several times when a compilation registered as -  * delayed has failed and is cleaned up right away regardless (see -  * the lines with the run_pass1() calls in f_compilation_compile and -  * compile). It's not at all certain that this is the correct way to -  * deal with it, though.. /mast */ -  if (c->flags & COMPILER_CLEANUP) { -  CDFPRINTF((stderr, -  "th(%ld) %p run_cleanup() - already cleaned up.\n", -  (long)th_self(), c->target)); -  return; -  } -  -  c->flags |= COMPILER_CLEANUP; -  +     exit_threads_disable(NULL);       CDFPRINTF((stderr,    "th(%ld) %p run_cleanup(): "    "threads_disabled:%d, compilation_depth:%d\n",    (long)th_self(), c->target,    threads_disabled, c->compilation_depth));    if (!c->p)    {    /* fprintf(stderr, "Destructing placeholder.\n"); */
pike.git/src/program.c:8382:       c->flags |= COMPILER_BUSY;       low_init_threads_disable();    c->saved_threads_disabled = threads_disabled;       init_supporter(& c->supporter,    (supporter_callback *) call_delayed_pass2,    (void *)c);    -  delay=run_pass1(c) && c->p; +  delay=run_pass1(c);    dependants_ok = call_dependants(& c->supporter, !!c->p );   #ifdef PIKE_DEBUG    /* FIXME */    UNSET_ONERROR(tmp);   #endif       if(delay)    {    CDFPRINTF((stderr, "th(%ld) %p f_compilation_compile() finish later, "    "placeholder=%p.\n",
pike.git/src/program.c:9312:    SET_ONERROR(tmp, fatal_on_error,"Compiler exited with longjump!\n");   #endif       low_init_threads_disable();    c->saved_threads_disabled = threads_disabled;       init_supporter(& c->supporter,    (supporter_callback *) call_delayed_pass2,    (void *)c);    -  delay=run_pass1(c) && c->p; +  delay=run_pass1(c);    dependants_ok = call_dependants(& c->supporter, !!c->p );   #ifdef PIKE_DEBUG    /* FIXME */    UNSET_ONERROR(tmp);   #endif       if(delay)    {    CDFPRINTF((stderr, "th(%ld) %p compile() finish later, placeholder=%p.\n",    (long) th_self(), c->target, c->placeholder));