URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 149 |
Rev 154 |
/* Test for bogus "variable `x' may be clobbered by longjmp" warnings.
|
/* Test for bogus "variable `x' may be clobbered by longjmp" warnings.
|
Inspired by cse.c:simplify_relational_operation. */
|
Inspired by cse.c:simplify_relational_operation. */
|
|
|
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O -W -Wall" } */
|
/* { dg-options "-O -W -Wall" } */
|
|
|
#include <setjmp.h>
|
#include <setjmp.h>
|
|
|
extern void set_float_handler (jmp_buf *);
|
extern void set_float_handler (jmp_buf *);
|
|
|
#define EQ 0x01
|
#define EQ 0x01
|
#define LT 0x02
|
#define LT 0x02
|
#define GT 0x04
|
#define GT 0x04
|
|
|
int
|
int
|
compare_float (double a, double b) /* { dg-bogus "clobbered" "spurious clobbered warning" } */
|
compare_float (double a, double b) /* { dg-bogus "clobbered" "spurious clobbered warning" } */
|
{
|
{
|
jmp_buf handler;
|
jmp_buf handler;
|
int result;
|
int result;
|
|
|
a += 1.0;
|
a += 1.0;
|
|
|
if (setjmp (handler))
|
if (setjmp (handler))
|
{
|
{
|
set_float_handler (0);
|
set_float_handler (0);
|
return 0;
|
return 0;
|
}
|
}
|
|
|
set_float_handler (&handler);
|
set_float_handler (&handler);
|
if (a == b) result = EQ;
|
if (a == b) result = EQ;
|
else if (a > b) result = LT;
|
else if (a > b) result = LT;
|
else if (a < b) result = GT;
|
else if (a < b) result = GT;
|
else result = 0;
|
else result = 0;
|
set_float_handler (0);
|
set_float_handler (0);
|
return result;
|
return result;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.