// PR c++/4460// Test that the cleanup for fully-constructed subobjects when a// constructor throws gets the right address for a virtual base.// { dg-do run }int r;void *p;struct VBase{  virtual void f () {}  VBase() { p = this; }  ~VBase() { if (p != this) r = 1; }};struct  StreamBase {  virtual ~StreamBase() {}};struct  Stream : public virtual VBase, public StreamBase{  Stream() {}  virtual ~Stream() {} };struct DerivedStream : public Stream{  DerivedStream() { throw 1; }};int main() {  try    {       DerivedStream str;    }  catch (...) { }  return r;}