paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-11 13:29:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* don't give a warning for {$u-} (means "Pentium-safe fdiv off", is only

Browse Source 
behaviour that fpc supports)

git-svn-id: trunk@6171 -
This commit is contained in:
Jonas Maebe 2007-01-24 19:49:16 +00:00
parent 0e1c9c901d
commit 4765364816
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/switches.pas
View File

@ -39,7 +39,7 @@ uses
****************************************************************************}
type
TSwitchType=(ignoredsw,localsw,modulesw,globalsw,illegalsw,unsupportedsw,alignsw,optimizersw,packenumsw);
TSwitchType=(ignoredsw,localsw,modulesw,globalsw,illegalsw,unsupportedsw,alignsw,optimizersw,packenumsw,pentiumfdivsw);
SwitchRec=record
typesw : TSwitchType;
setsw : byte;
@ -68,7 +68,7 @@ const
{R} (typesw:localsw; setsw:ord(cs_check_range)),
{S} (typesw:localsw; setsw:ord(cs_check_stack)),
{T} (typesw:localsw; setsw:ord(cs_typed_addresses)),
{U} (typesw:illegalsw; setsw:ord(cs_localnone)),
{U} (typesw:pentiumfdivsw; setsw:ord(cs_localnone)),
{V} (typesw:localsw; setsw:ord(cs_strict_var_strings)),
{W} (typesw:localsw; setsw:ord(cs_generate_stackframes)),
{X} (typesw:modulesw; setsw:ord(cs_extsyntax)),
@ -195,6 +195,13 @@ begin
else
current_settings.packenum:=4;
end;
pentiumfdivsw:
begin
{ Switch u- means pentium-safe fdiv off -> fpc default. We don't }
{ support u+ }
if state='+' then
Message1(scan_w_unsupported_switch,'$'+switch);
end;
end;
end;
end;