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

+ allow symbols with defined size

Browse Source 
git-svn-id: trunk@2573 -
This commit is contained in:
florian 2006-02-14 18:32:31 +00:00
parent a475701240
commit e363da694b
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/aasmtai.pas
View File

@ -382,6 +382,7 @@ interface
constructor Create_uleb128bit(_value : qword); constructor Create_uleb128bit(_value : qword);
constructor Create_aint(_value : aint); constructor Create_aint(_value : aint);
constructor Create_sym(_sym:tasmsymbol); constructor Create_sym(_sym:tasmsymbol);
constructor Create_type_sym(_typ:taiconst_type;_sym:tasmsymbol);
constructor Create_sym_offset(_sym:tasmsymbol;ofs:aint); constructor Create_sym_offset(_sym:tasmsymbol;ofs:aint);
constructor Create_rel_sym(_typ:taiconst_type;_sym,_endsym:tasmsymbol); constructor Create_rel_sym(_typ:taiconst_type;_sym,_endsym:tasmsymbol);
constructor Create_rva_sym(_sym:tasmsymbol); constructor Create_rva_sym(_sym:tasmsymbol);
@ -1219,6 +1220,20 @@ implementation
end; end;
constructor tai_const.Create_type_sym(_typ:taiconst_type;_sym:tasmsymbol);
begin
inherited Create;
typ:=ait_const;
consttype:=_typ;
sym:=_sym;
endsym:=nil;
value:=0;
{ update sym info }
if assigned(sym) then
sym.increfs;
end;
constructor tai_const.Create_sym(_sym:tasmsymbol); constructor tai_const.Create_sym(_sym:tasmsymbol);
begin begin
inherited Create; inherited Create;