Remove broken optimization

db4
Slava Pestov 2008-02-04 13:07:34 -06:00
parent 81098989ec
commit 0311c0a842
1 changed files with 1 additions and 10 deletions

View File

@ -471,8 +471,6 @@ F_STRING* allot_string_internal(CELL capacity)
string->hashcode = F;
string->aux = F;
set_string_nth(string,capacity,0);
return string;
}
@ -645,14 +643,7 @@ F_BYTE_ARRAY *allot_c_string(CELL capacity, CELL size)
} \
type *to_##type##_string(F_STRING *s, bool check) \
{ \
if(sizeof(type) == sizeof(char)) \
{ \
if(check && !check_string(s,sizeof(type))) \
general_error(ERROR_C_STRING,tag_object(s),F,NULL); \
return (type*)(s + 1); \
} \
else \
return (type*)(string_to_##type##_alien(s,check) + 1); \
return (type*)(string_to_##type##_alien(s,check) + 1); \
} \
type *unbox_##type##_string(void) \
{ \