diff options
author | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-11 17:32:51 +0000 |
---|---|---|
committer | mattias <mattias@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2020-12-11 17:32:51 +0000 |
commit | dcbbeb2bfe6990599238e5a782df34e79c6c2dc6 (patch) | |
tree | eb7112dc4e28a216e9e165dc810d95555392035f /packages/fcl-passrc/src/pasresolver.pp | |
parent | 4caec783144b9aa1b08aab191c211a30230e76e0 (diff) | |
download | fpc-dcbbeb2bfe6990599238e5a782df34e79c6c2dc6.tar.gz |
fcl-passrc: resolver: fixed unit without implementation
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@47758 3ad0048d-3df7-0310-abae-a5850022a9f2
Diffstat (limited to 'packages/fcl-passrc/src/pasresolver.pp')
-rw-r--r-- | packages/fcl-passrc/src/pasresolver.pp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/packages/fcl-passrc/src/pasresolver.pp b/packages/fcl-passrc/src/pasresolver.pp index edf879dc8b..ff32e48a6d 100644 --- a/packages/fcl-passrc/src/pasresolver.pp +++ b/packages/fcl-passrc/src/pasresolver.pp @@ -5830,7 +5830,8 @@ begin begin // unit FinishSection(CurModule.InterfaceSection); - FinishSection(CurModule.ImplementationSection); + if CurModule.ImplementationSection<>nil then + FinishSection(CurModule.ImplementationSection); if CurModule.FinalizationSection<>nil then // finalization section finished -> resolve ResolveImplBlock(CurModule.FinalizationSection); |