The FSF has a new address.

[bpt/guile.git] / libguile / inline.h

diff --git a/libguile/inline.h b/libguile/inline.h
index 49f99a1..0a3ede2 100644 (file)
--- a/libguile/inline.h
+++ b/libguile/inline.h
@@ -17,7 +17,7 @@
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
- * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 /* This file is for inline functions.  On platforms that don't support
@@ -69,11 +69,6 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
   SCM z;
   SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist);
 
-  if (scm_gc_running_p)
-    {
-      abort();
-    }
-  
   if (scm_is_null (*freelist))
     z = scm_gc_for_newcell (&scm_i_master_freelist, freelist);
   else
@@ -121,24 +116,12 @@ scm_cell (scm_t_bits car, scm_t_bits cdr)
   
   /* Initialize the type slot last so that the cell is ignored by the
      GC until it is completely initialized.  This is only relevant
-     when the GC can actually run during this code, which it can't for
-     cooperating threads, but it might be important when we get true
-     preemptive threads.
+     when the GC can actually run during this code, which it can't
+     since the GC only runs when all other threads are stopped.
   */
   SCM_GC_SET_CELL_WORD (z, 1, cdr);
   SCM_GC_SET_CELL_WORD (z, 0, car);
 
-#if 0 /*fixme* Hmm... let's consider this later. */
-#if !defined(SCM_USE_COOP_THREADS) && !defined(SCM_USE_NULL_THREADS) && !defined(SCM_USE_COPT_THREADS)
-  /* When we are using preemtive threads, we might need to make
-     sure that the initial values for the slots are protected until
-     the cell is completely initialized.
-  */
-#error review me
-  scm_remember_upto_here_1 (SCM_PACK (cdr));
-#endif
-#endif
-
 #if (SCM_DEBUG_CELL_ACCESSES == 1)
   if (scm_expensive_debug_cell_accesses_p )
     scm_i_expensive_validation_check (z);
@@ -163,11 +146,6 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
   SCM z;
   SCM *freelist = SCM_FREELIST_LOC (scm_i_freelist2);
 
-  if (scm_gc_running_p)
-    {
-      abort();
-    }
-
   if (scm_is_null (*freelist))
     z = scm_gc_for_newcell (&scm_i_master_freelist2, freelist);
   else
@@ -180,27 +158,14 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
 
   /* Initialize the type slot last so that the cell is ignored by the
      GC until it is completely initialized.  This is only relevant
-     when the GC can actually run during this code, which it can't for
-     cooperating threads, but it might be important when we get true
-     preemptive threads.
+     when the GC can actually run during this code, which it can't
+     since the GC only runs when all other threads are stopped.
   */
   SCM_GC_SET_CELL_WORD (z, 1, cbr);
   SCM_GC_SET_CELL_WORD (z, 2, ccr);
   SCM_GC_SET_CELL_WORD (z, 3, cdr);
   SCM_GC_SET_CELL_WORD (z, 0, car);
 
-#if 0 /*fixme* Hmm... let's consider this later. */
-#if !defined(SCM_USE_COOP_THREADS) && !defined(SCM_USE_NULL_THREADS) && !defined(SCM_USE_COPT_THREADS)
-  /* When we are using non-cooperating threads, we might need to make
-     sure that the initial values for the slots are protected until
-     the cell is completely initialized.
-  */
-#error review me
-  scm_remember_upto_here_3 (SCM_PACK (cbr), SCM_PACK (ccr), SCM_PACK (cdr));
-#endif
-#endif
-
-
 #if (SCM_DEBUG_CELL_ACCESSES == 1)
   if (scm_debug_cell_accesses_p)
     {
@@ -230,7 +195,7 @@ scm_double_cell (scm_t_bits car, scm_t_bits cbr,
      reordering.
    */
 #ifdef __GNUC__
-  asm volatile ("" : : : "memory");
+  __asm__ volatile ("" : : : "memory");
 #else
   /* portable version, just in case any other compiler does the same
      thing.  */