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

* use sizeuinttype instead of ptruinttype for the array range type in the

Browse Source 
structure, created by TVMTWriter.gettabledef

git-svn-id: trunk@34715 -
This commit is contained in:
nickysn 2016-10-14 13:22:05 +00:00
parent d4e573c1e3
commit ac186eb85d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgvmt.pas
View File

@ -886,7 +886,7 @@ implementation
fields.add(countdef); fields.add(countdef);
if count>0 then if count>0 then
begin begin
arrdef:=carraydef.create(0,count-1,ptruinttype); arrdef:=carraydef.create(0,count-1,sizeuinttype);
arrdef.elementdef:=elementdef; arrdef.elementdef:=elementdef;
fields.add(arrdef); fields.add(arrdef);
end end