paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-27 11:57:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

* set the default range type of arrays to ptrsinttype rather

Browse Source 
than s32inttype (so it's correct for 64 bit platforms too)

git-svn-id: trunk@20107 -
This commit is contained in:
Jonas Maebe 2012-01-18 21:13:21 +00:00
parent a8fe9601de
commit bab8e5da5a
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/symdef.pas
View File

@ -2647,7 +2647,7 @@ implementation
constructor tarraydef.create_from_pointer(def:tdef); constructor tarraydef.create_from_pointer(def:tdef);
begin begin
{ use -1 so that the elecount will not overflow } { use -1 so that the elecount will not overflow }
self.create(0,high(aint)-1,s32inttype); self.create(0,high(aint)-1,ptrsinttype);
arrayoptions:=[ado_IsConvertedPointer]; arrayoptions:=[ado_IsConvertedPointer];
setelementdef(def); setelementdef(def);
end; end;