فهرست منبع

Partial merge of commit #39990
mergeinfo property left unchanged on purpose, as the commit also has
a change in compiler/nadd.pas source that is not handled here.
------------------------------------------------------------------------
r39990 | florian | 2018-10-20 10:17:34 +0000 (Sat, 20 Oct 2018) | 2 lines

* avoid range check errors

------------------------------------------------------------------------
--- Merging r39990 into '.':
U compiler/powerpc/rappcgas.pas

git-svn-id: branches/fixes_3_2@40794 -

pierre 6 سال پیش
والد
کامیت
70b6244a29
1فایلهای تغییر یافته به همراه2 افزوده شده و 1 حذف شده
  1. 2 1
      compiler/powerpc/rappcgas.pas

+ 2 - 1
compiler/powerpc/rappcgas.pas

@@ -159,7 +159,8 @@ Unit rappcgas;
                End
                End
               Else
               Else
                Begin
                Begin
-                 oper.opr.Ref.Offset:=BuildConstExpression(false,true);
+                 { cast explicitly to avoid range check errors }
+                 oper.opr.Ref.Offset:=ASizeInt(BuildConstExpression(false,true));
                  Consume(AS_RPAREN);
                  Consume(AS_RPAREN);
                  if actasmtoken=AS_AT then
                  if actasmtoken=AS_AT then
                    ReadAt(oper);
                    ReadAt(oper);