19 lines
388 B
ObjectPascal
19 lines
388 B
ObjectPascal
type TRec = record
|
|
a: integer;
|
|
b: real;
|
|
c: char;
|
|
end;
|
|
|
|
type
|
|
t1 = class
|
|
o: t1;
|
|
end;
|
|
|
|
begin
|
|
assert(sizeof(integer)=4);
|
|
assert(sizeof(real)=8);
|
|
assert(sizeof(char)=2);
|
|
assert(sizeof(pointer)=System.Runtime.InteropServices.Marshal.SizeOf(typeof(pointer)));
|
|
assert(sizeof(TRec)=System.Runtime.InteropServices.Marshal.SizeOf(typeof(TRec)));
|
|
assert(sizeof(t1) > 0);
|
|
end. |