123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475 |
- {
- 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 = extended;
- {$if FPC_FULLVERSION>20700}
- {$ifdef FPC_HAS_TYPE_EXTENDED}
- bestrealrec = TExtended80Rec;
- {$else}
- bestrealrec = TDoubleRec;
- {$endif}
- {$endif FPC_FULLVERSION>20700}
- 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
- );
- tcontrollertype =
- (ct_none
- );
- Const
- { Is there support for dealing with multiple microcontrollers available }
- { for this platform? }
- ControllerSupport = false;
- { We know that there are fields after sramsize
- but we don't care about this warning }
- {$PUSH}
- {$WARN 3177 OFF}
- embedded_controllers : array [tcontrollertype] of tcontrollerdatatype =
- (
- (controllertypestr:''; controllerunitstr:''; flashbase:0; flashsize:0; srambase:0; sramsize:0));
- {$POP}
- cputypestr : array[tcputype] of string[8] = ('none');
- fputypestr : array[tfputype] of string[6] = ('none','soft');
- Implementation
- end.
|