Lines 2631-2636
Link Here
|
2631 |
// XXX - every constant interface thing expect in a subprogram is a |
2631 |
// XXX - every constant interface thing expect in a subprogram is a |
2632 |
// generic? |
2632 |
// generic? |
2633 |
|
2633 |
|
|
|
2634 |
assert(d); |
2635 |
if (!d->declarative_region) return IR_NOT_STATIC; |
2636 |
assert(d->declarative_region); |
2634 |
if (!d->declarative_region->is (IR_SUBPROGRAM_DECLARATION)) |
2637 |
if (!d->declarative_region->is (IR_SUBPROGRAM_DECLARATION)) |
2635 |
return IR_GLOBALLY_STATIC; |
2638 |
return IR_GLOBALLY_STATIC; |
2636 |
return IR_NOT_STATIC; |
2639 |
return IR_NOT_STATIC; |