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.739 2008/08/13 14:27:36 mast Exp $ + || $Id: program.c,v 1.740 2008/08/13 14:45:08 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);