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

* symbols.c (scm_intern_obarray_soft,

Browse source 
scm_sysintern0_no_module_lookup): Cast `name' to unsigned char ptr
in calls to scm_strhash.
This commit is contained in:
Mikael Djurfeldt 2000-06-12 21:27:19 +00:00
parent a4c7145ba4
commit 4f4d60fddb
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/symbols.c
View file

@ -246,11 +246,11 @@ scm_intern_obarray_soft (const char *name,scm_sizet len,SCM obarray,int softness
if (SCM_FALSEP (obarray))
{
scm_hash = scm_strhash (name, len, 1019);
scm_hash = scm_strhash ((unsigned char *) name, len, 1019);
goto uninterned_symbol;
}
scm_hash = scm_strhash (name, len, SCM_LENGTH (obarray));
scm_hash = scm_strhash ((unsigned char *) name, len, SCM_LENGTH (obarray));
/* softness == -1 used to mean that it was known that the symbol
wasn't already in the obarray. I don't think there are any
@ -363,7 +363,9 @@ scm_sysintern0_no_module_lookup (const char *name)
{
SCM lsym;
scm_sizet len = strlen (name);
scm_sizet scm_hash = scm_strhash (name, len, (unsigned long) scm_symhash_dim);
scm_sizet scm_hash = scm_strhash ((unsigned char *) name,
len,
(unsigned long) scm_symhash_dim);
SCM_NEWCELL (lsym);
SCM_SETLENGTH (lsym, (long) len, scm_tc7_ssymbol);
SCM_SETCHARS (lsym, name);