From 17686ee09c2ded3277114c51b319226a740c3cd5 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Wed, 29 Sep 2021 20:11:33 -0300
Subject: [PATCH] Add temporary error reporting through the console.

---
 source/qb64.bas | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/source/qb64.bas b/source/qb64.bas
index fee30f49c..4f5856595 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -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