mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* Use const specifier in function signature of gh_ints2scm.

Browse source
This commit is contained in:
Dirk Herrmann 2001-03-15 00:42:10 +00:00
parent d3dd80ab5b
commit 80dee77b86
4 changed files with 12 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
THANKS
View file

@ -34,6 +34,7 @@ For fixes or providing information which led to a fix:
Bill Schottstaedt Bill Schottstaedt
Miroslav Silovic Miroslav Silovic
Dale P. Smith Dale P. Smith
Jacques A. Vidrine. Jacques A. Vidrine
Brett Viren
William Webber William Webber
Keith Wright Keith Wright

6
libguile/ChangeLog
View file

@ -1,3 +1,9 @@
2001-03-15 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gh.h/gh_data.c (gh_ints2scm): Changed the signature to use a
const int* to reflect that the input array of integers remains
unchanged. Thanks to Brett Viren for the hint.
2001-03-14 Martin Grabmueller <mgrabmue@cs.tu-berlin.de> 2001-03-14 Martin Grabmueller <mgrabmue@cs.tu-berlin.de>
* gh_data.c (gh_scm2chars, gh_scm2shorts, gh_scm2longs), * gh_data.c (gh_scm2chars, gh_scm2shorts, gh_scm2longs),

4
libguile/gh.h
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998, 2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,2000,2001 Free Software Foundation, Inc.
* *
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
@ -104,7 +104,7 @@ SCM gh_str2scm(const char *s, int len);
SCM gh_str02scm(const char *s); SCM gh_str02scm(const char *s);
void gh_set_substr(char *src, SCM dst, int start, int len); void gh_set_substr(char *src, SCM dst, int start, int len);
SCM gh_symbol2scm(const char *symbol_str); SCM gh_symbol2scm(const char *symbol_str);
SCM gh_ints2scm(int *d, int n); SCM gh_ints2scm(const int *d, int n);
#ifdef HAVE_ARRAYS #ifdef HAVE_ARRAYS
SCM gh_chars2byvect(const char *d, int n); SCM gh_chars2byvect(const char *d, int n);

4
libguile/gh_data.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998, 1999, 2000 Free Software Foundation, Inc. /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc.
* This program is free software; you can redistribute it and/or modify * This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by * it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option) * the Free Software Foundation; either version 2, or (at your option)
@ -131,7 +131,7 @@ gh_symbol2scm (const char *symbol_str)
} }
SCM SCM
gh_ints2scm (int *d, int n) gh_ints2scm (const int *d, int n)
{ {
int i; int i;
SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED); SCM v = scm_c_make_vector (n, SCM_UNSPECIFIED);