paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 09:49:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed dup rtti writing for classes

Browse Source
This commit is contained in:
peter 2000-01-30 23:29:06 +00:00
parent 0f11acb568
commit bf32e168f9
1 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/symdef.inc
View File

@ -395,6 +395,8 @@
{ rtti generation } { rtti generation }
procedure tdef.generate_rtti; procedure tdef.generate_rtti;
begin
if not has_rtti then
begin begin
has_rtti:=true; has_rtti:=true;
getdatalabel(rtti_label); getdatalabel(rtti_label);
@ -403,11 +405,11 @@
write_rtti_data; write_rtti_data;
rttilist^.concat(new(pai_symbol_end,init(rtti_label))); rttilist^.concat(new(pai_symbol_end,init(rtti_label)));
end; end;
end;
function tdef.get_rtti_label : string; function tdef.get_rtti_label : string;
begin begin
if not(has_rtti) then
generate_rtti; generate_rtti;
get_rtti_label:=rtti_label^.name; get_rtti_label:=rtti_label^.name;
end; end;
@ -3717,6 +3719,8 @@ Const local_symtable_index : longint = $8001;
procedure tobjectdef.generate_rtti; procedure tobjectdef.generate_rtti;
begin
if not has_rtti then
begin begin
has_rtti:=true; has_rtti:=true;
getdatalabel(rtti_label); getdatalabel(rtti_label);
@ -3726,6 +3730,7 @@ Const local_symtable_index : longint = $8001;
write_rtti_data; write_rtti_data;
rttilist^.concat(new(pai_symbol_end,initname(rtti_name))); rttilist^.concat(new(pai_symbol_end,initname(rtti_name)));
end; end;
end;
function tobjectdef.next_free_name_index : longint; function tobjectdef.next_free_name_index : longint;
@ -3806,11 +3811,11 @@ Const local_symtable_index : longint = $8001;
function tobjectdef.get_rtti_label : string; function tobjectdef.get_rtti_label : string;
begin begin
if not(has_rtti) then
generate_rtti; generate_rtti;
get_rtti_label:=rtti_name; get_rtti_label:=rtti_name;
end; end;
{**************************************************************************** {****************************************************************************
TFORWARDDEF TFORWARDDEF
****************************************************************************} ****************************************************************************}
@ -3863,7 +3868,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $Log$
Revision 1.190 2000-01-28 23:17:53 florian Revision 1.191 2000-01-30 23:29:06 peter
* fixed dup rtti writing for classes
Revision 1.190 2000/01/28 23:17:53 florian
* virtual XXXX; support for objects, only if -dWITHDMT is defined * virtual XXXX; support for objects, only if -dWITHDMT is defined
Revision 1.189 2000/01/26 12:02:29 peter Revision 1.189 2000/01/26 12:02:29 peter