1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 06:00:23 +00:00
QB64-PE/internal/source/data151.txt
2024-01-30 21:55:38 +00:00

23 lines
952 B
Plaintext

qbs*oldstr3870=NULL;
if(_SUB_FINDINNERPARENS_STRING_EXP->tmp||_SUB_FINDINNERPARENS_STRING_EXP->fixed||_SUB_FINDINNERPARENS_STRING_EXP->readonly){
oldstr3870=_SUB_FINDINNERPARENS_STRING_EXP;
if (oldstr3870->cmem_descriptor){
_SUB_FINDINNERPARENS_STRING_EXP=qbs_new_cmem(oldstr3870->len,0);
}else{
_SUB_FINDINNERPARENS_STRING_EXP=qbs_new(oldstr3870->len,0);
}
memcpy(_SUB_FINDINNERPARENS_STRING_EXP->chr,oldstr3870->chr,oldstr3870->len);
}
int32 *_SUB_FINDINNERPARENS_LONG_STRINDEX=NULL;
if(_SUB_FINDINNERPARENS_LONG_STRINDEX==NULL){
_SUB_FINDINNERPARENS_LONG_STRINDEX=(int32*)mem_static_malloc(4);
*_SUB_FINDINNERPARENS_LONG_STRINDEX=0;
}
int32 *_SUB_FINDINNERPARENS_LONG_PAREN=NULL;
if(_SUB_FINDINNERPARENS_LONG_PAREN==NULL){
_SUB_FINDINNERPARENS_LONG_PAREN=(int32*)mem_static_malloc(4);
*_SUB_FINDINNERPARENS_LONG_PAREN=0;
}
qbs *_SUB_FINDINNERPARENS_STRING_ELE=NULL;
if (!_SUB_FINDINNERPARENS_STRING_ELE)_SUB_FINDINNERPARENS_STRING_ELE=qbs_new(0,0);