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

+ fold also divisons involving pointer constants (those nodes are internally generated only)

Browse Source
This commit is contained in:
florian 2024-04-15 23:02:28 +02:00
parent 2e9556f2eb
commit 48eeaf00a4
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/nmat.pas
View File

@ -215,10 +215,30 @@ implementation
exit;
end;
if is_constintnode(left) then
{ pointer subtractions generate nodes dividing pointer (constants) }
if is_constintnode(left) or is_constpointernode(left) then
begin
rv:=tordconstnode(right).value;
lv:=tordconstnode(left).value;
{ load values }
case left.nodetype of
ordconstn:
lv:=tordconstnode(left).value;
pointerconstn:
lv:=tpointerconstnode(left).value;
niln:
lv:=0;
else
internalerror(2024041501);
end;
case right.nodetype of
ordconstn:
rv:=tordconstnode(right).value;
pointerconstn:
rv:=tpointerconstnode(right).value;
niln:
rv:=0;
else
internalerror(2024041502);
end;
case nodetype of
modn: