diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 476bbfa6d0..7440deb3ba 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -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,high(aint-1),s32inttype); + self.create(0,high(aint)-1,s32inttype); arrayoptions:=[ado_IsConvertedPointer]; setelementdef(def); end;