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

Always cast input to toupper as int

Browse source 
* libguile/read.c (scm_scan_for_encoding): add cast to int
This commit is contained in:
Michael Gran 2009-08-27 07:35:39 -07:00
parent 930ddd34c3
commit 026ed23911
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/read.c
View file

@ -1446,8 +1446,8 @@ scm_scan_for_encoding (SCM port)
encoding = scm_malloc (i+1);
memcpy (encoding, pos, i);
encoding[i] ='\0';
for (i = 0; i < strlen(encoding); i++)
encoding[i] = toupper(encoding[i]);
for (i = 0; i < strlen (encoding); i++)
encoding[i] = toupper ((int) encoding[i]);
/* push backwards to make sure we were in a comment */
in_comment = 0;