URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [pr26350.c] - Rev 149
Go to most recent revision | Compare with Previous | Blame | View Log
/* { dg-do compile { target { powerpc*-*-darwin* powerpc*-*-aix* rs6000-*-* powerpc*-*-linux* } } } */ /* { dg-options "-O2 -mlong-double-128 -fpic" } */ typedef int int32_t __attribute__ ((__mode__ (__SI__))); typedef unsigned char uint8_t; typedef unsigned int uint32_t; typedef struct REGS REGS; typedef union { uint32_t F; } FW; typedef union { struct { FW L; } F; } DW; typedef struct _PSW { DW ia; } PSW; struct REGS { PSW psw; DW cr[16]; }; struct ebfp { long double v; }; void s390_convert_fix32_to_bfp_ext_reg (REGS *regs) { struct ebfp op1; int32_t op2; ((regs))->psw.ia.F.L.F += (4); if(!((regs)->cr[(0)].F.L.F & 0x00040000)) op1.v = (long double)op2; put_ebfp(&op1); }
Go to most recent revision | Compare with Previous | Blame | View Log