Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gcc.c-torture/compile/20001205-1.c @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
/* { dg-do assemble } */ static inline unsigned long rdfpcr(void) { unsigned long tmp, ret; __asm__ ("" : "=r"(tmp), "=r"(ret)); return ret; } static inline unsigned long swcr_update_status(unsigned long swcr, unsigned long fpcr) { swcr &= ~0x7e0000ul; swcr |= (fpcr >> 3) & 0x7e0000ul; return swcr; } unsigned long osf_getsysinfo(unsigned long flags) { unsigned long w; w = swcr_update_status(flags, rdfpcr()); return w; }