mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-02 05:09:49 +01:00
* 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:
parent
a8fe9601de
commit
bab8e5da5a
@ -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;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user