paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-10 13:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* omit first not, helps the reg. allocator to find a workable colouring, resolves #36611

Browse Source 
git-svn-id: trunk@44005 -
(cherry picked from commit ae8d2dc69a)
This commit is contained in:
florian 2020-01-20 21:13:34 +00:00
parent 23d26d495f
commit ce336a08c5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/int64.inc
View File

@ -530,14 +530,16 @@
sign : boolean; sign : boolean;
q1,q2,q3 : qword; q1,q2,q3 : qword;
begin begin
sign:=false;
if f1<0 then if f1<0 then
begin begin
sign:=not(sign);
q1:=qword(-f1); q1:=qword(-f1);
sign:=true;
end end
else else
begin
q1:=f1; q1:=f1;
sign:=false;
end;
if f2<0 then if f2<0 then
begin begin
sign:=not(sign); sign:=not(sign);