瀏覽代碼

Fix cycle with -CriotR option on aarch64-linux

git-svn-id: trunk@45733 -
pierre 5 年之前
父節點
當前提交
8306c7ca79
共有 1 個文件被更改,包括 2 次插入0 次删除
  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;