* set the default range type of arrays to ptrsinttype rather

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

View File

@ -2647,7 +2647,7 @@ implementation
constructor tarraydef.create_from_pointer(def:tdef);
begin
{ 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];
setelementdef(def);
end;