mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00
Code Activity

* threads.c (scm_init_threads): Pass 0 size to scm_make_smob_type

Browse source 
for scm_tc16_thread.  As the current COOP threads are written, GC
is not supposed to manage storage for threads.
This commit is contained in:
Mikael Djurfeldt 2000-03-29 01:58:17 +00:00
parent ef18914a94
commit 31bc6de36a
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/threads.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995, 1996, 1997, 1998 Free Software Foundation, Inc. /* Copyright (C) 1995, 1996, 1997, 1998, 2000 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -147,7 +147,7 @@ SCM_REGISTER_PROC(s_signal_condition_variable, "signal-condition-variable", 1, 0
void void
scm_init_threads (SCM_STACKITEM *i) scm_init_threads (SCM_STACKITEM *i)
{ {
scm_tc16_thread = scm_make_smob_type ("thread", sizeof (coop_t)); scm_tc16_thread = scm_make_smob_type ("thread", 0);
scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m)); scm_tc16_mutex = scm_make_smob_type ("mutex", sizeof (coop_m));
scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c)); scm_tc16_condvar = scm_make_smob_type ("condition-variable", sizeof (coop_c));