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

* in the vecnode, when indexing a pointer[], convert right to

Browse Source 
tpointerdef.pointer_arithmetic_int_type instead of sinttype

git-svn-id: trunk@28269 -
This commit is contained in:
nickysn 2014-07-26 12:24:50 +00:00
parent e6c5c35d65
commit 4b1e5f1c9a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nmem.pas
View File

@ -946,8 +946,10 @@ implementation
else
{Convert indexes into dynamically allocated strings to aword.}
inserttypeconv(right,uinttype);
pointerdef:
inserttypeconv(right,tpointerdef(left.resultdef).pointer_arithmetic_int_type);
else
{Others, i.e. pointer indexes to aint.}
{Others, (are there any?) indexes to aint.}
inserttypeconv(right,sinttype);
end;