diff --git a/compiler/generic/cpuinfo.pas b/compiler/generic/cpuinfo.pas
index 893d18759b..28b762da7b 100644
--- a/compiler/generic/cpuinfo.pas
+++ b/compiler/generic/cpuinfo.pas
@@ -21,109 +21,7 @@ Interface
     globtype;
 
 Type
-   bestreal = double;
-   ts32real = single;
-   ts64real = double;
-   ts80real = type extended;
-   ts128real = type extended;
-   ts64comp = comp;
-
-   pbestreal=^bestreal;
-
-   { possible supported processors for this target }
-   tcputype =
-      (cpu_none
-      );
-
-
-Type
-   tfputype =
-     (fpu_none,
-      fpu_soft
-     );
-
-Const
-   cputypestr : array[tcputype] of string[8] = ('none');
-   fputypestr : array[tfputype] of string[6] = ('none','soft');
-
-Implementation
-
-end.
-{
-    Copyright (c) 1998-2002 by the Free Pascal development team
-
-    Basic Processor information for the Generic CPU
-    This file is used by PPUDump program from utils subdirectory.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-Unit CPUInfo;
-
-Interface
-
-  uses
-    globtype;
-
-Type
-   bestreal = double;
-   ts32real = single;
-   ts64real = double;
-   ts80real = type extended;
-   ts128real = type extended;
-   ts64comp = comp;
-
-   pbestreal=^bestreal;
-
-   { possible supported processors for this target }
-   tcputype =
-      (cpu_none
-      );
-
-
-Type
-   tfputype =
-     (fpu_none,
-      fpu_soft
-     );
-
-Const
-   cputypestr : array[tcputype] of string[8] = ('none');
-   fputypestr : array[tfputype] of string[6] = ('none','soft');
-
-Implementation
-
-end.
-{
-    Copyright (c) 1998-2002 by the Free Pascal development team
-
-    Basic Processor information for the Generic CPU
-    This file is used by PPUDump program from utils subdirectory.
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-Unit CPUInfo;
-
-Interface
-
-  uses
-    globtype;
-
-Type
-   bestreal = double;
+   bestreal = extended;
    ts32real = single;
    ts64real = double;
    ts80real = type extended;