paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-30 07:40:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enable threadvars for all modes

Browse Source
This commit is contained in:
daniel 2004-02-17 17:38:11 +00:00
parent bc7f8a474d
commit 2835ed1b55
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/pdecl.pas
View File

@ -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

7
compiler/tokens.pas
View File

@ -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