|
@@ -175,6 +175,21 @@ implementation
|
|
|
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);
|
|
|
var
|
|
|
rtticount,
|
|
@@ -2047,21 +2062,5 @@ implementation
|
|
|
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.
|
|
|
|