1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-08-04 18:50:24 +00:00
QB64-PE/internal/source/data112.txt

16 lines
677 B
Text
Raw Normal View History

2024-01-20 16:04:21 +00:00
int32 *_FUNC_ELEMENTISSTRING_LONG_ELEMENTISSTRING=NULL;
if(_FUNC_ELEMENTISSTRING_LONG_ELEMENTISSTRING==NULL){
_FUNC_ELEMENTISSTRING_LONG_ELEMENTISSTRING=(int32*)mem_static_malloc(4);
*_FUNC_ELEMENTISSTRING_LONG_ELEMENTISSTRING=0;
}
qbs*oldstr3700=NULL;
if(_FUNC_ELEMENTISSTRING_STRING_ELE->tmp||_FUNC_ELEMENTISSTRING_STRING_ELE->fixed||_FUNC_ELEMENTISSTRING_STRING_ELE->readonly){
oldstr3700=_FUNC_ELEMENTISSTRING_STRING_ELE;
if (oldstr3700->cmem_descriptor){
_FUNC_ELEMENTISSTRING_STRING_ELE=qbs_new_cmem(oldstr3700->len,0);
2022-11-22 23:53:31 +00:00
}else{
2024-01-20 16:04:21 +00:00
_FUNC_ELEMENTISSTRING_STRING_ELE=qbs_new(oldstr3700->len,0);
2022-08-26 14:13:09 +00:00
}
2024-01-20 16:04:21 +00:00
memcpy(_FUNC_ELEMENTISSTRING_STRING_ELE->chr,oldstr3700->chr,oldstr3700->len);
2022-11-22 23:53:31 +00:00
}