2016-03-01 23:20 GMT+01:00 Michael Van Canneyt <[email protected]>:
>
> Please report this in the bugtracker.
>
Done, patch attached
http://bugs.freepascal.org/view.php?id=29767
--
Best regards,
Maciej Izak
Index: ninl.pas
===================================================================
--- ninl.pas (revision 33114)
+++ ninl.pas (working copy)
@@ -3297,6 +3297,7 @@
hp: tnode;
shiftconst: longint;
objdef: tobjectdef;
+ rt: trttitype;
begin
result:=nil;
@@ -3379,8 +3380,12 @@
in_typeinfo_x:
begin
+ if left.resultdef is trecorddef then
+ rt := initrtti
+ else
+ rt := fullrtti;
result:=caddrnode.create_internal(
- crttinode.create(tstoreddef(left.resultdef),fullrtti,rdt_normal)
+ crttinode.create(tstoreddef(left.resultdef),rt,rdt_normal)
);
end;
_______________________________________________
fpc-devel maillist - [email protected]
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
