+ set FPU* define properly

git-svn-id: trunk@6785 -

compiler/options.pas

@@ -2059,7 +2059,6 @@ begin
 {$endif}
 {$ifdef arm}
   def_system_macro('CPUARM');
-  def_system_macro('FPUFPA');
   def_system_macro('CPU32');
   def_system_macro('FPC_HAS_TYPE_DOUBLE');
   def_system_macro('FPC_HAS_TYPE_SINGLE');
@@ -2159,6 +2158,8 @@ begin
 
   { CPU Define }
   def_system_macro('CPU'+Cputypestr[init_settings.cputype]);
+
+  def_system_macro('FPU'+fputypestr[init_settings.fputype]);
 { Check file to compile }
   if param_file='' then
    begin

compiler/scandir.pas

@@ -383,10 +383,10 @@ implementation
     procedure dir_fputype;
       begin
         current_scanner.skipspace;
-        { current_scanner.undef_macro('FPU'+fputypestr[current_settings.fputype]); }
+        undef_system_macro('FPU'+fputypestr[current_settings.fputype]);
         if not(SetFPUType(upper(current_scanner.readcomment),current_settings.fputype)) then
           comment(V_Error,'Illegal FPU type');
-        { current_scanner.def_macro('FPU'+fputypestr[current_settings.fputype]); }
+        def_system_macro('FPU'+fputypestr[current_settings.fputype]);
      end;
 
     procedure dir_goto;