paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-28 15:50:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-passrc: resolver: fixed unit without implementation

Browse Source
This commit is contained in:
mattias 2020-12-11 17:33:13 +00:00
parent be81221a1d
commit 648a86be7e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/packages/fcl-passrc/src/pasresolver.pp
View File

@ -5830,7 +5830,8 @@ begin
begin begin
// unit // unit
FinishSection(CurModule.InterfaceSection); FinishSection(CurModule.InterfaceSection);
FinishSection(CurModule.ImplementationSection); if CurModule.ImplementationSection<>nil then
FinishSection(CurModule.ImplementationSection);
if CurModule.FinalizationSection<>nil then if CurModule.FinalizationSection<>nil then
// finalization section finished -> resolve // finalization section finished -> resolve
ResolveImplBlock(CurModule.FinalizationSection); ResolveImplBlock(CurModule.FinalizationSection);

1
compiler/packages/fcl-passrc/src/pasuseanalyzer.pas
View File

@ -2680,6 +2680,7 @@ begin
{$IFDEF VerbosePasAnalyzer} {$IFDEF VerbosePasAnalyzer}
writeln('TPasAnalyzer.EmitSectionHints ',GetElModName(Section)); writeln('TPasAnalyzer.EmitSectionHints ',GetElModName(Section));
{$ENDIF} {$ENDIF}
if Section=nil then exit;
// initialization, program or library sections // initialization, program or library sections
aModule:=Section.GetModule; aModule:=Section.GetModule;
UsesClause:=Section.UsesClause; UsesClause:=Section.UsesClause;