cpuinfo.pas 811 B

12345678910111213141516171819202122232425262728293031323334353637383940
  1. {
  2. $Id$
  3. This file is part of the Free Pascal run time library.
  4. Copyright (c) 1999 by the Free Pascal development team
  5. Basic Processor information
  6. See the file COPYING.FPC, included in this distribution,
  7. for details about the copyright.
  8. This program is distributed in the hope that it will be useful,
  9. but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11. **********************************************************************}
  12. Unit CPUInfo;
  13. Interface
  14. Type
  15. {$ifdef FPC}
  16. AWord = dword;
  17. {$else FPC}
  18. AWord = Longint;
  19. {$endif FPC}
  20. Const
  21. { Size of native extended type }
  22. extended_size = 10;
  23. Implementation
  24. end.
  25. {
  26. $Log$
  27. Revision 1.1 1999-08-04 11:13:38 florian
  28. + initial revision
  29. }