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

* fixed after implementation of Objective-C "related result type" convention

Browse Source 
git-svn-id: trunk@42817 -
This commit is contained in:
Jonas Maebe 2019-08-25 15:23:56 +00:00
parent 956aab3be0
commit 59b846a2ec
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/test/tobjc34.pp
View File

@ -15,7 +15,7 @@ type
class procedure testClassOverride; override;
end;
tmyoverrideclass = class of NSObject;
tmyoverrideclass = class of MyOverride;
var
selfshouldbe: tmyoverrideclass;

4
tests/test/tobjc36.pp
View File

@ -57,7 +57,7 @@ begin
b:=MyObject.alloc.init;
b.extraproc(2);
b.release;
c:=MyObject.alloc.init;
c.extraproc(2);
c:=MyObject2.alloc.init;
c.extraproc(3);
c.release;
end.

2
tests/test/tobjcl2.pp
View File

@ -43,7 +43,7 @@ function MyDerivedClass.callprotectedfun: byte;
var
a: MyLibObjCClass;
begin
a:=NSObject(MyDerivedClass.alloc).init;
a:=MyDerivedClass.alloc.init;
a.fa:=55;
a.fb:=66;
if a.publicfun<>55 then