mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-20 19:29:26 +02:00
* Make pointer to array conversion 64-bit safe.
git-svn-id: trunk@7886 -
This commit is contained in:
parent
08df36af82
commit
9a3c692bb3
@ -2148,7 +2148,7 @@ implementation
|
||||
constructor tarraydef.create_from_pointer(def:tdef);
|
||||
begin
|
||||
{ use -1 so that the elecount will not overflow }
|
||||
self.create(0,$7fffffff-1,s32inttype);
|
||||
self.create(0,high(aint-1),s32inttype);
|
||||
arrayoptions:=[ado_IsConvertedPointer];
|
||||
setelementdef(def);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user