diff options
| author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-20 10:28:47 +0000 |
|---|---|---|
| committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-11-20 10:28:47 +0000 |
| commit | cf5a26e3a268b004862bbe8d867cc9232d4cbcb6 (patch) | |
| tree | faf9c88ec3a79812063364f2a12387905a17ac70 /packages/fcl-passrc/src/pasresolver.pp | |
| parent | f29c79cb64726a1343d1b5ea6b5b7fc3dc6b86d8 (diff) | |
| download | fpc-cf5a26e3a268b004862bbe8d867cc9232d4cbcb6.tar.gz | |
pastojs: async modifier not needed in impl proc
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47470 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/src/pasresolver.pp')
| -rw-r--r-- | packages/fcl-passrc/src/pasresolver.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index b789d62c9f..b79528c96a 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -9467,7 +9467,7 @@ begin RaiseIncompatibleType(20170216151734,nResultTypeMismatchExpectedButFound, [],DeclResult,ImplResult,ImplProc); - if ImplProc.IsAsync<>DeclProc.IsAsync then + if ImplProc.IsAsync and not DeclProc.IsAsync then RaiseMsg(20200524111856,nXModifierMismatchY,sXModifierMismatchY,['procedure type','async'],ImplProc); end; |