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

+ propagate also widechar/pointer constants

Browse Source
This commit is contained in:
florian 2024-04-14 10:34:37 +02:00
parent 0aa851b7f7
commit b3c1f294ba
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/optconstprop.pas
View File

@ -346,6 +346,8 @@ unit optconstprop;
(is_constintnode(a.right) or
is_constboolnode(a.right) or
is_constcharnode(a.right) or
is_constwidecharnode(a.right) or
is_constwidestringnode(a.right) or
is_constenumnode(a.right) or
is_conststringnode(a.right) or
is_constpointernode(a.right)) then