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

* fix high value in pointer to array conversion

Browse Source 
git-svn-id: trunk@8407 -
This commit is contained in:
peter 2007-09-08 15:25:25 +00:00
parent a42b134a81
commit 703158292b
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,high(aint-1),s32inttype); self.create(0,high(aint)-1,s32inttype);
arrayoptions:=[ado_IsConvertedPointer]; arrayoptions:=[ado_IsConvertedPointer];
setelementdef(def); setelementdef(def);
end; end;