RTEMS  5.0.0
Data Structures | Macros | Typedefs | Functions | Variables
sse_test.c File Reference

Test FPU/SSE Context Save and Restore. More...

#include <inttypes.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <math.h>
#include <signal.h>
#include <ucontext.h>

Data Structures

struct  Context_Control_sse
 

Macros

#define SSE_TEST_IRQ   10
 
#define MXCSR_FZ   (1<<15) /* Flush to zero */
 
#define MXCSR_RC(x)   (((x)&3)<<13) /* Rounding ctrl */
 
#define MXCSR_PM   (1<<12) /* Precision msk */
 
#define MXCSR_UM   (1<<11) /* Underflow msk */
 
#define MXCSR_OM   (1<<10) /* Overflow msk */
 
#define MXCSR_ZM   (1<< 9) /* Divbyzero msk */
 
#define MXCSR_DM   (1<< 8) /* Denormal msk */
 
#define MXCSR_IM   (1<< 7) /* Invalidop msk */
 
#define MXCSR_DAZ   (1<< 6) /* Denorml are 0 */
 
#define MXCSR_PE   (1<< 5) /* Precision flg */
 
#define MXCSR_UE   (1<< 4) /* Underflow flg */
 
#define MXCSR_OE   (1<< 3) /* Overflow flg */
 
#define MXCSR_ZE   (1<< 2) /* Divbyzero flg */
 
#define MXCSR_DE   (1<< 1) /* Denormal flg */
 
#define MXCSR_IE   (1<< 0) /* Invalidop flg */
 
#define MXCSR_ALLM   (MXCSR_PM | MXCSR_UM | MXCSR_OM | MXCSR_ZM | MXCSR_DM | MXCSR_IM)
 
#define MXCSR_ALLE   (MXCSR_PE | MXCSR_UE | MXCSR_OE | MXCSR_ZE | MXCSR_DE | MXCSR_IE)
 
#define FPSR_B   (1<<15) /* FPU busy */
 
#define FPSR_C3   (1<<14) /* Cond code C3 */
 
#define FPSR_TOP(x)   (((x)&7)<<11) /* TOP */
 
#define FPSR_C2   (1<<10) /* Cond code C2 */
 
#define FPSR_C1   (1<< 9) /* Cond code C1 */
 
#define FPSR_C0   (1<< 8) /* Cond code C0 */
 
#define FPSR_ES   (1<< 7) /* Error summary */
 
#define FPSR_SF   (1<< 6) /* Stack fault */
 
#define FPSR_PE   (1<< 5) /* Precision flg */
 
#define FPSR_UE   (1<< 4) /* Underflow flg */
 
#define FPSR_OE   (1<< 3) /* Overflow flg */
 
#define FPSR_ZE   (1<< 2) /* Divbyzero flg */
 
#define FPSR_DE   (1<< 1) /* Denormal flg */
 
#define FPSR_IE   (1<< 0) /* Invalidop flg */
 
#define FPCW_X   (1<<12) /* Infinity ctrl */
 
#define FPCW_RC(x)   (((x)&3)<<10) /* Rounding ctrl */
 
#define FPCW_PC(x)   (((x)&3)<< 8) /* Precision ctl */
 
#define FPCW_PM   (1<< 5) /* Precision msk */
 
#define FPCW_UM   (1<< 4) /* Underflow msk */
 
#define FPCW_OM   (1<< 3) /* Overflow msk */
 
#define FPCW_ZM   (1<< 2) /* Divbyzero msk */
 
#define FPCW_DM   (1<< 1) /* Denormal msk */
 
#define FPCW_IM   (1<< 0) /* Invalidop msk */
 
#define FPCW_ALLM   (FPCW_PM | FPCW_UM | FPCW_OM | FPCW_ZM | FPCW_DM | FPCW_IM)
 
#define FPSR_ALLE   (FPSR_ES | FPSR_SF | FPSR_PE | FPSR_UE | FPSR_OE | FPSR_ZE | FPSR_DE | FPSR_IE)
 
#define FPUCLOBBER
 
#define SSECLOBBER
 
#define H08   "0x%02"PRIx8
 
#define H16   "0x%04"PRIx16
 
#define H32   "0x%08"PRIx32
 
#define F16   "mismatch ("H16" != "H16")\n"
 
#define FLDCMP(fld, fmt)
 
#define FLTCMP(i)
 
#define XMMCMP(i)
 
#define FP_EXC   0
 
#define IRQ_EXC   1
 
#define SSE_EXC   -1
 
#define __INTRAISE(x)   " int $32+"#x" \n"
 
#define INTRAISE(x)   __INTRAISE(x)
 
#define SSE_TEST_HP_FAILED   1
 
#define SSE_TEST_FSPR_FAILED   2
 
#define SSE_TEST_CTXTCMP_FAILED   4
 
#define MKCASE(X)   case FPE_##X: msg="FPE_"#X; break;
 
#define CLRXMM(i)   __asm__ volatile("pxor %%xmm"#i", %%xmm"#i:::"xmm"#i)
 

