Browse Source

* removed $threading

peter 20 years ago
parent
commit
ad9d04f104
3 changed files with 13 additions and 18 deletions
  1. 5 2
      compiler/globtype.pas
  2. 4 4
      compiler/pmodules.pas
  3. 4 12
      compiler/scandir.pas

+ 5 - 2
compiler/globtype.pas

@@ -103,7 +103,7 @@ than 255 characters. That's why using Ansi Strings}
          cs_support_c_operators,cs_static_keyword,
          { generation }
          cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem,
-         cs_lineinfo,cs_threading,cs_implicit_exceptions,
+         cs_lineinfo,cs_implicit_exceptions,
          { linking }
          cs_create_smart,cs_create_dynamic,cs_create_pic
        );
@@ -319,7 +319,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.68  2005-01-23 21:09:12  florian
+  Revision 1.69  2005-02-06 11:15:31  peter
+    * removed $threading
+
+  Revision 1.68  2005/01/23 21:09:12  florian
     + added pi bit pattern to the compiler, so pi should always be correct
 
   Revision 1.67  2005/01/04 16:20:51  florian

+ 4 - 4
compiler/pmodules.pas

@@ -446,9 +446,6 @@ implementation
         if (cs_fp_emulation in aktmoduleswitches) then
           AddUnit('SoftFpu');
 {$endif cpufpemu}
-        { Thread support unit? }
-        if (cs_threading in aktmoduleswitches) then
-          AddUnit('SysThrds');
         { Objpas unit? }
         if m_objpas in aktmodeswitches then
           AddUnit('ObjPas');
@@ -1608,7 +1605,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.182  2005-02-06 00:05:56  florian
+  Revision 1.183  2005-02-06 11:15:31  peter
+    * removed $threading
+
+  Revision 1.182  2005/02/06 00:05:56  florian
     + x86_64 pic draft
 
   Revision 1.181  2005/01/24 22:08:32  peter

+ 4 - 12
compiler/scandir.pas

@@ -897,16 +897,6 @@ implementation
       end;
 {$endif}
 
-    procedure dir_threading;
-      begin
-        do_moduleswitch(cs_threading);
-        { defined/undefine FPC_THREADING }
-        if cs_threading in aktmoduleswitches then
-          def_system_macro('FPC_THREADING')
-        else
-          undef_system_macro('FPC_THREADING');
-      end;
-
     procedure dir_typedaddress;
       begin
         do_delphiswitch('T');
@@ -1167,7 +1157,6 @@ implementation
 {$ifdef powerpc}
         AddDirective('SYSCALL',directive_all, @dir_syscall);
 {$endif powerpc}
-        AddDirective('THREADING',directive_all, @dir_threading);
         AddDirective('THREADNAME',directive_all, @dir_threadname);
         AddDirective('TYPEDADDRESS',directive_all, @dir_typedaddress);
         AddDirective('TYPEINFO',directive_all, @dir_typeinfo);
@@ -1189,7 +1178,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.54  2005-01-20 17:32:33  peter
+  Revision 1.55  2005-02-06 11:15:32  peter
+    * removed $threading
+
+  Revision 1.54  2005/01/20 17:32:33  peter
     * $COPERATORS added
 
   Revision 1.53  2005/01/20 17:05:53  peter