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

* added missing parenthesis

Browse Source 
git-svn-id: trunk@26438 -
This commit is contained in:
florian 2014-01-12 20:17:54 +00:00
parent 15df4a4f80
commit 6e63272ab7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/psub.pas
View File

@ -1187,9 +1187,9 @@ implementation
{ add wrapping code if necessary (initialization of typed constants on
some platforms, initing of local variables and out parameters with
trashing values, ... }
trashing values, ...) }
{ init/final code must be wrapped later (after code for main proc body
has been generated }
has been generated) }
if not(current_procinfo.procdef.proctypeoption in [potype_unitinit,potype_unitfinalize]) then
code:=cnodeutils.wrap_proc_body(procdef,code);