blob: 30126a88b74cdffd08fd21dfebc8905d2494edc3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ %fail }
{$mode objfpc}{$H+}
type
PFoo = ^TFoo;
TFoo = array[0..10] of Integer;
TBar = array[0..SizeOf(PFoo(nil)^)] of Integer;
var
Bar: TBar;
begin
if High(Bar) <> SizeOf(TFoo) then
WriteLn('Error: ', High(Bar), ' <> ', SizeOf(TFoo));
end.
|
