paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 08:49:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Partial merge of commit #39990

Browse Source 
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 -
This commit is contained in:
pierre 2019-01-07 15:35:31 +00:00
parent 01d6e8fba8
commit 70b6244a29
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/powerpc/rappcgas.pas
View File

@ -159,7 +159,8 @@ Unit rappcgas;
End
Else
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);
if actasmtoken=AS_AT then
ReadAt(oper);