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

+ main program never returns

Browse Source 
git-svn-id: trunk@30656 -
This commit is contained in:
florian 2015-04-19 08:10:06 +00:00
parent 6797685c86
commit f972398a8c
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/psub.pas
View File

@ -1297,7 +1297,12 @@ implementation
{ there's always a call to FPC_INITIALIZEUNITS/FPC_DO_EXIT in the main program }
if (procdef.localst.symtablelevel=main_program_level) and
(not current_module.is_unit) then
include(flags,pi_do_call);
begin
include(flags,pi_do_call);
{ the main program never returns due to the do_exit call }
if not(DLLsource) then
include(procdef.procoptions,po_noreturn);
end;
{ set implicit_finally flag when there are locals/paras to be finalized }
procdef.parast.SymList.ForEachCall(@check_finalize_paras,nil);