paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 06:29:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

* threading switch, defines the symbol FPC_THREADING

Browse Source
This commit is contained in:
peter 2002-10-14 19:43:41 +00:00
parent 798289b1f3
commit fb12ccee3b
2 changed files with 29 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/globtype.pas
View File

@ -53,7 +53,7 @@ interface
cs_support_c_operators,cs_static_keyword, cs_support_c_operators,cs_static_keyword,
{ generation } { generation }
cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem, cs_profile,cs_debuginfo,cs_browser,cs_local_browser,cs_compilesystem,
cs_lineinfo, cs_lineinfo,cs_threading,
{ linking } { linking }
cs_create_smart,cs_create_dynamic,cs_create_pic cs_create_smart,cs_create_dynamic,cs_create_pic
); );
@ -211,7 +211,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.32 2002-10-05 12:43:24 carl Revision 1.33 2002-10-14 19:43:41 peter
* threading switch, defines the symbol FPC_THREADING
Revision 1.32 2002/10/05 12:43:24 carl
* fixes for Delphi 6 compilation * fixes for Delphi 6 compilation
(warning : Some features do not work under Delphi) (warning : Some features do not work under Delphi)

27
compiler/scandir.pas
View File

@ -705,6 +705,21 @@ implementation
do_message(scan_f_user_defined); do_message(scan_f_user_defined);
end; end;
procedure dir_threading;
var
mac : tmacro;
begin
do_moduleswitch(cs_threading);
{ defined/undefine FPC_THREADING }
mac:=tmacro(current_scanner.macros.search('FPC_THREADING'));
if not assigned(mac) then
begin
mac:=tmacro.create('FPC_THREADING');
current_scanner.macros.insert(mac);
end;
mac.defined:=(cs_threading in aktmoduleswitches);
end;
procedure dir_typedaddress; procedure dir_typedaddress;
begin begin
do_delphiswitch('T'); do_delphiswitch('T');
@ -880,6 +895,7 @@ implementation
AddDirective('DESCRIPTION',{$ifdef FPCPROCVAR}@{$endif}dir_description); AddDirective('DESCRIPTION',{$ifdef FPCPROCVAR}@{$endif}dir_description);
AddDirective('ERROR',{$ifdef FPCPROCVAR}@{$endif}dir_error); AddDirective('ERROR',{$ifdef FPCPROCVAR}@{$endif}dir_error);
AddDirective('EXTENDEDSYNTAX',{$ifdef FPCPROCVAR}@{$endif}dir_extendedsyntax); AddDirective('EXTENDEDSYNTAX',{$ifdef FPCPROCVAR}@{$endif}dir_extendedsyntax);
AddDirective('EXTERNALSYM',{$ifdef FPCPROCVAR}@{$endif}dir_externalsym);
AddDirective('FATAL',{$ifdef FPCPROCVAR}@{$endif}dir_fatal); AddDirective('FATAL',{$ifdef FPCPROCVAR}@{$endif}dir_fatal);
AddDirective('GOTO',{$ifdef FPCPROCVAR}@{$endif}dir_goto); AddDirective('GOTO',{$ifdef FPCPROCVAR}@{$endif}dir_goto);
AddDirective('HINT',{$ifdef FPCPROCVAR}@{$endif}dir_hint); AddDirective('HINT',{$ifdef FPCPROCVAR}@{$endif}dir_hint);
@ -919,17 +935,13 @@ implementation
AddDirective('RANGECHECKS',{$ifdef FPCPROCVAR}@{$endif}dir_rangechecks); AddDirective('RANGECHECKS',{$ifdef FPCPROCVAR}@{$endif}dir_rangechecks);
AddDirective('REFERENCEINFO',{$ifdef FPCPROCVAR}@{$endif}dir_referenceinfo); AddDirective('REFERENCEINFO',{$ifdef FPCPROCVAR}@{$endif}dir_referenceinfo);
AddDirective('SATURATION',{$ifdef FPCPROCVAR}@{$endif}dir_saturation); AddDirective('SATURATION',{$ifdef FPCPROCVAR}@{$endif}dir_saturation);
{ad 18.05.2001: Screen and Threadname for Netware}
AddDirective('SCREENNAME',{$ifdef FPCPROCVAR}@{$endif}dir_screenname); AddDirective('SCREENNAME',{$ifdef FPCPROCVAR}@{$endif}dir_screenname);
AddDirective('EXTERNALSYM',{$ifdef FPCPROCVAR}@{$endif}dir_externalsym);
AddDirective('SMARTLINK',{$ifdef FPCPROCVAR}@{$endif}dir_smartlink); AddDirective('SMARTLINK',{$ifdef FPCPROCVAR}@{$endif}dir_smartlink);
AddDirective('STACKFRAMES',{$ifdef FPCPROCVAR}@{$endif}dir_stackframes); AddDirective('STACKFRAMES',{$ifdef FPCPROCVAR}@{$endif}dir_stackframes);
AddDirective('STATIC',{$ifdef FPCPROCVAR}@{$endif}dir_static); AddDirective('STATIC',{$ifdef FPCPROCVAR}@{$endif}dir_static);
AddDirective('STOP',{$ifdef FPCPROCVAR}@{$endif}dir_stop); AddDirective('STOP',{$ifdef FPCPROCVAR}@{$endif}dir_stop);
{ad 18.05.2001: Screen and Threadname for Netware} AddDirective('THREADING',{$ifdef FPCPROCVAR}@{$endif}dir_threading);
AddDirective('THREADNAME',{$ifdef FPCPROCVAR}@{$endif}dir_threadname); AddDirective('THREADNAME',{$ifdef FPCPROCVAR}@{$endif}dir_threadname);
AddDirective('TYPEDADDRESS',{$ifdef FPCPROCVAR}@{$endif}dir_typedaddress); AddDirective('TYPEDADDRESS',{$ifdef FPCPROCVAR}@{$endif}dir_typedaddress);
AddDirective('TYPEINFO',{$ifdef FPCPROCVAR}@{$endif}dir_typeinfo); AddDirective('TYPEINFO',{$ifdef FPCPROCVAR}@{$endif}dir_typeinfo);
AddDirective('UNITPATH',{$ifdef FPCPROCVAR}@{$endif}dir_unitpath); AddDirective('UNITPATH',{$ifdef FPCPROCVAR}@{$endif}dir_unitpath);
@ -948,7 +960,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.19 2002-08-13 18:01:52 carl Revision 1.20 2002-10-14 19:43:41 peter
* threading switch, defines the symbol FPC_THREADING
Revision 1.19 2002/08/13 18:01:52 carl
* rename swatoperands to swapoperands * rename swatoperands to swapoperands
+ m68k first compilable version (still needs a lot of testing): + m68k first compilable version (still needs a lot of testing):
assembler generator, system information , inline assembler generator, system information , inline