Browse Source

* enum packing changed from len to max

peter 27 years ago
parent
commit
6a5a4973cc
1 changed files with 6 additions and 6 deletions
  1. 6 6
      compiler/symdef.inc

+ 6 - 6
compiler/symdef.inc

@@ -569,14 +569,11 @@
 
 
 
 
     procedure tenumdef.calcsavesize;
     procedure tenumdef.calcsavesize;
-      var
-        len : longint;
       begin
       begin
-        len:=max-min;
-        if (aktpackenum=4) or (len>65535) then
+        if (aktpackenum=4) or (max>65535) then
          savesize:=4
          savesize:=4
         else
         else
-         if (aktpackenum=2) or (len>255) then
+         if (aktpackenum=2) or (max>255) then
           savesize:=2
           savesize:=2
         else
         else
          savesize:=1;
          savesize:=1;
@@ -2628,7 +2625,10 @@
 
 
 {
 {
   $Log$
   $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 :(
     * removed debug writeln :(
 
 
   Revision 1.29  1998/09/01 12:53:25  peter
   Revision 1.29  1998/09/01 12:53:25  peter