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

Deprecate 'scm_string_hash'.

Browse source 
This function has been unused internally for some time and is undocumented.

* libguile/hash.c (scm_string_hash): Wrap if #if SCM_ENABLE_DEPRECATED
  == 1.
* libguile/hash.h (scm_string_hash): Likewise, and replace SCM_API with
  SCM_DEPRECATED.
This commit is contained in:
Ludovic Courtès 2015-01-11 22:11:17 +01:00
parent 5943a62042
commit 894d0b894d
2 changed files with 16 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/hash.c
View file

@ -1,5 +1,5 @@
/* Copyright (C) 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2008,
* 2009, 2010, 2011, 2012, 2014 Free Software Foundation, Inc.
* 2009, 2010, 2011, 2012, 2014, 2015 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 License
@ -47,7 +47,9 @@ extern double floor();
#define SCM_MIN(A, B) ((A) < (B) ? (A) : (B))
unsigned long
#if SCM_ENABLE_DEPRECATED == 1
unsigned long
scm_string_hash (const unsigned char *str, size_t len)
{
/* from suggestion at: */
@ -59,6 +61,8 @@ scm_string_hash (const unsigned char *str, size_t len)
return h;
}
#endif
unsigned long
scm_i_string_hash (SCM str)
{

12
libguile/hash.h
View file

@ -3,7 +3,8 @@
#ifndef SCM_HASH_H
#define SCM_HASH_H
/* Copyright (C) 1995,1996,2000, 2006, 2008, 2011 Free Software Foundation, Inc.
/* Copyright (C) 1995, 1996, 2000, 2006, 2008, 2011,
* 2015 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 License
@ -27,7 +28,14 @@
SCM_API unsigned long scm_string_hash (const unsigned char *str, size_t len);
#if SCM_ENABLE_DEPRECATED == 1
/* Deprecated in 2.0.12. */
SCM_DEPRECATED unsigned long scm_string_hash (const unsigned char *str,
size_t len);
#endif
SCM_INTERNAL unsigned long scm_i_locale_string_hash (const char *str,
size_t len);
SCM_INTERNAL unsigned long scm_i_latin1_string_hash (const char *str,