mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Use the new _INCLERRORLINE to give more detailed error messages (IDE).
This commit is contained in:
parent
b8ad8987cc
commit
310eb662d0
|
@ -3,5 +3,5 @@ DIM SHARED BuildNum AS STRING
|
||||||
Version$ = "1.000"
|
Version$ = "1.000"
|
||||||
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
'BuildNum format is YYYYMMDD/id, where id is a ever-increasing
|
||||||
'integer. If you make a change, update the date and increase the id!
|
'integer. If you make a change, update the date and increase the id!
|
||||||
BuildNum$ = "20160323/4"
|
BuildNum$ = "20160323/5"
|
||||||
|
|
||||||
|
|
|
@ -116,11 +116,21 @@ c$ = idecommand$
|
||||||
'report any IDE errors which have occurred
|
'report any IDE errors which have occurred
|
||||||
IF ideerror THEN
|
IF ideerror THEN
|
||||||
mustdisplay = 1
|
mustdisplay = 1
|
||||||
IF ideerror = 1 THEN ideerrormessage "IDE module error"
|
IF ideerror = 1 THEN ideerrormessageTITLE$ = "IDE module error"
|
||||||
IF ideerror = 2 THEN ideerrormessage "File not found"
|
IF ideerror = 2 THEN ideerrormessageTITLE$ = "File not found"
|
||||||
IF ideerror = 3 THEN ideerrormessage "File access error": CLOSE #150
|
IF ideerror = 3 THEN ideerrormessageTITLE$ = "File access error": CLOSE #150
|
||||||
IF ideerror = 4 THEN ideerrormessage "Path not found"
|
IF ideerror = 4 THEN ideerrormessageTITLE$ = "Path not found"
|
||||||
ideerrormessage str$(err) + " on line" + str$(_errorline)
|
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
|
END IF
|
||||||
|
|
||||||
IF (ideerror = 2 or ideerror = 3 or ideerror = 4) AND (AttemptToLoadRecent = -1) THEN
|
IF (ideerror = 2 or ideerror = 3 or ideerror = 4) AND (AttemptToLoadRecent = -1) THEN
|
||||||
|
|
Loading…
Reference in a new issue