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"
|
||||
'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"
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue