paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 15:31:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2003-12-08 22:36:12 +00:00
parent 1260eed8fd
commit 6e1bc75531
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
tests/webtbs/tw2830.pp Normal file
View File

@ -0,0 +1,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.