From b8c779b059e45d25a58a754b7b5b20e4a4b035ac Mon Sep 17 00:00:00 2001 From: Kevin Tew Date: Fri, 18 Mar 2011 14:18:41 -0600 Subject: [PATCH] Added char* casts to symbol -> byte string conversions --- src/racket/src/module.c | 2 +- src/racket/src/places.c | 2 +- src/racket/src/struct.c | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/racket/src/module.c b/src/racket/src/module.c index a6e7bd915c..18e123c11e 100644 --- a/src/racket/src/module.c +++ b/src/racket/src/module.c @@ -2937,7 +2937,7 @@ static Scheme_Object *make_resolved_module_path_obj(Scheme_Object *o) #if defined(MZ_USE_PLACES) 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 { newo = o; diff --git a/src/racket/src/places.c b/src/racket/src/places.c index 94b505e03e..ff3369d4d0 100644 --- a/src/racket/src/places.c +++ b/src/racket/src/places.c @@ -806,7 +806,7 @@ Scheme_Object *scheme_places_deep_copy_worker(Scheme_Object *so, Scheme_Hash_Tab scheme_log_abort("cannot copy uninterned symbol"); abort(); } 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; } break; diff --git a/src/racket/src/struct.c b/src/racket/src/struct.c index 8ced80b2c8..809fbc92ec 100644 --- a/src/racket/src/struct.c +++ b/src/racket/src/struct.c @@ -4653,7 +4653,7 @@ static Scheme_Object *make_prefab_key(Scheme_Struct_Type *type) #if defined(MZ_USE_PLACES) if (SCHEME_SYMBOLP(type->name)) { 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); } else { @@ -4748,7 +4748,7 @@ Scheme_Struct_Type *scheme_lookup_prefab_type(Scheme_Object *key, int field_coun #if defined(MZ_USE_PLACES) if (SCHEME_SYMBOLP(key)) { 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); } if (SCHEME_BYTE_STRINGP(key))