steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
vm/types.c
View File

@ -471,8 +471,6 @@ F_STRING* allot_string_internal(CELL capacity)
string->hashcode = F; string->hashcode = F;
string->aux = F; string->aux = F;
set_string_nth(string,capacity,0);
return string; return string;
} }
@ -645,13 +643,6 @@ F_BYTE_ARRAY *allot_c_string(CELL capacity, CELL size)
} \ } \
type *to_##type##_string(F_STRING *s, bool check) \ 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) \ type *unbox_##type##_string(void) \