suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Added char* casts to symbol -> byte string conversions

Browse Source
This commit is contained in:
Kevin Tew 2011-03-18 14:18:41 -06:00
parent 325516556a
commit b8c779b059
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/racket/src/module.c
View File

@ -2937,7 +2937,7 @@ static Scheme_Object *make_resolved_module_path_obj(Scheme_Object *o)
#if defined(MZ_USE_PLACES) #if defined(MZ_USE_PLACES)
if (SCHEME_SYMBOLP(o)) { if (SCHEME_SYMBOLP(o)) {
newo = scheme_make_sized_offset_byte_string(o, SCHEME_SYMSTR_OFFSET(o), SCHEME_SYM_LEN(o), 1); newo = scheme_make_sized_offset_byte_string((char *)o, SCHEME_SYMSTR_OFFSET(o), SCHEME_SYM_LEN(o), 1);
} }
else { else {
newo = o; newo = o;

2
src/racket/src/places.c
View File

@ -806,7 +806,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab
scheme_log_abort("cannot copy uninterned symbol"); scheme_log_abort("cannot copy uninterned symbol");
abort(); abort();
} else { } else {
new_so = scheme_make_sized_offset_byte_string(so, SCHEME_SYMSTR_OFFSET(so), SCHEME_SYM_LEN(so), 1); new_so = scheme_make_sized_offset_byte_string((char *)so, SCHEME_SYMSTR_OFFSET(so), SCHEME_SYM_LEN(so), 1);
new_so->type = scheme_serialized_symbol_type; new_so->type = scheme_serialized_symbol_type;
} }
break; break;

4
src/racket/src/struct.c
View File

@ -4653,7 +4653,7 @@ static Scheme_Object *make_prefab_key(Scheme_Struct_Type *type)
#if defined(MZ_USE_PLACES) #if defined(MZ_USE_PLACES)
if (SCHEME_SYMBOLP(type->name)) { if (SCHEME_SYMBOLP(type->name)) {
Scheme_Object *newname; Scheme_Object *newname;
newname = scheme_make_sized_offset_byte_string(type->name, SCHEME_SYMSTR_OFFSET(type->name), SCHEME_SYM_LEN(type->name), 1); newname = scheme_make_sized_offset_byte_string((char *)type->name, SCHEME_SYMSTR_OFFSET(type->name), SCHEME_SYM_LEN(type->name), 1);
key = scheme_make_pair(newname, key); key = scheme_make_pair(newname, key);
} }
else { else {
@ -4748,7 +4748,7 @@ Scheme_Struct_Type *scheme_lookup_prefab_type(Scheme_Object *key, int field_coun
#if defined(MZ_USE_PLACES) #if defined(MZ_USE_PLACES)
if (SCHEME_SYMBOLP(key)) { if (SCHEME_SYMBOLP(key)) {
Scheme_Object *newname; Scheme_Object *newname;
newname = scheme_make_sized_offset_byte_string(key, SCHEME_SYMSTR_OFFSET(key), SCHEME_SYM_LEN(key), 1); newname = scheme_make_sized_offset_byte_string((char*)key, SCHEME_SYMSTR_OFFSET(key), SCHEME_SYM_LEN(key), 1);
key = scheme_make_pair(newname, scheme_null); key = scheme_make_pair(newname, scheme_null);
} }
if (SCHEME_BYTE_STRINGP(key)) if (SCHEME_BYTE_STRINGP(key))