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

Add temporary error reporting through the console.

Browse source
This commit is contained in:
FellippeHeitor 2021-09-29 20:11:33 -03:00
parent d525c5b751
commit 17686ee09c
1 changed files with 16 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
source/qb64.bas
View file

@ -13265,6 +13265,22 @@ E = 1
RESUME NEXT
qberror:
'_CONSOLE ON
'_ECHO "A QB error has occurred (and you have compiled in debugging support)."
'_ECHO "Some key information (qb64.bas):"
'_ECHO "Error" + STR$(ERR)
'_ECHO "Description: " + _ERRORMESSAGE$
'_ECHO "Line" + STR$(_ERRORLINE)
'IF _INCLERRORLINE THEN
' _ECHO "Included line" + STR$(_INCLERRORLINE)
' _ECHO "Included file " + _INCLERRORFILE$
'END IF
'_ECHO ""
'_ECHO "Loaded source file details:"
'_ECHO "ideerror =" + STR$(ideerror) + "; qberrorhappened =" + STR$(qberrorhappened) + "; qberrorhappenedvalue =" + STR$(qberrorhappenedvalue) + "; linenumber =" + STR$(linenumber)
'_ECHO "ca$ = {" + ca$ + "}, idecommand$ = {" + idecommand$ + "}"
'_ECHO "linefragment = {" + linefragment+ "}"
IF Debug THEN 'A more in-your-face error handler
IF ConsoleMode THEN
PRINT