paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 00:30:44 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed rtti info for record

Browse Source
This commit is contained in:
peter 2000-04-01 11:44:56 +00:00
parent b65e936773
commit 7c04f2ff09
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.inc
View File

@ -2266,7 +2266,7 @@
procedure trecorddef.write_init_data;
begin
rttilist^.concat(new(pai_const,init_8bit(14)));
rttilist^.concat(new(pai_const,init_8bit(tkrecord)));
write_rtti_name;
rttilist^.concat(new(pai_const,init_32bit(size)));
count:=0;
@ -3943,7 +3943,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.197 2000-03-01 12:35:45 pierre
Revision 1.198 2000-04-01 11:44:56 peter
* fixed rtti info for record
Revision 1.197 2000/03/01 12:35:45 pierre
* fix for bug 855
Revision 1.196 2000/02/14 20:58:43 marco