OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.dg/] [opt/] [reg-stack.C] - Rev 774

Go to most recent revision | Compare with Previous | Blame | View Log

// PR target/6087
// The code that moves around insns emitted by reg-stack to cope with
// exception edges lost the REG_DEAD note indicating a pop.  Which
// eventually fills up the register stack resulting in Z == NaN.

// { dg-do run }
// { dg-options "-O" }

extern "C" void abort ();

struct Base
{
  virtual ~Base() {}
};

struct Foo : public Base
{
  Foo ();
};

double x = 3;
double y = 4;

double bar ()
{
  double z = x*x+y*y;
  if (z != 25.0)
    throw 1;
  return z;
}

Foo::Foo ()
{
  bar ();
}

int main ()
{
  try {
    int i;
    for (i = 0; i < 10; ++i)
      new Foo;
  } catch (...) {
    abort ();
  }
  return 0;
}

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.