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

(uvec_sizes): Add "const".

Browse source
This commit is contained in:
Kevin Ryde 2004-07-04 23:57:10 +00:00
parent ae7ded5671
commit c0967f56b0
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-4.c
View file

@ -1,6 +1,6 @@
/* srfi-4.c --- Homogeneous numeric vector datatypes.
*
* Copyright (C) 2001 Free Software Foundation, Inc.
* Copyright (C) 2001, 2004 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
@ -73,7 +73,7 @@ int scm_tc16_uvec = 0;
/* This array maps type tags to the size of the elements. */
static int uvec_sizes[10] = {1, 1, 2, 2, 4, 4, 8, 8, 4, 8};
static const int uvec_sizes[10] = {1, 1, 2, 2, 4, 4, 8, 8, 4, 8};
#if SCM_HAVE_T_INT64