From 37139422aa2b1b514f8cf51e769fc65ee44e1cdb Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 4 Nov 2004 17:58:48 +0000
Subject: [PATCH] elecount also on 32bit needs the qword part to prevent
 overflow

---
 compiler/symdef.pas | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/compiler/symdef.pas b/compiler/symdef.pas
index ad39f7f7b8..691df13be3 100644
--- a/compiler/symdef.pas
+++ b/compiler/symdef.pas
@@ -2893,17 +2893,14 @@ implementation
 
 
     function tarraydef.elecount : aint;
-{$ifdef cpu64bit}
       var
         qhigh,qlow : qword;
-{$endif cpu64bit}
       begin
         if IsDynamicArray then
           begin
             result:=0;
             exit;
           end;
-{$ifdef cpu64bit}
         if (highrange>0) and (lowrange<0) then
           begin
             qhigh:=highrange;
@@ -2915,7 +2912,6 @@ implementation
               result:=qhigh+qlow+1;
           end
         else
-{$endif cpu64bit}
           result:=int64(highrange)-lowrange+1;
       end;
 
@@ -6218,7 +6214,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.265  2004-11-04 17:09:54  peter
+  Revision 1.266  2004-11-04 17:58:48  peter
+  elecount also on 32bit needs the qword part to prevent overflow
+
+  Revision 1.265  2004/11/04 17:09:54  peter
   fixed debuginfo for variables in staticsymtable
 
   Revision 1.264  2004/11/03 09:46:34  florian