Jelajahi Sumber

* small m68k cleanups

git-svn-id: trunk@8500 -
florian 18 tahun lalu
induk
melakukan
abfdda6129
2 mengubah file dengan 3 tambahan dan 5 penghapusan
  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');