cpuh.inc 911 B

123456789101112131415161718192021222324252627
  1. {
  2. This file is part of the Free Pascal run time library.
  3. Copyright (c) 2016 by the Free Pascal development team.
  4. CPU specific system unit header file
  5. See the file COPYING.FPC, included in this distribution,
  6. for details about the copyright.
  7. This program is distributed in the hope that it will be useful,
  8. but WITHOUT ANY WARRANTY; without even the implied warranty of
  9. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  10. **********************************************************************}
  11. const
  12. { will be detected at startup }
  13. { 0=8086/8088/80186/80188/NEC V20/NEC V30, 1=80286, 2=80386 or newer }
  14. Test8086 : byte = 0; public name '__Test8086';
  15. { will be detected at startup }
  16. { 0=NO FPU, 1=8087, 2=80287, 3=80387 or newer }
  17. Test8087 : byte = 0;
  18. { will be detected at startup }
  19. has_sse_support : boolean = false;
  20. has_mmx_support : boolean = false;