paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 10:09:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ introduce long forms for $E, $F and $S, resolves #39889

Browse Source
This commit is contained in:
florian 2023-01-08 21:28:57 +01:00
parent c1f3960388
commit 0b45cd95f7
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/scandir.pas
View File

@ -549,6 +549,16 @@ unit scandir;
do_message(scan_f_user_defined); do_message(scan_f_user_defined);
end; end;
procedure dir_floatingpointemulation;
begin
do_delphiswitch('E');
end;
procedure dir_stackchecking;
begin
do_delphiswitch('T');
end;
procedure dir_fputype; procedure dir_fputype;
begin begin
current_scanner.skipspace; current_scanner.skipspace;
@ -1975,7 +1985,9 @@ unit scandir;
AddDirective('EXTENDEDSYNTAX',directive_all, @dir_extendedsyntax); AddDirective('EXTENDEDSYNTAX',directive_all, @dir_extendedsyntax);
AddDirective('EXTERNALSYM',directive_all, @dir_externalsym); AddDirective('EXTERNALSYM',directive_all, @dir_externalsym);
AddDirective('F',directive_all, @dir_forcefarcalls); AddDirective('F',directive_all, @dir_forcefarcalls);
AddDirective('FARCALLS',directive_all, @dir_forcefarcalls);
AddDirective('FATAL',directive_all, @dir_fatal); AddDirective('FATAL',directive_all, @dir_fatal);
AddDirective('FLOATINGPOINTEMULATION',directive_all,@dir_floatingpointemulation);
AddDirective('FPUTYPE',directive_all, @dir_fputype); AddDirective('FPUTYPE',directive_all, @dir_fputype);
AddDirective('FRAMEWORKPATH',directive_all, @dir_frameworkpath); AddDirective('FRAMEWORKPATH',directive_all, @dir_frameworkpath);
AddDirective('GOTO',directive_all, @dir_goto); AddDirective('GOTO',directive_all, @dir_goto);
@ -2050,6 +2062,7 @@ unit scandir;
AddDirective('SETPESUBSYSVERSION', directive_all, @dir_setpesubsysversion); AddDirective('SETPESUBSYSVERSION', directive_all, @dir_setpesubsysversion);
AddDirective('SCREENNAME',directive_all, @dir_screenname); AddDirective('SCREENNAME',directive_all, @dir_screenname);
AddDirective('SMARTLINK',directive_all, @dir_smartlink); AddDirective('SMARTLINK',directive_all, @dir_smartlink);
AddDirective('STACKCHECKING',directive_all,@dir_stackchecking);
AddDirective('STACKFRAMES',directive_all, @dir_stackframes); AddDirective('STACKFRAMES',directive_all, @dir_stackframes);
AddDirective('STOP',directive_all, @dir_stop); AddDirective('STOP',directive_all, @dir_stop);
AddDirective('STRINGCHECKS', directive_all, @dir_stringchecks); AddDirective('STRINGCHECKS', directive_all, @dir_stringchecks);