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

+ added *_unaligned counterparts to taiconst.create_[int|nil]_[code|data]ptr

Browse Source 
git-svn-id: trunk@34836 -
This commit is contained in:
nickysn 2016-11-07 15:28:52 +00:00
parent 88ba9269ca
commit 594290a16e
1 changed files with 54 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
compiler/aasmtai.pas
View File

@ -637,9 +637,13 @@ interface
constructor Create_type_name(_typ:taiconst_type;const name:string;ofs:asizeint);
constructor Create_type_name(_typ:taiconst_type;const name:string;_symtyp:Tasmsymtype;ofs:asizeint);
constructor Create_nil_codeptr;
constructor Create_nil_codeptr_unaligned;
constructor Create_nil_dataptr;
constructor Create_nil_dataptr_unaligned;
constructor Create_int_codeptr(_value: int64);
constructor Create_int_codeptr_unaligned(_value: int64);
constructor Create_int_dataptr(_value: int64);
constructor Create_int_dataptr_unaligned(_value: int64);
{$ifdef i8086}
constructor Create_seg_name(const name:string);
constructor Create_dgroup;
@ -1755,12 +1759,24 @@ implementation
end;
constructor tai_const.Create_nil_codeptr_unaligned;
begin
self.Create_int_codeptr_unaligned(0);
end;
constructor tai_const.Create_nil_dataptr;
begin
self.Create_int_dataptr(0);
end;
constructor tai_const.Create_nil_dataptr_unaligned;
begin
self.Create_int_dataptr_unaligned(0);
end;
constructor tai_const.Create_int_codeptr(_value: int64);
begin
inherited Create;
@ -1782,6 +1798,27 @@ implementation
end;
constructor tai_const.Create_int_codeptr_unaligned(_value: int64);
begin
inherited Create;
typ:=ait_const;
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_code_models then
consttype:=aitconst_farptr
else
{$endif i8086}
{$ifdef avr}
consttype:=aitconst_gs;
{$else avr}
consttype:=aitconst_ptr_unaligned;
{$endif avr}
sym:=nil;
endsym:=nil;
symofs:=0;
value:=_value;
end;
constructor tai_const.Create_int_dataptr(_value: int64);
begin
inherited Create;
@ -1799,6 +1836,23 @@ implementation
end;
constructor tai_const.Create_int_dataptr_unaligned(_value: int64);
begin
inherited Create;
typ:=ait_const;
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_data_models then
consttype:=aitconst_farptr
else
{$endif i8086}
consttype:=aitconst_ptr_unaligned;
sym:=nil;
endsym:=nil;
symofs:=0;
value:=_value;
end;
{$ifdef i8086}
constructor tai_const.Create_seg_name(const name:string);
begin