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

uninitialized var in scm_read_character

Browse source 
* libguile/read.c (scm_read_character): Fix error condition where
  charname could be uninitialized.
This commit is contained in:
Andy Wingo 2010-10-18 13:29:58 +02:00
parent ddffdd788d
commit c1a0ba1cef
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/read.c
View file

@ -906,7 +906,7 @@ scm_read_character (scm_t_wchar chr, SCM port)
overflow = read_token (port, buffer, READER_CHAR_NAME_MAX_SIZE, &bytes_read); overflow = read_token (port, buffer, READER_CHAR_NAME_MAX_SIZE, &bytes_read);
if (overflow) if (overflow)
goto char_error; scm_i_input_error (FUNC_NAME, port, "character name too long", SCM_EOL);
if (bytes_read == 0) if (bytes_read == 0)
{ {
@ -992,7 +992,6 @@ scm_read_character (scm_t_wchar chr, SCM port)
return ch; return ch;
} }
char_error:
scm_i_input_error (FUNC_NAME, port, "unknown character name ~a", scm_i_input_error (FUNC_NAME, port, "unknown character name ~a",
scm_list_1 (charname)); scm_list_1 (charname));