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

* use tai_const.Create_int_code/dataptr(0) in tai_const.Create_nil_code/dataptr

Browse Source 
git-svn-id: trunk@28725 -
This commit is contained in:
nickysn 2014-09-30 01:34:20 +00:00
parent 27a7c0863b
commit 366dc179b6
1 changed files with 2 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/aasmtai.pas
View File

@ -1750,35 +1750,13 @@ implementation
constructor tai_const.Create_nil_codeptr;
begin
inherited Create;
typ:=ait_const;
{$ifdef i8086}
if current_settings.x86memorymodel in x86_far_code_models then
consttype:=aitconst_farptr
else
{$endif i8086}
consttype:=aitconst_ptr;
sym:=nil;
endsym:=nil;
symofs:=0;
value:=0;
self.Create_int_codeptr(0);
end;
constructor tai_const.Create_nil_dataptr;
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;
sym:=nil;
endsym:=nil;
symofs:=0;
value:=0;
self.Create_int_dataptr(0);
end;