guile/guile-core/libguile coop.c coop-threads.c...

[Marius Vollmer]

CVSROOT:        /cvsroot/guile
Module name:    guile
Changes by:     Marius Vollmer <address@hidden> 02/10/27 15:12:07

Modified files:
        guile-core/libguile: coop.c coop-threads.c coop-defs.h 

Log message:
        * coop-defs.h (coop_m): Added 'level' field.
        (scm_t_mutex, scm_mutex_init, scm_mutex_lock, scm_mutex_trylock,
        scm_mutex_unlock, scm_mutex_destroy, scm_t_cond, scm_cond_init,
        scm_cond_wait, scm_cond_timedwait, scm_cond_signal,
        scm_cond_broadcast, scm_cond_destroy, struct timespec): Do not
        define.
        (coop_condition_variable_broadcast): New.
        
        * coop-threads.c (scm_threads_init): Create smobs here, using the
        appropriate sizes.
        (scm_c_thread_exited_p, scm_try_mutex,
        scm_timed_wait_condition_variable,
        scm_broadcast_condition_variable): New.
        (scm_wait_condition_variable): Removed.
        
        * coop.c (coop_new_mutex_init): Initialize level.
        (coop_mutex_trylock, coop_mutex_lock, coop_mutex_unlock): maintain
        level.
        (coop_condition_variable_signal): Renamed to
        coop_condition_variable_broadcast and reimplemented in terms of
        that.  Thus...
        (coop_condition_variable_broadcast): New.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile/guile-core/libguile/coop.c.diff?tr1=1.31&tr2=1.32&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile/guile-core/libguile/coop-threads.c.diff?tr1=1.37&tr2=1.38&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile/guile-core/libguile/coop-defs.h.diff?tr1=1.26&tr2=1.27&r1=text&r2=text