123456789101112131415161718192021222324252627 |
- {
- This file is part of the Free Pascal run time library.
- Copyright (c) 2016 by the Free Pascal development team.
- CPU specific system unit header file
- 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.
- **********************************************************************}
- const
- { Always i386 or newer }
- Test8086 : byte = 2;
- { Always 387 or newer. Emulated if needed. }
- Test8087 : byte = 3;
- { will be detected at startup }
- has_sse_support : boolean = false;
- has_sse2_support : boolean = false;
- has_sse3_support : boolean = false;
- has_mmx_support : boolean = false;
|