Browse Source

* changed default packenum for MacPas from 1 to 2 (compatible with Metrowerks)

git-svn-id: trunk@1971 -
Jonas Maebe 19 years ago
parent
commit
ef2a0c7ddf
1 changed files with 4 additions and 2 deletions
  1. 4 2
      compiler/scanner.pas

+ 4 - 2
compiler/scanner.pas

@@ -309,9 +309,11 @@ implementation
             end;
             end;
            { Default enum packing for delphi/tp7 }
            { Default enum packing for delphi/tp7 }
            if (m_tp7 in aktmodeswitches) or
            if (m_tp7 in aktmodeswitches) or
-              (m_delphi in aktmodeswitches) or
-              (m_mac in aktmodeswitches) then
+              (m_delphi in aktmodeswitches) then
              aktpackenum:=1
              aktpackenum:=1
+           else if (m_mac in aktmodeswitches) then
+             { compatible with Metrowerks Pascal }
+             aktpackenum:=2
            else
            else
              aktpackenum:=4;
              aktpackenum:=4;
            if changeinit then
            if changeinit then