+ added new lagnuage mode: MAC

compiler/globals.pas

@@ -69,6 +69,8 @@ interface
          [m_tp7,m_all,m_tp_procvar,m_duplicate_names];
        gpcmodeswitches    : tmodeswitches=
          [m_gpc,m_all];
+       macmodeswitches : tmodeswitches=
+         [m_mac,m_all,m_class,m_result,m_repeat_forward];
 
 
        { maximum number of locals in bytes before warning is emitted }
@@ -1226,6 +1228,9 @@ implementation
         else
          if s='GPC' then
           aktmodeswitches:=gpcmodeswitches
+        else
+         if s='MAC' then
+          aktmodeswitches:=macmodeswitches
         else
          b:=false;
 
@@ -1597,7 +1602,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.93  2003-09-03 11:18:36  florian
+  Revision 1.94  2003-09-04 21:37:29  olle
+    + added new lagnuage mode: MAC
+
+  Revision 1.93  2003/09/03 11:18:36  florian
     * fixed arm concatcopy
     + arm support in the common compiler sources added
     * moved some generic cg code around

compiler/globtype.pas

@@ -87,7 +87,7 @@ interface
        { Switches which can be changed by a mode (fpc,tp7,delphi) }
        tmodeswitch = (m_none,m_all, { needed for keyword }
          { generic }
-         m_fpc,m_objfpc,m_delphi,m_tp7,m_gpc,
+         m_fpc,m_objfpc,m_delphi,m_tp7,m_gpc,m_mac,
          { more specific }
          m_class,               { delphi class model }
          m_objpas,              { load objpas unit }
@@ -206,7 +206,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.40  2003-09-03 15:55:00  peter
+  Revision 1.41  2003-09-04 21:37:29  olle
+    + added new lagnuage mode: MAC
+
+  Revision 1.40  2003/09/03 15:55:00  peter
     * NEWRA branch merged
 
   Revision 1.39  2003/08/09 18:56:54  daniel