blob: ef32fc40cf7c69910ded1f284b9992dd9490c1b8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ Source provided for Free Pascal Bug Report 2728 }
{ Submitted by "marco (the gory bugs department)" on 2003-10-09 }
{ e-mail: }
{$mode delphi}
type baseclass = class end;
tbaseclass= class of baseclass;
function test (c : tbaseclass):longint;
var o :tobject;
begin
o:=tobject(c); // illegal type conversion here
end;
begin
end.
|
