mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 12:50:17 +00:00
40 lines
1.4 KiB
Text
40 lines
1.4 KiB
Text
int16 *_FUNC_FILETOBUF_INTEGER_FILETOBUF=NULL;
|
|
if(_FUNC_FILETOBUF_INTEGER_FILETOBUF==NULL){
|
|
_FUNC_FILETOBUF_INTEGER_FILETOBUF=(int16*)mem_static_malloc(2);
|
|
*_FUNC_FILETOBUF_INTEGER_FILETOBUF=0;
|
|
}
|
|
qbs*oldstr3950=NULL;
|
|
if(_FUNC_FILETOBUF_STRING_FILESPEC->tmp||_FUNC_FILETOBUF_STRING_FILESPEC->fixed||_FUNC_FILETOBUF_STRING_FILESPEC->readonly){
|
|
oldstr3950=_FUNC_FILETOBUF_STRING_FILESPEC;
|
|
if (oldstr3950->cmem_descriptor){
|
|
_FUNC_FILETOBUF_STRING_FILESPEC=qbs_new_cmem(oldstr3950->len,0);
|
|
}else{
|
|
_FUNC_FILETOBUF_STRING_FILESPEC=qbs_new(oldstr3950->len,0);
|
|
}
|
|
memcpy(_FUNC_FILETOBUF_STRING_FILESPEC->chr,oldstr3950->chr,oldstr3950->len);
|
|
}
|
|
int16 *_FUNC_FILETOBUF_INTEGER_HAN=NULL;
|
|
if(_FUNC_FILETOBUF_INTEGER_HAN==NULL){
|
|
_FUNC_FILETOBUF_INTEGER_HAN=(int16*)mem_static_malloc(2);
|
|
*_FUNC_FILETOBUF_INTEGER_HAN=0;
|
|
}
|
|
int32 *_FUNC_FILETOBUF_LONG_BUF=NULL;
|
|
if(_FUNC_FILETOBUF_LONG_BUF==NULL){
|
|
_FUNC_FILETOBUF_LONG_BUF=(int32*)mem_static_malloc(4);
|
|
*_FUNC_FILETOBUF_LONG_BUF=0;
|
|
}
|
|
int16 *_FUNC_FILETOBUF_INTEGER_FF=NULL;
|
|
if(_FUNC_FILETOBUF_INTEGER_FF==NULL){
|
|
_FUNC_FILETOBUF_INTEGER_FF=(int16*)mem_static_malloc(2);
|
|
*_FUNC_FILETOBUF_INTEGER_FF=0;
|
|
}
|
|
int64 *_FUNC_FILETOBUF_INTEGER64_FL=NULL;
|
|
if(_FUNC_FILETOBUF_INTEGER64_FL==NULL){
|
|
_FUNC_FILETOBUF_INTEGER64_FL=(int64*)mem_static_malloc(8);
|
|
*_FUNC_FILETOBUF_INTEGER64_FL=0;
|
|
}
|
|
int32 *_FUNC_FILETOBUF_LONG_EXT=NULL;
|
|
if(_FUNC_FILETOBUF_LONG_EXT==NULL){
|
|
_FUNC_FILETOBUF_LONG_EXT=(int32*)mem_static_malloc(4);
|
|
*_FUNC_FILETOBUF_LONG_EXT=0;
|
|
}
|