|
@@ -21,109 +21,7 @@ Interface
|
|
|
globtype;
|
|
globtype;
|
|
|
|
|
|
|
|
Type
|
|
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;
|
|
ts32real = single;
|
|
|
ts64real = double;
|
|
ts64real = double;
|
|
|
ts80real = type extended;
|
|
ts80real = type extended;
|
pierre