Branch: Tag:

2001-06-13

2001-06-13 14:22:56 by Henrik Grubbström (Grubba) <grubba@grubba.org>

Fixed compiler bug.

Rev: src/program.c:1.330

5:   \*/   /**/   #include "global.h" - RCSID("$Id: program.c,v 1.329 2001/06/10 16:10:58 grubba Exp $"); + RCSID("$Id: program.c,v 1.330 2001/06/13 14:22:56 grubba Exp $");   #include "program.h"   #include "object.h"   #include "dynamic_buffer.h"
4095: Inside #if defined(PIKE_DEBUG)
   threads_disabled, saved_threads_disabled);    }   #endif /* PIKE_DEBUG */ - /* threads_disabled = saved_threads_disabled + 1; /Hubbe: UGGA! */ +     -  CDFPRINTF((stderr, -  "th(%ld) compile() Leave: threads_disabled:%d, compilation_depth:%d\n", -  (long)th_self(),threads_disabled, compilation_depth)); -  -  exit_threads_disable(NULL); -  +     free_string(lex.current_file);    lex=save_lex;   
4126:   #endif    resolve_cache = resolve_cache_save;    + /* threads_disabled = saved_threads_disabled + 1; /Hubbe: UGGA! */ +  +  CDFPRINTF((stderr, +  "th(%ld) compile() Leave: threads_disabled:%d, compilation_depth:%d\n", +  (long)th_self(),threads_disabled, compilation_depth)); +  +  exit_threads_disable(NULL); +    #ifdef PIKE_DEBUG    UNSET_ONERROR(tmp);   #endif