From 6a5a4973cceec667e841863fbc914f2b51f87f29 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 2 Sep 1998 15:14:28 +0000
Subject: [PATCH]   * enum packing changed from len to max

---
 compiler/symdef.inc | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/symdef.inc b/compiler/symdef.inc
index c5cb903f4b..19ea192cb4 100644
--- a/compiler/symdef.inc
+++ b/compiler/symdef.inc
@@ -569,14 +569,11 @@
 
 
     procedure tenumdef.calcsavesize;
-      var
-        len : longint;
       begin
-        len:=max-min;
-        if (aktpackenum=4) or (len>65535) then
+        if (aktpackenum=4) or (max>65535) then
          savesize:=4
         else
-         if (aktpackenum=2) or (len>255) then
+         if (aktpackenum=2) or (max>255) then
           savesize:=2
         else
          savesize:=1;
@@ -2628,7 +2625,10 @@
 
 {
   $Log$
-  Revision 1.30  1998-09-01 17:37:29  peter
+  Revision 1.31  1998-09-02 15:14:28  peter
+    * enum packing changed from len to max
+
+  Revision 1.30  1998/09/01 17:37:29  peter
     * removed debug writeln :(
 
   Revision 1.29  1998/09/01 12:53:25  peter