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

* convert the index for open arrays to ptr(u/s)inttype instead of to

Browse Source 
(s/u)inttype (as in r32745)

git-svn-id: trunk@34057 -
This commit is contained in:
Jonas Maebe 2016-07-03 21:18:19 +00:00
parent 48f8199659
commit 18639304e1
1 changed files with 2 additions and 2 deletions

4
compiler/nmem.pas
View File

@ -933,9 +933,9 @@ implementation
begin
if is_signed(right.resultdef) and
not is_constnode(right) then
inserttypeconv(right,sinttype)
inserttypeconv(right,ptrsinttype)
else
inserttypeconv(right,uinttype)
inserttypeconv(right,ptruinttype)
end
else if is_special_array(left.resultdef) then
{Arrays without a high bound (dynamic arrays, open arrays) are zero based,