Typedefs

typedef uint8_t __v8 __attribute__((vector_size(16)))
 

Functions

struct Context_Control_sse __attribute__ ((aligned(16)))
 
void fp_st1 (uint8_t(*p_dst)[10], double v)
 
void fp_st (Context_Control_sse *p_ctxt, int i, double v)
 
double fp_ld1 (uint8_t(*p_src)[10])
 
double fp_ld (Context_Control_sse *p_ctxt, int i)
 
void all_clobber (uint32_t v1, uint32_t v2)
 
 __asm__ ("all_clobber: \ " finit \" " movq 0(%esp), %xmm0 \" " punpcklqdq %xmm0, %xmm0 \" " movdqa %xmm0, %xmm1 \" " movdqa %xmm0, %xmm2 \" " movdqa %xmm0, %xmm3 \" " movdqa %xmm0, %xmm4 \" " movdqa %xmm0, %xmm5 \" " movdqa %xmm0, %xmm6 \" " movdqa %xmm0, %xmm7 \" " ret \")
 
void init_ctxt (Context_Control_sse *p_ctxt)
 
 __asm__ ("init_ctxt: \ " finit \" " mov 4(%esp), %eax\" " fxsave(%eax) \" " fwait \" " ret \")
 
 __asm__ ("do_raise: \ " fwait \" " test %eax, %eax \" " je 2f \" " jl 1f \" " jmp 2f \" "1:sqrtps %xmm0, %xmm0 \" "2: \" " ret \")
 
int main (int argc, char **argv)
 
uint32_t mfcr4 ()
 
void mtcr4 (uint32_t rval)
 
uint32_t mfmxcsr ()
 
void mtmxcsr (uint32_t rval)
 
float sseraise ()
 

Variables

uint16_t fcw
 
uint16_t fsw
 
uint8_t ftw
 
uint8_t res_1
 
uint16_t fop
 
uint32_t fpu_ip
 
uint16_t cs
 
uint16_t res_2
 
uint32_t fpu_dp
 
uint16_t ds
 
uint16_t res_3
 
uint32_t mxcsr
 
uint32_t mxcsr_mask
 
struct {
   uint8_t   fpreg [10]
 
   uint8_t   res_4 [6]
 
fp_mmregs [8]
 
uint8_t xmmregs [8][16]
 
uint8_t res_5 [224]
 
int sse_test_debug = 0
 

Detailed Description

Test FPU/SSE Context Save and Restore.

Macro Definition Documentation

◆ FLDCMP

#define FLDCMP (   fld,
  fmt 
)
Value:
if ( a->fld != b->fld ) { \
rval = 1; \
if ( !quiet ) \
fprintf(stderr,#fld" mismatch ("fmt" != "fmt")\n",a->fld, b->fld); \
}

◆ FLTCMP

#define FLTCMP (   i)
Value:
do { \
if ( ( (a->ftw ^ b->ftw) & (1<<i)) \
|| ( (a->ftw & b->ftw & (1<<i)) && \
memcmp(a->fp_mmregs[i].fpreg, \
b->fp_mmregs[i].fpreg, \
sizeof(a->fp_mmregs[i].fpreg)) \
) \
) { \
rval = 1; \
if ( !quiet ) { \
double fa = fp_ld(a, i); \
double fb = fp_ld(b, i); \
if ( ((a->ftw ^ b->ftw) & (1<<i)) ) \
fprintf(stderr,"fpreg[%u] TAG mismatch (%u != %u)\n",i,(a->ftw & (1<<i)) ? 1 : 0,(b->ftw & (1<<i)) ? 1 : 0); \
else \
fprintf(stderr,"fpreg[%u] mismatch (%g != %g)\n",i,fa,fb); \
} \
} \
} while (0)

◆ FPUCLOBBER

#define FPUCLOBBER
Value:
"st","st(1)","st(2)","st(3)", \
"st(4)","st(5)","st(6)","st(7)",\
"fpsr","fpcr"

◆ SSECLOBBER

#define SSECLOBBER
Value:
"xmm0","xmm1","xmm2","xmm3", \
"xmm4","xmm5","xmm6","xmm7"

◆ XMMCMP

#define XMMCMP (   i)
Value:
do { \
if ( memcmp(&a->xmmregs[i], \
&b->xmmregs[i], \
sizeof(a->xmmregs[i])) \
) { \
rval = 1; \
if ( !quiet ) { \
int _jj; \
fprintf(stderr,"xmmreg[%u] mismatch:\n", i); \
fprintf(stderr," "); \
for (_jj=0; _jj<16; _jj++) \
fprintf(stderr,"%02x ",a->xmmregs[i][_jj]); \
fprintf(stderr,"\n !=\n"); \
fprintf(stderr," "); \
for (_jj=0; _jj<16; _jj++) \
fprintf(stderr,"%02x ",b->xmmregs[i][_jj]); \
fprintf(stderr,"\n"); \
} \
} \
} while (0)