mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:33:13 +02:00
5b08047d1c
mode (mantis #11859) * cleaned up some superfluous "eq=te_incompatible" checks (probably from copy/pasting conditions from elsewhere) git-svn-id: trunk@13050 -
21 lines
222 B
ObjectPascal
21 lines
222 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
{$z4}
|
|
type
|
|
tenum = (ea,eb,ec);
|
|
|
|
var
|
|
c1, c2: tobject;
|
|
e: tenum;
|
|
begin
|
|
{$r-}
|
|
c1:=tobject(pointer(12345));
|
|
e:=tenum(c1);
|
|
c2:=tobject(e);
|
|
if (c1<>c2) then
|
|
halt(1);
|
|
end.
|
|
|