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

Fix off-by-one error with ending quote addition

Browse source 
The math here is wrong, it accounts for the extra quote when doing `-
2`, but obviously that quote is not there in this situation so it should
just be `- 1`. The result of the current logic is that it cuts off the
last character of the string.
This commit is contained in:
Matthew Kilgore 2024-02-19 16:40:53 -05:00
parent 2693733b37
commit ccfd5f53d3
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