From 45b18b02595ab595a44555a57c5e53d225f8b8f0 Mon Sep 17 00:00:00 2001 From: Martijn Laan Date: Thu, 20 Feb 2020 15:24:37 +0100 Subject: [PATCH] Fix for #207 which commented this line with no apparent reason + cleanup. --- Source/uPSDebugger.pas | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Source/uPSDebugger.pas b/Source/uPSDebugger.pas index 81fd9f1..06d1f57 100644 --- a/Source/uPSDebugger.pas +++ b/Source/uPSDebugger.pas @@ -531,7 +531,8 @@ function TPSCustomDebugExec.GetCallStack(var Count: Cardinal): tbtString; else Result:= Result + ParamList.Items[I] + ': ' + PSVariantToString(NewTPSVariantIFC(FStack[Cardinal(Longint(StackBase) - Longint(I) - 1)], False), '') + '; '; - // Result := tbtString(String(Result).Remove(Length(Result)-2)); + if Result <> '' then + Result := tbtString(String(Result).Remove(Length(Result)-2)); end; var