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

* Moved inline methods to the beginning in order to allow them to be actually inlined in this unit.

Browse Source 
git-svn-id: trunk@40219 -
This commit is contained in:
yury 2018-11-04 19:50:09 +00:00
parent 7bd590c9a7
commit 0a3c94bc72
1 changed files with 15 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
compiler/ncgrtti.pas
View File

@ -175,6 +175,21 @@ implementation
TRTTIWriter TRTTIWriter
***************************************************************************} ***************************************************************************}
function TRTTIWriter.get_rtti_label(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'');
end;
function TRTTIWriter.get_rtti_label_ord2str(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'_o2s');
end;
function TRTTIWriter.get_rtti_label_str2ord(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'_s2o');
end;
procedure TRTTIWriter.write_methods(tcb:ttai_typedconstbuilder;st:tsymtable;visibilities:tvisibilities); procedure TRTTIWriter.write_methods(tcb:ttai_typedconstbuilder;st:tsymtable;visibilities:tvisibilities);
var var
rtticount, rtticount,
@ -2047,21 +2062,5 @@ implementation
end; end;
end; end;
function TRTTIWriter.get_rtti_label(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'');
end;
function TRTTIWriter.get_rtti_label_ord2str(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'_o2s');
end;
function TRTTIWriter.get_rtti_label_str2ord(def:tdef;rt:trttitype;indirect:boolean):tasmsymbol;
begin
result:=ref_rtti(def,rt,indirect,'_s2o');
end;
end. end.