mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 09:40:25 +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

2
libguile/read.c
View file

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