paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 20:30:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add checks with InstanceSize called by different methods

Browse Source
This commit is contained in:
pierre 2003-01-20 13:37:17 +00:00
parent 52e083a25d
commit 04ca39e630
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/test/cg/tclasize.pp
View File

@ -95,6 +95,12 @@ begin
Writeln('Sizeof(cb)=',basesize);
if basesize<>expected_size_for_tbaseclass then
Writeln('not the expected size : ',expected_size_for_tbaseclass);
Writeln('cb.InstanceSize=',Cb.InstanceSize);
if cb.InstanceSize<>expected_size_for_tbaseclass then
Writeln('not the expected size : ',expected_size_for_tbaseclass);
Writeln('Tbaseclass.InstanceSize=',Tbaseclass.InstanceSize);
if TBaseClass.InstanceSize<>expected_size_for_tbaseclass then
Writeln('not the expected size : ',expected_size_for_tbaseclass);
derivedsize:=sizeof(cd);
Writeln('Sizeof(ct)=',derivedsize);