1
{ Source provided for Free Pascal Bug Report 2830 }
2
{ Submitted by "marco (the gory bugs department)" on 2003-12-04 }
4
{$ifdef fpc}{$mode Delphi}{$endif}
10
TCompiledExpression = function: TFloat of object;
14
Ce: TCompiledExpression;
16
if (TMethod(Ce).Code = TMethod(Ce).Code) and
17
(TMethod(Ce).Data = TMethod(Ce).Data) then