Browse Source

Fix cycle with -CriotR option on aarch64-linux

git-svn-id: trunk@45733 -
pierre 5 years ago
parent
commit
8306c7ca79
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/constexp.pas

+ 2 - 0
compiler/constexp.pas

@@ -219,7 +219,9 @@ begin
   else if not a.signed and (a.uvalue>qword(high(int64))) then
   else if not a.signed and (a.uvalue>qword(high(int64))) then
     goto try_qword
     goto try_qword
   else
   else
+    {$push} {$Q-}
     sspace:=a.uvalue+abs_low_int64;
     sspace:=a.uvalue+abs_low_int64;
+    {$pop}
   if sspace>=b then
   if sspace>=b then
     begin
     begin
       result.signed:=true;
       result.signed:=true;