2
0
Эх сурвалжийг харах

* {$PackRecords NORMAL}, {$PackRecords DEFAULT} and {$ALIGN RESET} now set
packrecords to default_settings.packrecords, instead of 0

git-svn-id: trunk@25717 -

nickysn 11 жил өмнө
parent
commit
9d1ba65cec
1 өөрчлөгдсөн 2 нэмэгдсэн , 2 устгасан
  1. 2 2
      compiler/scandir.pas

+ 2 - 2
compiler/scandir.pas

@@ -153,7 +153,7 @@ unit scandir;
                else if (hs='POWER') or (hs='POWERPC') then
                  current_settings.packrecords:=C_alignment
                else if (hs='RESET') then
-                 current_settings.packrecords:=0
+                 current_settings.packrecords:=default_settings.packrecords
                else
                  Message1(scan_e_illegal_pack_records,hs);
              end
@@ -924,7 +924,7 @@ unit scandir;
             current_settings.packrecords:=C_alignment
            else
             if (hs='NORMAL') or (hs='DEFAULT') then
-             current_settings.packrecords:=0
+             current_settings.packrecords:=default_settings.packrecords
            else
             Message1(scan_e_illegal_pack_records,hs);
          end