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

fcl-passrc: comments

Browse Source 
git-svn-id: trunk@46919 -
(cherry picked from commit 56fbaf23da)
This commit is contained in:
Mattias Gaertner 2020-09-22 21:20:29 +00:00 committed by Florian Klämpfl
parent dd77a5e4a0
commit a7a216494c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/fcl-passrc/src/pasresolver.pp
View File

@ -6719,7 +6719,7 @@ begin
if TPasClassType(LastType).ObjKind<>okInterface then
RaiseCannotBeTogether(20190720211304,LastType.Name,MemberType.Name);
end;
end
end;
else
RaiseXIsNotAValidConstraint(20190720210919,MemberType.Name);
end;
@ -7480,7 +7480,7 @@ begin
if (ClassOrRecScope is TPasClassScope)
and (TPasClassScope(ClassOrRecScope).CanonicalClassOf<>nil) then
begin
// 'Self' in a method is the hidden classtype argument
// 'Self' in a class method is the hidden classtype argument
// Note: this is true in classes, adv records and helpers
SelfArg:=TPasArgument.Create('Self',DeclProc);
ImplProcScope.SelfArg:=SelfArg;