From 922338afa084a78b715a4e560e0deafc86f6ae51 Mon Sep 17 00:00:00 2001
From: evgeny-k <git@evgenysoft.com>
Date: Thu, 4 Aug 2022 23:15:39 +0300
Subject: [PATCH] 0: issue with compiling in delphi7

---
 Source/uPSDebugger.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Source/uPSDebugger.pas b/Source/uPSDebugger.pas
index 06d1f57..3f9f975 100644
--- a/Source/uPSDebugger.pas
+++ b/Source/uPSDebugger.pas
@@ -532,7 +532,7 @@ function TPSCustomDebugExec.GetCallStack(var Count: Cardinal): tbtString;
         Result:= Result + ParamList.Items[I] + ': ' +
                  PSVariantToString(NewTPSVariantIFC(FStack[Cardinal(Longint(StackBase) - Longint(I) - 1)], False), '') + '; ';
     if Result <> '' then
-      Result := tbtString(String(Result).Remove(Length(Result)-2));
+      SetLength(Result, Length(Result)-2);
   end;
 
 var