/[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.2 by mvo, Sun Nov 25 15:02:44 2001 UTC revision 1.3 by dirk, Tue Nov 27 23:18:16 2001 UTC
# Line 84  scm_alloc_cell (scm_t_bits car, scm_t_bi Line 84  scm_alloc_cell (scm_t_bits car, scm_t_bi
84       cooperating threads, but it might be important when we get true       cooperating threads, but it might be important when we get true
85       preemptive threads.       preemptive threads.
86    */    */
87    SCM_SET_CELL_WORD_1 (z, cdr);    SCM_GC_SET_CELL_WORD (z, 1, cdr);
88    SCM_SET_CELL_WORD_0 (z, car);    SCM_GC_SET_CELL_WORD (z, 0, car);
89    
90  #ifdef USE_THREADS  #ifdef USE_THREADS
91  #ifndef USE_COOP_THREADS  #ifndef USE_COOP_THREADS
# Line 132  scm_alloc_double_cell (scm_t_bits car, s Line 132  scm_alloc_double_cell (scm_t_bits car, s
132       cooperating threads, but it might be important when we get true       cooperating threads, but it might be important when we get true
133       preemptive threads.       preemptive threads.
134    */    */
135    SCM_SET_CELL_WORD_1 (z, cbr);    SCM_GC_SET_CELL_WORD (z, 1, cbr);
136    SCM_SET_CELL_WORD_2 (z, ccr);    SCM_GC_SET_CELL_WORD (z, 2, ccr);
137    SCM_SET_CELL_WORD_3 (z, cdr);    SCM_GC_SET_CELL_WORD (z, 3, cdr);
138    SCM_SET_CELL_WORD_0 (z, car);    SCM_GC_SET_CELL_WORD (z, 0, car);
139    
140  #ifdef USE_THREADS  #ifdef USE_THREADS
141  #ifndef USE_COOP_THREADS  #ifndef USE_COOP_THREADS

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

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