Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix for #207 which commented this line with no apparent reason + cleanup.

Browse Source
This commit is contained in:
Martijn Laan 2020-02-20 15:24:37 +01:00
parent 530ca86b69
commit 45b18b0259
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/uPSDebugger.pas
View File

@ -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