From 0ef05fa1e9ab630b377a4a6ab4e529f7d34b461b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= <benoit.minisini@gambas-basic.org>
Date: Tue, 26 Jul 2022 01:55:08 +0200
Subject: [PATCH] Do not display class name '^' prefix in backtraces.

[GB.DEBUG]
* NEW: Do not display class name '^' prefix in backtraces.
---
 main/lib/debug/debug.c | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/main/lib/debug/debug.c b/main/lib/debug/debug.c
index a2ad36579..aa1a562be 100644
--- a/main/lib/debug/debug.c
+++ b/main/lib/debug/debug.c
@@ -1070,6 +1070,10 @@ const char *DEBUG_get_position(CLASS *cp, FUNCTION *fp, PCODE *pc)
 		return "?";
 
 	class_name = cp->name;
+
+	while (*class_name == '^')
+		class_name++;
+
 	if (cp->component)
 		comp_name = cp->component->name;
 	else