paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 18:49:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ new test

Browse Source 
git-svn-id: trunk@7138 -
This commit is contained in:
florian 2007-04-19 20:25:02 +00:00
parent 013277dd01
commit 5f18807044
2 changed files with 21 additions and 0 deletions

1
.gitattributes vendored
View File

@ -8150,6 +8150,7 @@ tests/webtbs/tw8371.pp svneol=native#text/plain
tests/webtbs/tw8391.pp svneol=native#text/plain
tests/webtbs/tw8434.pp svneol=native#text/plain
tests/webtbs/tw8462.pp svneol=native#text/plain
tests/webtbs/tw8465.pp svneol=native#text/plain
tests/webtbs/tw8513.pp svneol=native#text/plain
tests/webtbs/tw8525.pp svneol=native#text/plain
tests/webtbs/tw8573.pp svneol=native#text/plain

20
tests/webtbs/tw8465.pp Normal file
View File

@ -0,0 +1,20 @@
program EnumPtrConvTest;
{$APPTYPE CONSOLE}
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
type
TEnum = (a, b);
var
e: TEnum;
p: Pointer;
begin
e := b;
p := Pointer(e);
WriteLn(Integer(p)); // produces "1" in Delphi
end.