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

FpDebug: Use {$PUSH} {$T-} ... {$POP} instead of Pointer() typacasts in some places.

Browse Source
This commit is contained in:
Juha 2023-05-21 15:55:12 +03:00
parent 45d42dfd3d
commit becbb68a0d
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -4062,13 +4062,19 @@ begin
if CIE64^.CIEId = QWord($ffffffffffffffff) then if CIE64^.CIEId = QWord($ffffffffffffffff) then
begin begin
// It is a CIE // It is a CIE
CIE := LoadCiE(CIE64^.Version, @CIE64^.Augmentation[0], Pointer(@CIE64^.CIEId+CIE64^.Length)-Pointer(@CIE64^.Augmentation[0])); {$PUSH} {$T-} // Would require 2 Pointer() typecasts.
CIE := LoadCiE(CIE64^.Version, @CIE64^.Augmentation[0],
@CIE64^.CIEId+CIE64^.Length-@CIE64^.Augmentation[0]);
{$POP}
CFI.AddCIE(p-inf.RawData, CIE); CFI.AddCIE(p-inf.RawData, CIE);
end end
else else
begin begin
// It is a FDE // It is a FDE
FDE := LoadFDE(CFI, FDE64^.CIEPointer, @FDE64^.InitialLocation, Pointer(@FDE64^.CIEPointer+FDE64^.Length)-Pointer(@FDE64^.InitialLocation)); {$PUSH} {$T-}
FDE := LoadFDE(CFI, FDE64^.CIEPointer, @FDE64^.InitialLocation,
@FDE64^.CIEPointer+FDE64^.Length-@FDE64^.InitialLocation);
{$POP}
if Assigned(FDE) then if Assigned(FDE) then
CFI.AddFDE(FDE); CFI.AddFDE(FDE);
end; end;
@ -4081,7 +4087,10 @@ begin
if CIE32^.CIEId = $ffffffff then if CIE32^.CIEId = $ffffffff then
begin begin
// It is a CIE // It is a CIE
CIE := LoadCiE(CIE32^.Version, @CIE32^.Augmentation[0], Pointer(@CIE32^.CIEId+CIE32^.Length)-Pointer(@CIE32^.Augmentation[0])); {$PUSH} {$T-}
CIE := LoadCiE(CIE32^.Version, @CIE32^.Augmentation[0],
@CIE32^.CIEId+CIE32^.Length-@CIE32^.Augmentation[0]);
{$POP}
CFI.AddCIE(p-inf.RawData, CIE); CFI.AddCIE(p-inf.RawData, CIE);
end end
else else
@ -4089,7 +4098,8 @@ begin
// It is a FDE // It is a FDE
if FDE32^.Length > 0 then if FDE32^.Length > 0 then
begin begin
FDE := LoadFDE(CFI, FDE32^.CIEPointer, @FDE32^.InitialLocation, @FDE32^.CIEPointer+FDE32^.Length-@FDE32^.InitialLocation); FDE := LoadFDE(CFI, FDE32^.CIEPointer, @FDE32^.InitialLocation,
@FDE32^.CIEPointer+FDE32^.Length-@FDE32^.InitialLocation);
if Assigned(FDE) then if Assigned(FDE) then
CFI.AddFDE(FDE); CFI.AddFDE(FDE);
end end