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

+ simplify "x mod -1", resolves #37449

Browse Source 
git-svn-id: trunk@45969 -
This commit is contained in:
florian 2020-07-30 20:35:34 +00:00
parent 546a679f4e
commit 42f2e5f8ad
3 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -18391,6 +18391,7 @@ tests/webtbs/tw37398.pp svneol=native#text/pascal
tests/webtbs/tw37400.pp svneol=native#text/pascal
tests/webtbs/tw3742.pp svneol=native#text/plain
tests/webtbs/tw37427.pp svneol=native#text/pascal
tests/webtbs/tw37449.pp svneol=native#text/pascal
tests/webtbs/tw3751.pp svneol=native#text/plain
tests/webtbs/tw3758.pp svneol=native#text/plain
tests/webtbs/tw3764.pp svneol=native#text/plain

9
compiler/nmat.pas
View File

@ -154,7 +154,14 @@ implementation
Message(cg_e_mod_only_defined_for_pos_quotient);
{ recover }
tordconstnode(right).value := 1;
end;
end
else if (rv=-1) and
(nodetype=modn) then
begin
result:=cordconstnode.create(0,left.resultdef,true);
left:=nil;
exit;
end;
end;
if is_constintnode(right) and is_constintnode(left) then

6
tests/webtbs/tw37449.pp Normal file
View File

@ -0,0 +1,6 @@
{ %OPT=-O- }
var x:integer;
begin
x := 1;
x := x mod -1; { buggy }
end.