mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-06 21:00:25 +00:00
Merge branch 'QB64-Phoenix-Edition:main' into toolchain-upgrade
This commit is contained in:
commit
e9002f6d0a
|
@ -8,6 +8,8 @@ _SUB_IDESAVE_STRING_F=qbs_new(oldstr5483->len,0);
|
|||
}
|
||||
memcpy(_SUB_IDESAVE_STRING_F->chr,oldstr5483->chr,oldstr5483->len);
|
||||
}
|
||||
qbs *_SUB_IDESAVE_STRING_LINEENDING=NULL;
|
||||
if (!_SUB_IDESAVE_STRING_LINEENDING)_SUB_IDESAVE_STRING_LINEENDING=qbs_new(0,0);
|
||||
int32 *_SUB_IDESAVE_LONG_I=NULL;
|
||||
if(_SUB_IDESAVE_LONG_I==NULL){
|
||||
_SUB_IDESAVE_LONG_I=(int32*)mem_static_malloc(4);
|
||||
|
@ -17,5 +19,9 @@ int64 fornext_value5485;
|
|||
int64 fornext_finalvalue5485;
|
||||
int64 fornext_step5485;
|
||||
uint8 fornext_step_negative5485;
|
||||
qbs *_SUB_IDESAVE_STRING_A=NULL;
|
||||
if (!_SUB_IDESAVE_STRING_A)_SUB_IDESAVE_STRING_A=qbs_new(0,0);
|
||||
qbs *_SUB_IDESAVE_STRING_OUTFILE=NULL;
|
||||
if (!_SUB_IDESAVE_STRING_OUTFILE)_SUB_IDESAVE_STRING_OUTFILE=qbs_new(0,0);
|
||||
byte_element_struct *byte_element_5486=NULL;
|
||||
if (!byte_element_5486){
|
||||
if ((mem_static_pointer+=12)<mem_static_limit) byte_element_5486=(byte_element_struct*)(mem_static_pointer-12); else byte_element_5486=(byte_element_struct*)mem_static_malloc(12);
|
||||
}
|
||||
|
|
|
@ -2,4 +2,5 @@ if(oldstr5483){
|
|||
if(oldstr5483->fixed)qbs_set(oldstr5483,_SUB_IDESAVE_STRING_F);
|
||||
qbs_free(_SUB_IDESAVE_STRING_F);
|
||||
}
|
||||
qbs_free(_SUB_IDESAVE_STRING_A);
|
||||
qbs_free(_SUB_IDESAVE_STRING_LINEENDING);
|
||||
qbs_free(_SUB_IDESAVE_STRING_OUTFILE);
|
||||
|
|
22740
internal/source/main.txt
22740
internal/source/main.txt
File diff suppressed because it is too large
Load diff
|
@ -12458,11 +12458,13 @@ END FUNCTION
|
|||
|
||||
SUB idesave (f$)
|
||||
ideerror = 6
|
||||
OPEN f$ FOR OUTPUT AS #151
|
||||
OPEN f$ FOR OUTPUT AS #151: CLOSE #151
|
||||
OPEN f$ FOR BINARY AS #151
|
||||
ideerror = 1
|
||||
IF INSTR(_OS$, "WIN") THEN LineEnding$ = CHR$(13) + CHR$(10) ELSE LineEnding$ = CHR$(10)
|
||||
FOR i = 1 TO iden
|
||||
a$ = idegetline(i)
|
||||
PRINT #151, a$
|
||||
outfile$ = idegetline(i) + LineEnding$
|
||||
PUT #151, , outfile$
|
||||
NEXT
|
||||
CLOSE #151
|
||||
IdeSaveBookmarks f$
|
||||
|
|
Loading…
Reference in a new issue