* Make pointer to array conversion 64-bit safe.

git-svn-id: trunk@7886 -
This commit is contained in:
daniel 2007-07-01 09:25:24 +00:00
parent 08df36af82
commit 9a3c692bb3

View File

@ -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;