|
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; |
