mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

Fix scm_to_utf8_stringn once and for all; optimize; add tests

Browse source 
* libguile/strings.c (scm_to_utf8_stringn): Fix another new bug in this
  recent comedy of errors: pass the size of the preallocated buffer to
  u32_to_u8.  Arrange to call 'scm_i_string_wide_chars' and
  'scm_i_string_length' only once each.  Rename local variables for
  improved code clarity.

* test-suite/standalone/test-conversion.c (test_to_utf8_stringn): New
  function to test scm_to_utf8_stringn.
This commit is contained in:
Mark H Weaver 2012-04-04 18:58:44 -04:00
parent 51853eee69
commit bbb9f000ad
2 changed files with 80 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

22
libguile/strings.c
View file

@ -1929,28 +1929,28 @@ scm_to_utf8_stringn (SCM str, size_t *lenp)
NULL, lenp);
else
{
scm_t_uint32 *chars = (scm_t_uint32 *) scm_i_string_wide_chars (str);
scm_t_uint8 *buf, *ret;
size_t predicted_len, actual_len; /* length in bytes */
size_t num_chars = scm_i_string_length (str);
size_t num_bytes_predicted, num_bytes_actual;
predicted_len = u32_u8_length_in_bytes
((scm_t_uint32 *) scm_i_string_wide_chars (str),
scm_i_string_length (str));
num_bytes_predicted = u32_u8_length_in_bytes (chars, num_chars);
if (lenp)
{
*lenp = predicted_len;
buf = scm_malloc (predicted_len);
*lenp = num_bytes_predicted;
buf = scm_malloc (num_bytes_predicted);
}
else
{
buf = scm_malloc (predicted_len + 1);
buf[predicted_len] = 0;
buf = scm_malloc (num_bytes_predicted + 1);
buf[num_bytes_predicted] = 0;
}
ret = u32_to_u8 ((scm_t_uint32 *) scm_i_string_wide_chars (str),
scm_i_string_length (str), buf, &actual_len);
num_bytes_actual = num_bytes_predicted;
ret = u32_to_u8 (chars, num_chars, buf, &num_bytes_actual);
if (SCM_LIKELY (ret == buf && actual_len == predicted_len))
if (SCM_LIKELY (ret == buf && num_bytes_actual == num_bytes_predicted))
return (char *) ret;
/* An error: a bad codepoint. */