mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-24 05:20:30 +02:00
Code Activity

* ramap.c: replace usage of HAVE_LONG_LONGS with

Browse source 
"SCM_SIZEOF_LONG_LONG != 0".
This commit is contained in:
Rob Browning 2003-03-25 23:58:58 +00:00
parent 6c3207370b
commit 473d94b405
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/ramap.c
View file

@ -207,7 +207,7 @@ scm_ra_matchp (SCM ra0, SCM ras)
case scm_tc7_uvect: case scm_tc7_uvect:
case scm_tc7_ivect: case scm_tc7_ivect:
case scm_tc7_svect: case scm_tc7_svect:
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
#endif #endif
case scm_tc7_fvect: case scm_tc7_fvect:
@ -243,7 +243,7 @@ scm_ra_matchp (SCM ra0, SCM ras)
case scm_tc7_uvect: case scm_tc7_uvect:
case scm_tc7_ivect: case scm_tc7_ivect:
case scm_tc7_svect: case scm_tc7_svect:
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
#endif #endif
case scm_tc7_fvect: case scm_tc7_fvect:
@ -574,7 +574,7 @@ scm_array_fill_int (SCM ra, SCM fill, SCM ignore SCM_UNUSED)
ve[i] = f; ve[i] = f;
break; break;
} }
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
{ /* scope */ { /* scope */
long long f = SCM_NUM2LONG_LONG (2, fill); 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_uvect:
case scm_tc7_ivect: case scm_tc7_ivect:
case scm_tc7_svect: case scm_tc7_svect:
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
#endif #endif
case scm_tc7_fvect: case scm_tc7_fvect:
@ -1860,7 +1860,7 @@ raeql_1 (SCM ra0, SCM as_equal, SCM ra1)
return 0; return 0;
return 1; return 1;
} }
#ifdef HAVE_LONG_LONGS #if SCM_SIZEOF_LONG_LONG != 0
case scm_tc7_llvect: case scm_tc7_llvect:
{ {
long long *v0 = (long long *) SCM_VELTS (ra0) + i0; long long *v0 = (long long *) SCM_VELTS (ra0) + i0;