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
 
-    Basic Processor information for the PowerPC
+    Basic Processor information for the m68k
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -20,7 +20,7 @@ Interface
     globtype;
 
 Type
-   bestreal = real;
+   bestreal = double;
    ts32real = single;
    ts64real = double;
    ts80real = extended;

+ 1 - 3
compiler/options.pas

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