mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 07:54:46 +00:00
23 lines
1 KiB
Text
23 lines
1 KiB
Text
qbs*oldstr4027=NULL;
|
|
if(_SUB_PARSEEXPRESSION2_STRING_EXP->tmp||_SUB_PARSEEXPRESSION2_STRING_EXP->fixed||_SUB_PARSEEXPRESSION2_STRING_EXP->readonly){
|
|
oldstr4027=_SUB_PARSEEXPRESSION2_STRING_EXP;
|
|
if (oldstr4027->cmem_descriptor){
|
|
_SUB_PARSEEXPRESSION2_STRING_EXP=qbs_new_cmem(oldstr4027->len,0);
|
|
}else{
|
|
_SUB_PARSEEXPRESSION2_STRING_EXP=qbs_new(oldstr4027->len,0);
|
|
}
|
|
memcpy(_SUB_PARSEEXPRESSION2_STRING_EXP->chr,oldstr4027->chr,oldstr4027->len);
|
|
}
|
|
void *_SUB_PARSEEXPRESSION2_UDT_STATE=NULL;
|
|
if(_SUB_PARSEEXPRESSION2_UDT_STATE==NULL){
|
|
_SUB_PARSEEXPRESSION2_UDT_STATE=(void*)mem_static_malloc(84);
|
|
memset(_SUB_PARSEEXPRESSION2_UDT_STATE,0,84);
|
|
*(qbs**)(((char*)_SUB_PARSEEXPRESSION2_UDT_STATE)+ 56) = qbs_new(0,0);
|
|
*(qbs**)(((char*)_SUB_PARSEEXPRESSION2_UDT_STATE)+ 68) = qbs_new(0,0);
|
|
*(qbs**)(((char*)_SUB_PARSEEXPRESSION2_UDT_STATE)+ 76) = qbs_new(0,0);
|
|
}
|
|
int32 *_SUB_PARSEEXPRESSION2_LONG_RES=NULL;
|
|
if(_SUB_PARSEEXPRESSION2_LONG_RES==NULL){
|
|
_SUB_PARSEEXPRESSION2_LONG_RES=(int32*)mem_static_malloc(4);
|
|
*_SUB_PARSEEXPRESSION2_LONG_RES=0;
|
|
}
|