|
@@ -616,10 +616,7 @@ implementation
|
|
|
consume(_THREADVAR);
|
|
consume(_THREADVAR);
|
|
|
if not(symtablestack.symtabletype in [staticsymtable,globalsymtable]) then
|
|
if not(symtablestack.symtabletype in [staticsymtable,globalsymtable]) then
|
|
|
message(parser_e_threadvars_only_sg);
|
|
message(parser_e_threadvars_only_sg);
|
|
|
-{ 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,cs_threading in aktmoduleswitches);
|
|
|
|
|
|
|
+ read_var_decs(false,false,true);
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|
|
|
|
@@ -682,7 +679,10 @@ implementation
|
|
|
end.
|
|
end.
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.80 2004-02-17 17:38:11 daniel
|
|
|
|
|
|
|
+ Revision 1.81 2004-02-17 19:37:16 daniel
|
|
|
|
|
+ * No longer treat threadvar is normakl var if threading off
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.80 2004/02/17 17:38:11 daniel
|
|
|
* Enable threadvars for all modes
|
|
* Enable threadvars for all modes
|
|
|
|
|
|
|
|
Revision 1.79 2004/02/12 15:54:03 peter
|
|
Revision 1.79 2004/02/12 15:54:03 peter
|
daniel