paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 11:09:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* pmodules.finish_unit: fix condition that would lead to no implicit initialization code being generated if no explicit one is available, but an implicit one would be required

Browse Source 
git-svn-id: trunk@34581 -
This commit is contained in:
svenbarth 2016-09-30 15:11:16 +00:00
parent 74db27ca15
commit da5bc92ae0
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/pmodules.pas
View File

@ -1145,8 +1145,10 @@ type
is it needed at all? (Sergei) } is it needed at all? (Sergei) }
{ it's needed in case cnodeutils.force_init = true } { it's needed in case cnodeutils.force_init = true }
if (force_init_final or cnodeutils.force_init) and if (force_init_final or cnodeutils.force_init) and
assigned(init_procinfo) and (
has_no_code(init_procinfo.code) then not assigned(init_procinfo) or
has_no_code(init_procinfo.code)
) then
begin begin
{ first release the not used init procinfo } { first release the not used init procinfo }
if assigned(init_procinfo) then if assigned(init_procinfo) then