From 9a3c692bb36ed960fcd2b4b07d0d2b5698fa9f9b Mon Sep 17 00:00:00 2001
From: daniel <daniel@freepascal.org>
Date: Sun, 1 Jul 2007 09:25:24 +0000
Subject: [PATCH]   * Make pointer to array conversion 64-bit safe.

git-svn-id: trunk@7886 -
---
 compiler/symdef.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index 2d12c411b6..0cee76253c 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,$7fffffff-1,s32inttype);
+         self.create(0,high(aint-1),s32inttype);
          arrayoptions:=[ado_IsConvertedPointer];
          setelementdef(def);
       end;