/[guile]/guile/guile-core/libguile/threads.c
ViewVC logotype

Diff of /guile/guile-core/libguile/threads.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by mvo, Thu Oct 3 22:48:15 2002 UTC revision 1.25 by mvo, Wed Oct 16 15:57:13 2002 UTC
# Line 133  SCM_REGISTER_PROC(s_signal_condition_var Line 133  SCM_REGISTER_PROC(s_signal_condition_var
133    
134  #ifdef USE_COOP_THREADS  #ifdef USE_COOP_THREADS
135  #include "libguile/coop-threads.c"  #include "libguile/coop-threads.c"
136    #else
137    #include "libguile/null-threads.c"
138  #endif  #endif
139    
140    
# Line 141  void Line 143  void
143  scm_init_threads (SCM_STACKITEM *i)  scm_init_threads (SCM_STACKITEM *i)
144  {  {
145    scm_tc16_thread = scm_make_smob_type ("thread", 0);    scm_tc16_thread = scm_make_smob_type ("thread", 0);
146    scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m));    scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (scm_t_mutex));
147    scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c));    scm_tc16_condvar = scm_make_smob_type ("condition-variable",
148                                             sizeof (scm_t_condvar));
149                                                                                    
150  #include "libguile/threads.x"  #include "libguile/threads.x"
151    /* Initialize implementation specific details of the threads support */    /* Initialize implementation specific details of the threads support */

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26