Browse Source

* small m68k cleanups

git-svn-id: trunk@8500 -
florian 18 years ago
parent
commit
abfdda6129
2 changed files with 3 additions and 5 deletions
  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');