QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-01 10:20:42 +00:00
Code Releases Wiki Activity

Merge pull request #102 from QB64Team/errormessage

Browse source 
Displays linefragment, when available, to help users with debugging.
This commit is contained in:
Fellippe Heitor 2021-01-12 15:28:52 -03:00 committed by GitHub
parent 5a300c7c7a ae065d79dc
commit 26f84248c8
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 22 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
source/ide/ide_methods.bas
View file

@ -963,6 +963,28 @@ FUNCTION ide2 (ignore)
NEXT
statusarealink = 2
END IF
IF y < idewy - 1 AND linefragment <> "[INFORMATION UNAVAILABLE]" THEN
temp$ = linefragment
FOR i = 1 TO LEN(temp$)
IF MID$(temp$, i, 1) = sp$ THEN MID$(temp$, i, 1) = " "
NEXT
temp$ = _TRIM$(temp$)
IF LEN(temp$) THEN
y = y + 1: x = 1
temp$ = "Caused by (or after): " + CHR$(1) + temp$
COLOR 7, 1
FOR i = 1 TO LEN(temp$)
x = x + 1: IF x = idewx THEN x = 2: y = y + 1
IF y > idewy - 1 THEN EXIT FOR
IF ASC(temp$, i) = 1 THEN i = i + 1: COLOR 11, 1
LOCATE y, x
PRINT CHR$(ASC(temp$, i));
NEXT
END IF
END IF
END IF
END IF
END IF