1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-08-03 14:50:25 +00:00
QB64-PE/internal/source/data31.txt

26 lines
1.1 KiB
Text
Raw Normal View History

2024-01-20 16:04:21 +00:00
int32 *_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=NULL;
if(_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE==NULL){
_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=(int32*)mem_static_malloc(4);
*_FUNC_OPERATORUSAGE_LONG_OPERATORUSAGE=0;
}
2024-01-30 21:55:38 +00:00
qbs*oldstr3050=NULL;
2024-01-20 16:04:21 +00:00
if(_FUNC_OPERATORUSAGE_STRING_OPERATOR->tmp||_FUNC_OPERATORUSAGE_STRING_OPERATOR->fixed||_FUNC_OPERATORUSAGE_STRING_OPERATOR->readonly){
2024-01-30 21:55:38 +00:00
oldstr3050=_FUNC_OPERATORUSAGE_STRING_OPERATOR;
if (oldstr3050->cmem_descriptor){
_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new_cmem(oldstr3050->len,0);
2024-01-20 16:04:21 +00:00
}else{
2024-01-30 21:55:38 +00:00
_FUNC_OPERATORUSAGE_STRING_OPERATOR=qbs_new(oldstr3050->len,0);
2024-01-20 16:04:21 +00:00
}
2024-01-30 21:55:38 +00:00
memcpy(_FUNC_OPERATORUSAGE_STRING_OPERATOR->chr,oldstr3050->chr,oldstr3050->len);
2024-01-20 16:04:21 +00:00
}
2024-01-30 21:55:38 +00:00
qbs*oldstr3051=NULL;
2024-01-20 16:04:21 +00:00
if(_FUNC_OPERATORUSAGE_STRING_INFO->tmp||_FUNC_OPERATORUSAGE_STRING_INFO->fixed||_FUNC_OPERATORUSAGE_STRING_INFO->readonly){
2024-01-30 21:55:38 +00:00
oldstr3051=_FUNC_OPERATORUSAGE_STRING_INFO;
if (oldstr3051->cmem_descriptor){
_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new_cmem(oldstr3051->len,0);
2022-08-26 14:13:09 +00:00
}else{
2024-01-30 21:55:38 +00:00
_FUNC_OPERATORUSAGE_STRING_INFO=qbs_new(oldstr3051->len,0);
2022-08-26 14:13:09 +00:00
}
2024-01-30 21:55:38 +00:00
memcpy(_FUNC_OPERATORUSAGE_STRING_INFO->chr,oldstr3051->chr,oldstr3051->len);
2022-08-26 14:13:09 +00:00
}