paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 20:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Make pointer to array conversion 64-bit safe.

Browse Source 
git-svn-id: trunk@7886 -
This commit is contained in:
daniel 2007-07-01 09:25:24 +00:00
parent 08df36af82
commit 9a3c692bb3
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

@ -2148,7 +2148,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,$7fffffff-1,s32inttype); self.create(0,high(aint-1),s32inttype);
arrayoptions:=[ado_IsConvertedPointer]; arrayoptions:=[ado_IsConvertedPointer];
setelementdef(def); setelementdef(def);
end; end;