QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-20 04:24:48 +00:00
Code Issues Releases Wiki Activity

Merge pull request #459 from mkilgore/fix-auto-quote-adding

Browse source 
Fix off-by-one error in automatic ending quote addition
This commit is contained in:
Matt Kilgore 2024-02-24 09:58:50 -05:00 committed by GitHub
commit 8a1c3c74d6
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/qb64pe.bas
View file

@ -19885,7 +19885,7 @@ FUNCTION lineformat$ (a$)
'----------------quoted string----------------
IF c = 34 THEN '"
endingquote = INSTR(i + 1, ca$, CHR$(34))
IF endingquote = 0 THEN endingquote = n - 2
IF endingquote = 0 THEN endingquote = n - 1
a2$ = a2$ + sp + createElementString$(MID$(ca$, i + 1, endingquote - 1 - i))
i = endingquote + 1