The FSF has a new address.
[bpt/guile.git] / libguile / inline.h
index ce8b99e..0a3ede2 100644 (file)
@@ -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
@@ -151,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
@@ -205,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.  */