/[guile]/guile/guile-core/libguile/inline.h
ViewVC logotype

Diff of /guile/guile-core/libguile/inline.h

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

revision 1.11 by mvo, Sun Oct 27 20:13:00 2002 UTC revision 1.12 by mvo, Sun Nov 3 22:05:09 2002 UTC
# Line 136  scm_cell (scm_t_bits car, scm_t_bits cdr Line 136  scm_cell (scm_t_bits car, scm_t_bits cdr
136    SCM_GC_SET_CELL_WORD (z, 1, cdr);    SCM_GC_SET_CELL_WORD (z, 1, cdr);
137    SCM_GC_SET_CELL_WORD (z, 0, car);    SCM_GC_SET_CELL_WORD (z, 0, car);
138    
 #ifdef USE_THREADS  
139  #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS)  #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS)
140    /* When we are using preemtive threads, we might need to make    /* When we are using preemtive threads, we might need to make
141       sure that the initial values for the slots are protected until       sure that the initial values for the slots are protected until
# Line 145  scm_cell (scm_t_bits car, scm_t_bits cdr Line 144  scm_cell (scm_t_bits car, scm_t_bits cdr
144  #error review me  #error review me
145    scm_remember_upto_here_1 (SCM_PACK (cdr));    scm_remember_upto_here_1 (SCM_PACK (cdr));
146  #endif  #endif
 #endif  
147    
148    
149  #if (SCM_DEBUG_CELL_ACCESSES == 1)  #if (SCM_DEBUG_CELL_ACCESSES == 1)
# Line 187  scm_double_cell (scm_t_bits car, scm_t_b Line 185  scm_double_cell (scm_t_bits car, scm_t_b
185    SCM_GC_SET_CELL_WORD (z, 3, cdr);    SCM_GC_SET_CELL_WORD (z, 3, cdr);
186    SCM_GC_SET_CELL_WORD (z, 0, car);    SCM_GC_SET_CELL_WORD (z, 0, car);
187    
 #ifdef USE_THREADS  
188  #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS)  #if !defined(USE_COOP_THREADS) && !defined(USE_NULL_THREADS) && !defined(USE_COPT_THREADS)
189    /* When we are using non-cooperating threads, we might need to make    /* When we are using non-cooperating threads, we might need to make
190       sure that the initial values for the slots are protected until       sure that the initial values for the slots are protected until
# Line 196  scm_double_cell (scm_t_bits car, scm_t_b Line 193  scm_double_cell (scm_t_bits car, scm_t_b
193  #error review me  #error review me
194    scm_remember_upto_here_3 (SCM_PACK (cbr), SCM_PACK (ccr), SCM_PACK (cdr));    scm_remember_upto_here_3 (SCM_PACK (cbr), SCM_PACK (ccr), SCM_PACK (cdr));
195  #endif  #endif
 #endif  
196    
197    
198  #if (SCM_DEBUG_CELL_ACCESSES == 1)  #if (SCM_DEBUG_CELL_ACCESSES == 1)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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