QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-12 23:55:13 +00:00
Code Issues Releases Wiki Activity

Merge branch 'QB64-Phoenix-Edition:main' into toolchain-upgrade

Browse source
This commit is contained in:
Samuel Gomes 2023-12-02 16:34:25 +05:30 committed by GitHub
parent d2287b72b8 2e5b2cd43a
commit e9002f6d0a
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
4 changed files with 11392 additions and 11369 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
internal/source/data213.txt
View file

@ -8,6 +8,8 @@ _SUB_IDESAVE_STRING_F=qbs_new(oldstr5483->len,0);
} }
memcpy(_SUB_IDESAVE_STRING_F->chr,oldstr5483->chr,oldstr5483->len); 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; int32 *_SUB_IDESAVE_LONG_I=NULL;
if(_SUB_IDESAVE_LONG_I==NULL){ if(_SUB_IDESAVE_LONG_I==NULL){
_SUB_IDESAVE_LONG_I=(int32*)mem_static_malloc(4); _SUB_IDESAVE_LONG_I=(int32*)mem_static_malloc(4);
@ -17,5 +19,9 @@ int64 fornext_value5485;
int64 fornext_finalvalue5485; int64 fornext_finalvalue5485;
int64 fornext_step5485; int64 fornext_step5485;
uint8 fornext_step_negative5485; uint8 fornext_step_negative5485;
qbs *_SUB_IDESAVE_STRING_A=NULL; qbs *_SUB_IDESAVE_STRING_OUTFILE=NULL;
if (!_SUB_IDESAVE_STRING_A)_SUB_IDESAVE_STRING_A=qbs_new(0,0); 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);
}

3
internal/source/free213.txt
View file

@ -2,4 +2,5 @@ if(oldstr5483){
if(oldstr5483->fixed)qbs_set(oldstr5483,_SUB_IDESAVE_STRING_F); if(oldstr5483->fixed)qbs_set(oldstr5483,_SUB_IDESAVE_STRING_F);
qbs_free(_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
View file

File diff suppressed because it is too large Load diff

8
source/ide/ide_methods.bas
View file

@ -12458,11 +12458,13 @@ END FUNCTION
SUB idesave (f$) SUB idesave (f$)
ideerror = 6 ideerror = 6
OPEN f$ FOR OUTPUT AS #151 OPEN f$ FOR OUTPUT AS #151: CLOSE #151
OPEN f$ FOR BINARY AS #151
ideerror = 1 ideerror = 1
IF INSTR(_OS$, "WIN") THEN LineEnding$ = CHR$(13) + CHR$(10) ELSE LineEnding$ = CHR$(10)
FOR i = 1 TO iden FOR i = 1 TO iden
a$ = idegetline(i) outfile$ = idegetline(i) + LineEnding$
PRINT #151, a$ PUT #151, , outfile$
NEXT NEXT
CLOSE #151 CLOSE #151
IdeSaveBookmarks f$ IdeSaveBookmarks f$