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

Use the new _INCLERRORLINE to give more detailed error messages (IDE).

Browse source
This commit is contained in:
FellippeHeitor 2016-03-23 11:22:22 -03:00
parent b8ad8987cc
commit 310eb662d0
2 changed files with 16 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/global/version.bas
View file

@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
Version$ = "1.000"
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
'integer. If you make a change, update the date and increase the id!
BuildNum$ = "20160323/4"
BuildNum$ = "20160323/5"

20
source/ide/ide_methods.bas
View file

@ -116,11 +116,21 @@ c$ = idecommand$
'report any IDE errors which have occurred
IF ideerror THEN
mustdisplay = 1
IF ideerror = 1 THEN ideerrormessage "IDE module error"
IF ideerror = 2 THEN ideerrormessage "File not found"
IF ideerror = 3 THEN ideerrormessage "File access error": CLOSE #150
IF ideerror = 4 THEN ideerrormessage "Path not found"
ideerrormessage str$(err) + " on line" + str$(_errorline)
IF ideerror = 1 THEN ideerrormessageTITLE$ = "IDE module error"
IF ideerror = 2 THEN ideerrormessageTITLE$ = "File not found"
IF ideerror = 3 THEN ideerrormessageTITLE$ = "File access error": CLOSE #150
IF ideerror = 4 THEN ideerrormessageTITLE$ = "Path not found"
errorat$ = "On line: " + str2$(_errorline)
inclerrorline = _inclerrorline
if inclerrorline then errorat$ = errorat$ + " (included line: " + str2$(inclerrorline) + ")"
qberrorcode = err
if qberrorcode then
ideerrormessageTITLE$ = "Error " + str2$(qberrorcode) + ": " + ideerrormessageTITLE$
else
ideerrormessageTITLE$ = "Error: " + ideerrormessageTITLE$
endif
PCOPY 3, 0
idemessagebox ideerrormessageTITLE$, errorat$
END IF
IF (ideerror = 2 or ideerror = 3 or ideerror = 4) AND (AttemptToLoadRecent = -1) THEN