From 41b7b2a0f791df1fa76c36fc03ebb8f3ad45d69c Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <gambas@users.sourceforge.net>
Date: Mon, 7 Feb 2011 01:58:19 +0000
Subject: [PATCH] [GB.DEBUG] * BUG: The debugger now correctly prints
 expression compilation errors.

git-svn-id: svn://localhost/gambas/trunk@3546 867c0c6c-44f3-4631-809d-bfa615b0a4ec
---
 main/lib/debug/debug.c | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/main/lib/debug/debug.c b/main/lib/debug/debug.c
index b9a1e8596..9e829ea84 100644
--- a/main/lib/debug/debug.c
+++ b/main/lib/debug/debug.c
@@ -747,13 +747,13 @@ static void command_eval(const char *cmd)
 	EVAL.New(POINTER(&expr), &cmd[start], len - start);
 
   if (EVAL.Compile(expr, *cmd == '='))
-    goto __ERROR;
+	{
+		if (*cmd != '!')
+			fprintf(_out, "!");
+		fputs(expr->error, out);
+    goto __END;
+	}
 	
-//   DEBUG_info.bp = BP;
-//   DEBUG_info.fp = FP;
-//   DEBUG_info.op = OP;
-//   DEBUG_info.cp = CP;
-
   val = (VALUE *)EVAL.Run(expr, GB_DEBUG.GetValue);
   if (!val)
     goto __ERROR;