mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-19 00:24:45 +00:00
56 lines
1.3 KiB
C
56 lines
1.3 KiB
C
|
#ifndef _X86INTRIN_H_INCLUDED
|
||
|
#error "Never use <pconfigintrin.h> directly; include <x86intrin.h> instead."
|
||
|
#endif
|
||
|
|
||
|
#ifndef _PCONFIGINTRIN_H_INCLUDED
|
||
|
#define _PCONFIGINTRIN_H_INCLUDED
|
||
|
|
||
|
#ifndef __PCONFIG__
|
||
|
#pragma GCC push_options
|
||
|
#pragma GCC target("pconfig")
|
||
|
#define __DISABLE_PCONFIG__
|
||
|
#endif /* __PCONFIG__ */
|
||
|
|
||
|
#define __pconfig_b(leaf, b, retval) \
|
||
|
__asm__ __volatile__ ("pconfig\n\t" \
|
||
|
: "=a" (retval) \
|
||
|
: "a" (leaf), "b" (b) \
|
||
|
: "cc")
|
||
|
|
||
|
#define __pconfig_generic(leaf, b, c, d, retval) \
|
||
|
__asm__ __volatile__ ("pconfig\n\t" \
|
||
|
: "=a" (retval), "=b" (b), "=c" (c), "=d" (d) \
|
||
|
: "a" (leaf), "b" (b), "c" (c), "d" (d) \
|
||
|
: "cc")
|
||
|
|
||
|
extern __inline unsigned int
|
||
|
__attribute__((__gnu_inline__, __always_inline__, __artificial__))
|
||
|
_pconfig_u32 (const unsigned int __L, size_t __D[])
|
||
|
{
|
||
|
enum __pconfig_type
|
||
|
{
|
||
|
__PCONFIG_KEY_PROGRAM = 0x01,
|
||
|
};
|
||
|
|
||
|
unsigned int __R = 0;
|
||
|
|
||
|
if (!__builtin_constant_p (__L))
|
||
|
__pconfig_generic (__L, __D[0], __D[1], __D[2], __R);
|
||
|
else switch (__L)
|
||
|
{
|
||
|
case __PCONFIG_KEY_PROGRAM:
|
||
|
__pconfig_b (__L, __D[0], __R);
|
||
|
break;
|
||
|
default:
|
||
|
__pconfig_generic (__L, __D[0], __D[1], __D[2], __R);
|
||
|
}
|
||
|
return __R;
|
||
|
}
|
||
|
|
||
|
#ifdef __DISABLE_PCONFIG__
|
||
|
#undef __DISABLE_PCONFIG__
|
||
|
#pragma GCC pop_options
|
||
|
#endif /* __DISABLE_PCONFIG__ */
|
||
|
|
||
|
#endif /* _PCONFIGINTRIN_H_INCLUDED */
|