paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 06:19:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: remove debugln

Browse Source
This commit is contained in:
Martin 2024-10-04 11:29:02 +02:00
parent c0907fabd1
commit accf0b9280
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpdbgdwarffreepascal.pas
View File

@ -2519,7 +2519,6 @@ begin
// On Windows: If in an SEH finally block, try to get the real procedure // On Windows: If in an SEH finally block, try to get the real procedure
// Look for the line, before the finally statement. // Look for the line, before the finally statement.
// TODO: This needs to move to a win-specific class, and ideally a FPC specific class too. // TODO: This needs to move to a win-specific class, and ideally a FPC specific class too.
debugln(['=========== !!!!!!!! ',Name ]);
if ( ('$fin' = copy(Name,1, 4)) or ('fin$' = copy(Name,1, 4)) ) and if ( ('$fin' = copy(Name,1, 4)) or ('fin$' = copy(Name,1, 4)) ) and
CompilationUnit.GetProcStartEnd(ProcAddress, StartPC, EndPC) and CompilationUnit.GetProcStartEnd(ProcAddress, StartPC, EndPC) and
(StartPC <> 0) (StartPC <> 0)
@ -2529,22 +2528,18 @@ debugln(['=========== !!!!!!!! ',Name ]);
TheStartLine := 0; TheStartLine := 0;
SM1 := AddressInfo^.StateMachine.Clone; SM1 := AddressInfo^.StateMachine.Clone;
ThePrologueLineNum := SM1.Line; ThePrologueLineNum := SM1.Line;
debugln(['=========== !!!!!!!! PL ', ThePrologueLineNum]);
SM1.NextLine; SM1.NextLine;
if not SM1.EndSequence then begin if not SM1.EndSequence then begin
TheStartLine := SM1.Line; TheStartLine := SM1.Line;
debugln(['=========== !!!!!!!! SL ', TheStartLine]);
if (TheStartLine=0) or (TheStartLine=ThePrologueLineNum) then begin if (TheStartLine=0) or (TheStartLine=ThePrologueLineNum) then begin
SM1.NextLine; SM1.NextLine;
if not SM1.EndSequence then if not SM1.EndSequence then
TheStartLine := SM1.Line; TheStartLine := SM1.Line;
debugln(['=========== !!!!!!!! SL ', TheStartLine]);
end; end;
end; end;
if (TheStartLine > ThePrologueLineNum) or (TheStartLine = 0) then if (TheStartLine > ThePrologueLineNum) or (TheStartLine = 0) then
TheStartLine := ThePrologueLineNum; TheStartLine := ThePrologueLineNum;
SM1.Free; SM1.Free;
debugln(['=========== !!!!!!!! SL <<<< ', TheStartLine]);
if EndPC < StartPC then if EndPC < StartPC then
@ -2554,7 +2549,6 @@ debugln(['=========== !!!!!!!! SL <<<< ', TheStartLine]);
if CompilationUnit.Owner.GetLineAddresses(FileName, TheStartLine, AnAddresses, fsBefore, @FndLine) and if CompilationUnit.Owner.GetLineAddresses(FileName, TheStartLine, AnAddresses, fsBefore, @FndLine) and
(Length(AnAddresses) > 1) // may be an internal finally on the begin/end line, sharing a line number (Length(AnAddresses) > 1) // may be an internal finally on the begin/end line, sharing a line number
then begin then begin
debugln(['=========== !!!!!!!! AAAA ', Length(AnAddresses) ]);
for i := 0 to Length(AnAddresses) - 1 do for i := 0 to Length(AnAddresses) - 1 do
if (AnAddresses[i] < StartPC) or (AnAddresses[i] > EndPC) then begin if (AnAddresses[i] < StartPC) or (AnAddresses[i] > EndPC) then begin
TFpSymbol(HelpSymbol2) := DbgInfo.FindProcSymbol(AnAddresses[i]); TFpSymbol(HelpSymbol2) := DbgInfo.FindProcSymbol(AnAddresses[i]);
@ -2574,7 +2568,6 @@ debugln(['=========== !!!!!!!! AAAA ', Length(AnAddresses) ]);
AnAddresses := nil; AnAddresses := nil;
if CompilationUnit.Owner.GetLineAddresses(FileName, TheStartLine-1, AnAddresses, fsBefore) if CompilationUnit.Owner.GetLineAddresses(FileName, TheStartLine-1, AnAddresses, fsBefore)
then begin then begin
debugln(['=========== !!!!!!!! BBB', Length(AnAddresses) ]);
TFpSymbol(HelpSymbol2) := DbgInfo.FindProcSymbol(AnAddresses[0]); TFpSymbol(HelpSymbol2) := DbgInfo.FindProcSymbol(AnAddresses[0]);
if (HelpSymbol2 <> nil) and (HelpSymbol2.CompilationUnit = CompilationUnit) and if (HelpSymbol2 <> nil) and (HelpSymbol2.CompilationUnit = CompilationUnit) and