paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-14 00:42:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Specify CIE address size for AVR8 architecture.

Browse Source
This commit is contained in:
ccrause 2022-07-05 18:29:25 +02:00 committed by Martin
parent 5f94809cc6
commit b787b45f59
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -3926,10 +3926,13 @@ var
end
else
begin
case TargetInfo.bitness of
b32: Result.AddressSize := 4;
b64: Result.AddressSize := 8;
end;
if TargetInfo.machineType = mtAVR8 then
Result.AddressSize := 2
else
case TargetInfo.bitness of
b32: Result.AddressSize := 4;
b64: Result.AddressSize := 8;
end;
end;
Result.CodeAlignmentFactor := ULEB128toOrdinal(p);
Result.DataAlignmentFactor := SLEB128toOrdinal(p);