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

* don't use normal assingments for inlining of formal consts

Browse Source 
git-svn-id: trunk@393 -
This commit is contained in:
peter 2005-06-13 06:57:54 +00:00
parent 8efe880649
commit 34ed3ae7a5
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ncal.pas
View File

@ -2130,6 +2130,7 @@ type
(vo_is_funcret in tparavarsym(para.parasym).varoptions) or (vo_is_funcret in tparavarsym(para.parasym).varoptions) or
(para.parasym.varspez = vs_value) or (para.parasym.varspez = vs_value) or
((para.parasym.varspez = vs_const) and ((para.parasym.varspez = vs_const) and
(para.parasym.vartype.def.deftype<>formaldef) and
{ the compiler expects that it can take the address of parameters passed by reference in { the compiler expects that it can take the address of parameters passed by reference in
the case of const so we can't replace the node simply by a constant node the case of const so we can't replace the node simply by a constant node
When playing with this code, ensure that When playing with this code, ensure that