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

+ added tai_const.Create_nil_codeptr and .Create_nil_dataptr, which should eventually replace tai_const.Create_sym(nil)

Browse Source 
git-svn-id: trunk@24976 -
This commit is contained in:
nickysn 2013-06-25 20:57:12 +00:00
parent 844806cb19
commit 784333edbb
1 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
compiler/aasmtai.pas
View File

@ -574,6 +574,8 @@ interface
constructor Create_rel_sym(_typ:taiconst_type;_sym,_endsym:tasmsymbol);
constructor Create_rva_sym(_sym:tasmsymbol);
constructor Createname(const name:string;ofs:aint);
constructor Create_nil_codeptr;
constructor Create_nil_dataptr;
constructor ppuload(t:taitype;ppufile:tcompilerppufile);override;
procedure ppuwrite(ppufile:tcompilerppufile);override;
procedure derefimpl;override;
@ -1683,6 +1685,40 @@ implementation
end;
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;
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;
end;
constructor tai_const.ppuload(t:taitype;ppufile:tcompilerppufile);
begin
inherited ppuload(t,ppufile);