From 473d94b405c6a33a2757d99ac138d5f6b6b380ab Mon Sep 17 00:00:00 2001 From: Rob Browning Date: Tue, 25 Mar 2003 23:58:58 +0000 Subject: [PATCH] * ramap.c: replace usage of HAVE_LONG_LONGS with "SCM_SIZEOF_LONG_LONG != 0". --- libguile/ramap.c | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/libguile/ramap.c b/libguile/ramap.c index 46743728d..82604e08d 100644 --- a/libguile/ramap.c +++ b/libguile/ramap.c @@ -207,7 +207,7 @@ scm_ra_matchp (SCM ra0, SCM ras) case scm_tc7_uvect: case scm_tc7_ivect: case scm_tc7_svect: -#ifdef HAVE_LONG_LONGS +#if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: #endif case scm_tc7_fvect: @@ -243,7 +243,7 @@ scm_ra_matchp (SCM ra0, SCM ras) case scm_tc7_uvect: case scm_tc7_ivect: case scm_tc7_svect: -#ifdef HAVE_LONG_LONGS +#if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: #endif case scm_tc7_fvect: @@ -574,7 +574,7 @@ scm_array_fill_int (SCM ra, SCM fill, SCM ignore SCM_UNUSED) ve[i] = f; break; } -#ifdef HAVE_LONG_LONGS +#if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: { /* scope */ long long f = SCM_NUM2LONG_LONG (2, fill); @@ -1719,7 +1719,7 @@ SCM_DEFINE (scm_array_index_map_x, "array-index-map!", 2, 0, 0, case scm_tc7_uvect: case scm_tc7_ivect: case scm_tc7_svect: -#ifdef HAVE_LONG_LONGS +#if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: #endif case scm_tc7_fvect: @@ -1860,7 +1860,7 @@ raeql_1 (SCM ra0, SCM as_equal, SCM ra1) return 0; return 1; } -#ifdef HAVE_LONG_LONGS +#if SCM_SIZEOF_LONG_LONG != 0 case scm_tc7_llvect: { long long *v0 = (long long *) SCM_VELTS (ra0) + i0;