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

+ extra test for #10998

Browse Source 
git-svn-id: trunk@10877 -
This commit is contained in:
Jonas Maebe 2008-05-04 12:45:10 +00:00
parent 95c69a64ad
commit 71d268db32
2 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -7757,6 +7757,7 @@ tests/webtbf/tw10457.pp svneol=native#text/plain
tests/webtbf/tw10833a.pp svneol=native#text/plain tests/webtbf/tw10833a.pp svneol=native#text/plain
tests/webtbf/tw10849.pp svneol=native#text/plain tests/webtbf/tw10849.pp svneol=native#text/plain
tests/webtbf/tw10890a.pp svneol=native#text/plain tests/webtbf/tw10890a.pp svneol=native#text/plain
tests/webtbf/tw10998a.pp svneol=native#text/plain
tests/webtbf/tw1157a.pp svneol=native#text/plain tests/webtbf/tw1157a.pp svneol=native#text/plain
tests/webtbf/tw1238.pp svneol=native#text/plain tests/webtbf/tw1238.pp svneol=native#text/plain
tests/webtbf/tw1251a.pp svneol=native#text/plain tests/webtbf/tw1251a.pp svneol=native#text/plain

21
tests/webtbf/tw10998a.pp Normal file
View File

@ -0,0 +1,21 @@
{ %fail }
program statictest;
{$mode delphi}{$STATIC ON}
type
TMyClass = class
public
class procedure StaticCall; static;
end;
class procedure TMyClass.StaticCall;
begin
WriteLn('Static method was called!');
writeln(ptruint(self));
end;
begin
TMyClass.StaticCall;
end.