QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-07-04 06:00:23 +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);
}
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);
}

3
internal/source/free213.txt
View file

@ -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
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$)
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$