Ver código fonte

* small m68k cleanups

git-svn-id: trunk@8500 -
florian 18 anos atrás
pai
commit
abfdda6129
2 arquivos alterados com 3 adições e 5 exclusões
  1. 2 2
      compiler/m68k/cpuinfo.pas
  2. 1 3
      compiler/options.pas

+ 2 - 2
compiler/m68k/cpuinfo.pas

@@ -1,7 +1,7 @@
 {
 {
     Copyright (c) 1998-2002 by the Free Pascal development team
     Copyright (c) 1998-2002 by the Free Pascal development team
 
 
-    Basic Processor information for the PowerPC
+    Basic Processor information for the m68k
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
     for details about the copyright.
@@ -20,7 +20,7 @@ Interface
     globtype;
     globtype;
 
 
 Type
 Type
-   bestreal = real;
+   bestreal = double;
    ts32real = single;
    ts32real = single;
    ts64real = double;
    ts64real = double;
    ts80real = extended;
    ts80real = extended;

+ 1 - 3
compiler/options.pas

@@ -2146,9 +2146,6 @@ begin
   def_system_macro('CPU87');
   def_system_macro('CPU87');
   def_system_macro('CPU386');
   def_system_macro('CPU386');
 {$endif}
 {$endif}
-{$ifdef m68k}
-  def_system_macro('CPU68');
-{$endif}
 
 
 { new processor stuff }
 { new processor stuff }
 {$ifdef i386}
 {$ifdef i386}
@@ -2160,6 +2157,7 @@ begin
   def_system_macro('FPC_HAS_RESOURCES');
   def_system_macro('FPC_HAS_RESOURCES');
 {$endif}
 {$endif}
 {$ifdef m68k}
 {$ifdef m68k}
+  def_system_macro('CPU68');
   def_system_macro('CPU68K');
   def_system_macro('CPU68K');
   def_system_macro('CPUM68K');
   def_system_macro('CPUM68K');
   def_system_macro('CPU32');
   def_system_macro('CPU32');