mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-10 14:00:21 +02:00
commit
baf90102cf
2 changed files with 3 additions and 9 deletions
|
@ -1,5 +1,5 @@
|
|||
/* Copyright (C) 1995, 1996, 1997, 2000, 2001, 2003, 2004, 2006, 2008,
|
||||
* 2009, 2010, 2011, 2012 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
|
||||
|
@ -126,12 +126,6 @@ wide_string_hash (const scm_t_wchar *str, size_t len)
|
|||
return ret;
|
||||
}
|
||||
|
||||
unsigned long
|
||||
scm_string_hash (const unsigned char *str, size_t len)
|
||||
{
|
||||
return narrow_string_hash (str, len);
|
||||
}
|
||||
|
||||
unsigned long
|
||||
scm_i_string_hash (SCM str)
|
||||
{
|
||||
|
|
|
@ -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,6 @@
|
|||
|
||||
|
||||
|
||||
SCM_API unsigned long scm_string_hash (const unsigned char *str, size_t len);
|
||||
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,
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue