mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(scm_cell, scm_double_cell): Also allow USE_NULL_THREADS to not

Browse source 
protect the slot initializers.
This commit is contained in:
Marius Vollmer 2002-10-16 16:03:44 +00:00
parent f6ecc207bf
commit 389626c5ec
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/inline.h
View file

@ -137,8 +137,8 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
SCM_GC_SET_CELL_WORD (z, 0, car); SCM_GC_SET_CELL_WORD (z, 0, car);
#ifdef USE_THREADS #ifdef USE_THREADS
#ifndef USE_COOP_THREADS #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS)
/* When we are using non-cooperating threads, we might need to make /* When we are using preemtive threads, we might need to make
sure that the initial values for the slots are protected until sure that the initial values for the slots are protected until
the cell is completely initialized. the cell is completely initialized.
*/ */
@ -188,7 +188,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
SCM_GC_SET_CELL_WORD (z, 0, car); SCM_GC_SET_CELL_WORD (z, 0, car);
#ifdef USE_THREADS #ifdef USE_THREADS
#ifndef USE_COOP_THREADS #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS)
/* When we are using non-cooperating threads, we might need to make /* When we are using non-cooperating threads, we might need to make
sure that the initial values for the slots are protected until sure that the initial values for the slots are protected until
the cell is completely initialized. the cell is completely initialized.