freehdl/trunk/declarative_region.patch

   1 --- freehdl-0.0.8.orig/vaul/expr.cc     2007-10-23 22:33:45.000000000 +0300
   2 +++ freehdl-0.0.8/vaul/expr.cc  2018-03-04 17:47:04.703969598 +0200
   3 @@ -2631,6 +2631,9 @@
   4    // XXX - every constant interface thing expect in a subprogram is a
   5    // generic?
   6
   7 +  assert(d);
   8 +  if (!d->declarative_region) return IR_NOT_STATIC;
   9 +  assert(d->declarative_region);
  10    if (!d->declarative_region->is (IR_SUBPROGRAM_DECLARATION))
  11      return IR_GLOBALLY_STATIC;
  12    return IR_NOT_STATIC;