* packrecords fixed for settings from $PACKRECORDS

* default packrecords now uses value 0 and uses info from aligment
    structure only, initpackrecords removed

compiler/globals.pas

@@ -192,7 +192,6 @@ interface
        {$IFDEF testvarsets}
         Initsetalloc,                            {0=fixed, 1 =var}
        {$ENDIF}
-       initpackrecords,
        initpackenum       : shortint;
        initalignment      : talignmentinfo;
        initoptprocessor,
@@ -1836,7 +1835,6 @@ implementation
 
         initfputype:=fpu_x87;
 
-        initpackrecords:=4;
         initpackenum:=4;
         {$IFDEF testvarsets}
         initsetalloc:=0;
@@ -1845,7 +1843,6 @@ implementation
 {$endif i386}
 {$ifdef m68k}
         initoptprocessor:=MC68020;
-        initpackrecords:=2;
         initpackenum:=4;
         {$IFDEF testvarsets}
          initsetalloc:=0;
@@ -1853,7 +1850,6 @@ implementation
 {$endif m68k}
 {$ifdef powerpc}
         initoptprocessor:=PPC604;
-        initpackrecords:=4;
         initpackenum:=4;
         {$IFDEF testvarsets}
          initsetalloc:=0;
@@ -1862,14 +1858,12 @@ implementation
 {$endif powerpc}
 {$ifdef sparc}
         initoptprocessor:=SPARC_V8;
-        initpackrecords:=8;
         initpackenum:=4;
         {$IFDEF testvarsets}
          initsetalloc:=0;
         {$ENDIF}
 {$endif sparc}
 {$ifdef arm}
-        initpackrecords:=4;
         initpackenum:=4;
         {$IFDEF testvarsets}
         initsetalloc:=0;
@@ -1882,7 +1876,6 @@ implementation
 
         initfputype:=fpu_sse64;
 
-        initpackrecords:=8;
         initpackenum:=4;
         {$IFDEF testvarsets}
         initsetalloc:=0;
@@ -1904,7 +1897,12 @@ implementation
 end.
 {
   $Log$
-  Revision 1.125  2004-02-19 20:40:15  olle
+  Revision 1.126  2004-03-14 20:08:37  peter
+    * packrecords fixed for settings from $PACKRECORDS
+    * default packrecords now uses value 0 and uses info from aligment
+      structure only, initpackrecords removed
+
+  Revision 1.125  2004/02/19 20:40:15  olle
     + Support for Link on target especially for MacOS
     + TLinkerMPW
     + TAsmScriptMPW

compiler/parser.pas

@@ -483,7 +483,7 @@ implementation
          aktalignment:=initalignment;
          aktfputype:=initfputype;
          aktpackenum:=initpackenum;
-         aktpackrecords:=initpackrecords;
+         aktpackrecords:=0;
          aktoutputformat:=initoutputformat;
          set_target_asm(aktoutputformat);
          aktoptprocessor:=initoptprocessor;
@@ -698,7 +698,12 @@ implementation
 end.
 {
   $Log$
-  Revision 1.61  2004-03-02 17:32:12  florian
+  Revision 1.62  2004-03-14 20:08:37  peter
+    * packrecords fixed for settings from $PACKRECORDS
+    * default packrecords now uses value 0 and uses info from aligment
+      structure only, initpackrecords removed
+
+  Revision 1.61  2004/03/02 17:32:12  florian
     * make cycle fixed
     + pic support for darwin
     + support of importing vars from shared libs on darwin implemented

compiler/scandir.pas

@@ -605,7 +605,7 @@ implementation
             aktpackrecords:=-1
            else
             if (hs='NORMAL') or (hs='DEFAULT') then
-             aktpackrecords:=2
+             aktpackrecords:=0
            else
             Message(scan_w_only_pack_records);
          end
@@ -992,7 +992,12 @@ implementation
 end.
 {
   $Log$
-  Revision 1.30  2004-01-28 22:16:31  peter
+  Revision 1.31  2004-03-14 20:08:37  peter
+    * packrecords fixed for settings from $PACKRECORDS
+    * default packrecords now uses value 0 and uses info from aligment
+      structure only, initpackrecords removed
+
+  Revision 1.30  2004/01/28 22:16:31  peter
     * more record alignment fixes
 
   Revision 1.29  2003/12/25 01:07:09  florian

compiler/symtable.pas

@@ -1019,7 +1019,13 @@ implementation
         if (usefieldalignment=-1) then
           varalignrecord:=used_align(varalign,aktalignment.recordalignmin,aktalignment.maxCrecordalign)
         else
-          varalignrecord:=used_align(varalign,aktalignment.recordalignmin,aktalignment.recordalignmax);
+          if (usefieldalignment=0) then
+            varalignrecord:=used_align(varalign,aktalignment.recordalignmin,aktalignment.recordalignmax)
+        else
+          begin
+            { packrecords is set explicit, ignore recordalignmax limit }
+            varalignrecord:=used_align(varalign,aktalignment.recordalignmin,varalign);
+          end;
         recordalignment:=max(recordalignment,varalignrecord);
       end;
 
@@ -2296,7 +2302,12 @@ implementation
 end.
 {
   $Log$
-  Revision 1.143  2004-03-09 20:45:04  peter
+  Revision 1.144  2004-03-14 20:08:37  peter
+    * packrecords fixed for settings from $PACKRECORDS
+    * default packrecords now uses value 0 and uses info from aligment
+      structure only, initpackrecords removed
+
+  Revision 1.143  2004/03/09 20:45:04  peter
     * more stabs updates
 
   Revision 1.142  2004/03/08 22:07:47  peter