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

Merge pull request #407 from SteveMcNeill/main

Browse source 
Update QB64PE for faster file saving
This commit is contained in:
Steve McNeill 2023-11-07 20:52:15 -05:00 committed by GitHub
parent 4660f55628 7f3469fab4
commit 73b23abfb5
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
source/ide/ide_methods.bas
View file

@ -12458,12 +12458,14 @@ 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$ = outfile$ + idegetline(i) + LineEnding$
NEXT
PUT #151, 1, outfile$
CLOSE #151
IdeSaveBookmarks f$
ideunsaved = 0