blob: 1f87a43756e7a5cee66ad81f176fd8d503eb2b1e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Old file: tbs0068.pp }
{ Shows incorrect type of ofs() OK 0.99.1 (PFV and FK) }
{ As l is only a smallint, this
test will almost always
trigger a range check error,
disable range check explicitly }
{$R-}
var
p : pointer;
l : smallint;
begin
l:=Ofs(p); { Ofs returns a pointer type !? }
end.
|
