paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 19:53:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* $COPERATORS added

Browse Source
This commit is contained in:
peter 2005-01-20 17:32:33 +00:00
parent 7848d612cd
commit ea269120e5
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/scandir.pas
View File

@ -1078,6 +1078,11 @@ implementation
end; end;
end; end;
procedure dir_coperators;
begin
do_moduleswitch(cs_support_c_operators);
end;
{**************************************************************************** {****************************************************************************
Initialize Directives Initialize Directives
@ -1097,6 +1102,7 @@ implementation
AddDirective('CALLING',directive_all, @dir_calling); AddDirective('CALLING',directive_all, @dir_calling);
AddDirective('CHECKPOINTER',directive_all, @dir_checkpointer); AddDirective('CHECKPOINTER',directive_all, @dir_checkpointer);
AddDirective('CODEPAGE',directive_all, @dir_codepage); AddDirective('CODEPAGE',directive_all, @dir_codepage);
AddDirective('COPERATORS',directive_all, @dir_coperators);
AddDirective('COPYRIGHT',directive_all, @dir_copyright); AddDirective('COPYRIGHT',directive_all, @dir_copyright);
AddDirective('D',directive_all, @dir_description); AddDirective('D',directive_all, @dir_description);
AddDirective('DEBUGINFO',directive_all, @dir_debuginfo); AddDirective('DEBUGINFO',directive_all, @dir_debuginfo);
@ -1183,7 +1189,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.53 2005-01-20 17:05:53 peter Revision 1.54 2005-01-20 17:32:33 peter
* $COPERATORS added
Revision 1.53 2005/01/20 17:05:53 peter
* use val() for decoding integers * use val() for decoding integers
Revision 1.52 2005/01/18 15:44:43 peter Revision 1.52 2005/01/18 15:44:43 peter