ソースを参照

Avoid wrong overflow error when using -Criot options

git-svn-id: trunk@45815 -
pierre 5 年 前
コミット
667a010357
1 ファイル変更2 行追加0 行削除
  1. 2 0
      compiler/ogrel.pas

+ 2 - 0
compiler/ogrel.pas

@@ -358,9 +358,11 @@ implementation
             else if (p.objsection=CurrObjSec) and
             else if (p.objsection=CurrObjSec) and
                     (p.bind<>AB_COMMON) and
                     (p.bind<>AB_COMMON) and
                     (Reloctype=RELOC_RELATIVE) then
                     (Reloctype=RELOC_RELATIVE) then
+{$push} {$R-}{$Q-}
               begin
               begin
                 data:=data+symaddr-len-CurrObjSec.Size;
                 data:=data+symaddr-len-CurrObjSec.Size;
               end
               end
+{$pop}
             else
             else
               begin
               begin
                 objreloc:=TRelRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);
                 objreloc:=TRelRelocation.CreateSection(CurrObjSec.Size,p.objsection,Reloctype);