pike.git / src / threads.c

version» Context lines:

pike.git/src/threads.c:1:   #include "global.h" - RCSID("$Id: threads.c,v 1.65 1998/03/26 14:30:59 grubba Exp $"); + RCSID("$Id: threads.c,v 1.66 1998/04/06 04:12:05 hubbe Exp $");      int num_threads = 1;   int threads_disabled = 0;      #ifdef _REENTRANT   #include "threads.h"   #include "array.h"   #include "object.h"   #include "pike_macros.h"   #include "callback.h"
pike.git/src/threads.c:797:    end_class("condition", 0);       {    struct program *tmp;    start_new_program();    set_init_callback(init_threads_disable);    set_exit_callback(exit_threads_disable);    tmp = end_program();    tmp->flags|=PROGRAM_DESTRUCT_IMMEDIATE;    add_global_program("_disable_threads", tmp); +  free_program(tmp);    }       start_new_program();    add_storage(sizeof(struct thread_state));    thread_id_result_variable=simple_add_variable("result","mixed",0);    add_function("backtrace",f_thread_backtrace,"function(:array)",0);    add_function("wait",f_thread_id_result,"function(:mixed)",0);    add_function("status",f_thread_id_status,"function(:int)",0);   #ifdef DEBUG    set_gc_mark_callback(thread_was_marked);