From 950704f7d151713feb66e0d5f005ca9311e72a72 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 20 Nov 2011 00:25:55 +0100 Subject: [PATCH] Replace two uses of (char *) with (ecl_base_char *) in src/c/character.d --- src/c/character.d | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/c/character.d b/src/c/character.d index d6a2dd5a8..173aca831 100644 --- a/src/c/character.d +++ b/src/c/character.d @@ -103,7 +103,7 @@ ecl_string_case(cl_object s) { int upcase; cl_index i; - const char *text = (char*)s->base_string.self; + const ecl_base_char *text = (ecl_base_char*)s->base_string.self; for (i = 0, upcase = 0; i <= s->base_string.dim; i++) { if (ecl_upper_case_p(text[i])) { if (upcase < 0) @@ -465,8 +465,8 @@ cl_char_name(cl_object c) ecl_character code = ecl_char_code(c); cl_object output; if (code > 127) { - char name[8]; - char *start; + ecl_base_char name[8]; + ecl_base_char *start; name[7] = 0; name[6] = ecl_digit_char(code & 0xF, 16); code >>= 4; name[5] = ecl_digit_char(code & 0xF, 16); code >>= 4;