Remove broken optimization
parent
81098989ec
commit
0311c0a842
11
vm/types.c
11
vm/types.c
|
@ -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) \
|
||||
{ \
|
||||
|
|
Loading…
Reference in New Issue