瀏覽代碼

* small m68k cleanups

git-svn-id: trunk@8500 -
florian 18 年之前
父節點
當前提交
abfdda6129
共有 2 個文件被更改,包括 3 次插入5 次删除
  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');