blob: 5fa20c96c9a0b0a165311e7fc8cbed139c6eda78 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
{ Source provided for Free Pascal Bug Report 2830 }
{ Submitted by "marco (the gory bugs department)" on 2003-12-04 }
{ e-mail: }
{$ifdef fpc}{$mode Delphi}{$endif}
Uses SysUtils;
Type
TFloat=double;
TCompiledExpression = function: TFloat of object;
procedure bla;
var
Ce: TCompiledExpression;
begin
if (TMethod(Ce).Code = TMethod(Ce).Code) and
(TMethod(Ce).Data = TMethod(Ce).Data) then
;
end;
begin
bla;
end.
|
