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

* fixed sizeof() results

Browse Source
This commit is contained in:
peter 2003-03-30 19:22:44 +00:00
parent f3caa701d3
commit aac2357acf
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,6 +1,4 @@
{$mode objfpc}
{$ifdef fpc}{$mode objfpc}{$else}{$J+}{$endif}
type
tbaseclass = class
@ -27,7 +25,7 @@ var
basesize : longint;
derivedsize : longint;
procedure tbaseclass.virtual_class_method;
class procedure tbaseclass.virtual_class_method;
begin
Writeln('Calling tbase class class method');
@ -39,7 +37,7 @@ begin
end;
end;
function tbaseclass.getsize : longint;
class function tbaseclass.getsize : longint;
begin
getsize:=sizeof(self);
end;
@ -63,7 +61,7 @@ begin
end;
end;
procedure tderivedclass.virtual_class_method;
class procedure tderivedclass.virtual_class_method;
begin
Writeln('Calling tderived class class method');
@ -81,10 +79,13 @@ begin
tderivedcalled:=false;
end;
type
tcl = class of tbaseclass;
var
c1,cb : tbaseclass;
cd : tderivedclass;
cc : class of tbaseclass;
cc : tcl;
begin
cb:=tbaseclass.create;
@ -93,8 +94,8 @@ begin
basesize:=sizeof(cb);
Writeln('Sizeof(cb)=',basesize);
if basesize<>expected_size_for_tbaseclass then
Writeln('not the expected size : ',expected_size_for_tbaseclass);
if basesize<>sizeof(pointer) then
Writeln('not the expected size : ',sizeof(pointer));
Writeln('cb.InstanceSize=',Cb.InstanceSize);
if cb.InstanceSize<>expected_size_for_tbaseclass then
Writeln('not the expected size : ',expected_size_for_tbaseclass);
@ -104,8 +105,8 @@ begin
derivedsize:=sizeof(cd);
Writeln('Sizeof(ct)=',derivedsize);
if derivedsize<>expected_size_for_tderivedclass then
Writeln('not the expected size : ',expected_size_for_tderivedclass);
if derivedsize<>sizeof(pointer) then
Writeln('not the expected size : ',sizeof(pointer));
cb.check_size;
cd.check_size;
@ -180,7 +181,7 @@ begin
has_error:=true;
reset_booleans;
Writeln('Szeof(cc)=',sizeof(cc));
Writeln('Sizeof(cc)=',sizeof(cc));
if has_error then
begin