mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 22:32:05 -08:00
Code Issues Projects Releases Packages Wiki Activity

Replace two uses of (char *) with (ecl_base_char *) in src/c/character.d

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-20 00:25:55 +01:00
parent eb884293c7
commit 950704f7d1
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/character.d
View file

@ -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;