* Enable threadvars for all modes

compiler/pdecl.pas

@@ -616,10 +616,10 @@ implementation
         consume(_THREADVAR);
         if not(symtablestack.symtabletype in [staticsymtable,globalsymtable]) then
           message(parser_e_threadvars_only_sg);
-        if not(cs_threading in aktmoduleswitches) and
+{        if not(cs_threading in aktmoduleswitches) and
            not(cs_compilesystem in aktmoduleswitches) then
-          Comment(V_Error,'Threading is turned off');
-        read_var_decs(false,false,true);
+          Comment(V_Error,'Threading is turned off');}
+        read_var_decs(false,false,cs_threading in aktmoduleswitches);
       end;
 
 
@@ -682,7 +682,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.79  2004-02-12 15:54:03  peter
+  Revision 1.80  2004-02-17 17:38:11  daniel
+    * Enable threadvars for all modes
+
+  Revision 1.79  2004/02/12 15:54:03  peter
     * make extcycle is working again
 
   Revision 1.78  2004/02/11 19:59:06  peter

compiler/tokens.pas

@@ -425,7 +425,7 @@ const
       (str:'PROTECTED'     ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'PUBLISHED'     ;special:false;keyword:m_none;op:NOTOKEN),
       (str:'SOFTFLOAT'     ;special:false;keyword:m_none;op:NOTOKEN),
-      (str:'THREADVAR'     ;special:false;keyword:m_class;op:NOTOKEN),
+      (str:'THREADVAR'     ;special:false;keyword:m_all;op:NOTOKEN),
       (str:'DEPRECATED'    ;special:false;keyword:m_all;op:NOTOKEN),
       (str:'DESTRUCTOR'    ;special:false;keyword:m_all;op:NOTOKEN),
       (str:'IMPLEMENTS'    ;special:false;keyword:m_none;op:NOTOKEN),
@@ -504,7 +504,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.25  2003-11-07 15:58:32  florian
+  Revision 1.26  2004-02-17 17:38:11  daniel
+    * Enable threadvars for all modes
+
+  Revision 1.25  2003/11/07 15:58:32  florian
     * Florian's culmutative nr. 1; contains:
       - invalid calling conventions for a certain cpu are rejected
       - arm softfloat calling conventions