sysutils/winscp
1
0
Fork 0
mirror of https://github.com/winscp/winscp.git synced 2026-10-24 02:28:55 +03:00
Code Activity

Removing all debug info sources except for .map file

Browse Source 
Seems to have no significant impact on release build (have some on debug build).
With 64-bit build, no impact at all. With 32-bit, there are some differences, but all seem to be in misidentified frames anyway (which are volatile, so the impact might not be due to change in sources)

Source commit: b8d538dd403c7f78778247278bed6e685a5589fb
This commit is contained in:
Martin Prikryl
2026-09-30 13:27:02 +00:00
parent e13157118a
commit 0707234bbe
1 changed files with 12 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
source/packages/jcl/JclDebug.pas vendored
View File

@@ -4110,23 +4110,25 @@ begin
if not Assigned(InfoSourceClassList) then
begin
InfoSourceClassList := TList.Create;
{$IFNDEF WINSCP}
{$IFNDEF DEBUG_NO_BINARY}
InfoSourceClassList.Add(Pointer(TJclDebugInfoBinary));
{$ENDIF !DEBUG_NO_BINARY}
{$IFNDEF DEBUG_NO_TD32}
{$IFNDEF WINSCP}
InfoSourceClassList.Add(Pointer(TJclDebugInfoTD32));
{$ENDIF ~WINSCP}
{$ENDIF !DEBUG_NO_TD32}
{$ENDIF ~WINSCP}
{$IFNDEF DEBUG_NO_MAP}
InfoSourceClassList.Add(Pointer(TJclDebugInfoMap));
{$ENDIF !DEBUG_NO_MAP}
{$IFNDEF WINSCP}
{$IFNDEF DEBUG_NO_SYMBOLS}
InfoSourceClassList.Add(Pointer(TJclDebugInfoSymbols));
{$ENDIF !DEBUG_NO_SYMBOLS}
{$IFNDEF DEBUG_NO_EXPORTS}
InfoSourceClassList.Add(Pointer(TJclDebugInfoExports));
{$ENDIF !DEBUG_NO_EXPORTS}
{$ENDIF ~WINSCP}
end;
end;
@@ -5103,7 +5105,14 @@ begin
if IncludeVAddress then
ModulePosition := 2 * (ModulePosition - 1) + 1;
if ModulePosition < Length(Result) then
ModuleName := ModuleName + '.';
begin
ModuleName := ModuleName + '.'
end
else
begin
while Length(Result) < ModulePosition - 1 do
Result := Result + ' ';
end;
Insert(ModuleName, Result, ModulePosition);
end;
end;