paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 14:10:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add unaligned 16,32 and 64 bit tai_const, needed for dwarf

Browse Source 
git-svn-id: trunk@22514 -
This commit is contained in:
pierre 2012-10-02 13:03:54 +00:00
parent 4b7a6ecc14
commit b041b3ad4a
1 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
compiler/aasmtai.pas
View File

@ -129,14 +129,20 @@ interface
aitconst_darwin_dwarf_delta64,
aitconst_darwin_dwarf_delta32,
{ ARM Thumb-2 only }
aitconst_half16bit { used for table jumps. The actual value is the 16bit value shifted left once }
aitconst_half16bit, { used for table jumps. The actual value is the 16bit value shifted left once }
{ for use by dwarf debugger information }
aitconst_16bit_unaligned,
aitconst_32bit_unaligned,
aitconst_64bit_unaligned
);
const
{$ifdef cpu64bitaddr}
aitconst_ptr = aitconst_64bit;
aitconst_ptr_unaligned = aitconst_64bit_unaligned;
{$else cpu64bitaddr}
aitconst_ptr = aitconst_32bit;
aitconst_ptr_unaligned = aitconst_32bit_unaligned;
{$endif cpu64bitaddr}
{$ifdef cpu64bitalu}
@ -520,6 +526,9 @@ interface
constructor Create_64bit(_value : int64);
constructor Create_32bit(_value : longint);
constructor Create_16bit(_value : word);
constructor Create_64bit_unaligned(_value : int64);
constructor Create_32bit_unaligned(_value : longint);
constructor Create_16bit_unaligned(_value : word);
constructor Create_8bit(_value : byte);
constructor Create_char(size: integer; _value: dword);
constructor Create_sleb128bit(_value : int64);
@ -1367,6 +1376,38 @@ implementation
endsym:=nil;
end;
constructor tai_const.Create_64bit_unaligned(_value : int64);
begin
inherited Create;
typ:=ait_const;
consttype:=aitconst_64bit_unaligned;
value:=_value;
sym:=nil;
endsym:=nil;
end;
constructor tai_const.Create_32bit_unaligned(_value : longint);
begin
inherited Create;
typ:=ait_const;
consttype:=aitconst_32bit_unaligned;
value:=_value;
sym:=nil;
endsym:=nil;
end;
constructor tai_const.Create_16bit_unaligned(_value : word);
begin
inherited Create;
typ:=ait_const;
consttype:=aitconst_16bit_unaligned;
value:=_value;
sym:=nil;
endsym:=nil;
end;
constructor tai_const.Create_8bit(_value : byte);
begin