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

+ propagate pointer constants

Browse Source
This commit is contained in:
florian 2024-04-12 21:40:04 +02:00
parent 3f8bbd3b00
commit 13fc4075f5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/optconstprop.pas
View File

@ -347,7 +347,8 @@ unit optconstprop;
is_constboolnode(a.right) or is_constboolnode(a.right) or
is_constcharnode(a.right) or is_constcharnode(a.right) or
is_constenumnode(a.right) or is_constenumnode(a.right) or
is_conststringnode(a.right)) then is_conststringnode(a.right) or
is_constpointernode(a.right)) then
begin begin
{$ifdef DEBUG_CONSTPROP} {$ifdef DEBUG_CONSTPROP}
writeln('******************************* propagating ***********************************'); writeln('******************************* propagating ***********************************');