paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added

Browse Source 
git-svn-id: trunk@928 -
This commit is contained in:
Jonas Maebe 2005-08-23 11:09:40 +00:00
parent 63a7fabebc
commit 8be8b5a6e9
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -5505,6 +5505,7 @@ tests/webtbf/tw4139.pp svneol=native#text/plain
tests/webtbf/tw4144.pp svneol=native#text/plain tests/webtbf/tw4144.pp svneol=native#text/plain
tests/webtbf/tw4153.pp svneol=native#text/plain tests/webtbf/tw4153.pp svneol=native#text/plain
tests/webtbf/tw4227.pp svneol=native#text/plain tests/webtbf/tw4227.pp svneol=native#text/plain
tests/webtbf/tw4244.pp svneol=native#text/plain
tests/webtbf/tw4256.pp svneol=native#text/plain tests/webtbf/tw4256.pp svneol=native#text/plain
tests/webtbf/uw0744.pp svneol=native#text/plain tests/webtbf/uw0744.pp svneol=native#text/plain
tests/webtbf/uw0840a.pp svneol=native#text/plain tests/webtbf/uw0840a.pp svneol=native#text/plain

12
tests/webtbf/tw4244.pp Normal file
View File

@ -0,0 +1,12 @@
{ %fail }
function f: pointer;
begin
f := pointer(1);
end;
var
p : pointer;
begin
p := @longint(f);
end.