diff options
author | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-11-28 17:54:48 +0000 |
---|---|---|
committer | svenbarth <svenbarth@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-11-28 17:54:48 +0000 |
commit | a805741a81d15aab954ca587f33cb3bb7e2d7ca4 (patch) | |
tree | 14a1e46cb2c505193dc4952e224085ae80adbe02 /tests/tbf | |
parent | d2a120800f7c43b3b0652070cbfb139b92ee5ef2 (diff) | |
download | fpc-a805741a81d15aab954ca587f33cb3bb7e2d7ca4.tar.gz |
* leave parse_proc_head() (with some error recovery) if the interface could not be found instead of running straight into an access violation
+ added test
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@35007 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'tests/tbf')
-rw-r--r-- | tests/tbf/tb0253.pp | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/tests/tbf/tb0253.pp b/tests/tbf/tb0253.pp new file mode 100644 index 0000000000..db44bfee00 --- /dev/null +++ b/tests/tbf/tb0253.pp @@ -0,0 +1,14 @@ +{ %FAIL } + +program tb0253; + +{$mode objfpc} + +type + TTest = class(TObject, IInterface) + procedure Blubb.Bar = Foo; + end; + +begin + +end. |