| 532 | // |
| 533 | |
| 534 | void EXP_post_array( ref* reference) |
| 535 | { |
| 536 | gpre_fld* field = reference->ref_field; |
| 537 | |
| 538 | if (!field->fld_array_info) |
| 539 | return; |
| 540 | |
| 541 | reference->ref_flags |= REF_fetch_array; |
| 542 | |
| 543 | gpre_ctx* context = reference->ref_context; |
| 544 | gpre_req* request = context->ctx_request; |
| 545 | ref* array_reference = MSC_reference(&request->req_array_references); |
| 546 | array_reference->ref_context = context; |
| 547 | array_reference->ref_field = field; |
| 548 | array_reference->ref_level = request->req_level; |
| 549 | field->fld_array_info->ary_ident = CMP_next_ident(); |
| 550 | |
| 551 | blb* blob = (blb*) MSC_alloc(BLB_LEN); |
| 552 | blob->blb_symbol = field->fld_symbol; |
| 553 | blob->blb_reference = reference; |
| 554 | |
| 555 | if (!(blob->blb_seg_length = field->fld_seg_length)) |
| 556 | blob->blb_seg_length = 512; |
| 557 | |
| 558 | blob->blb_request = request; |
| 559 | } |
| 560 | |
| 561 | |
| 562 | //____________________________________________________________ |
no test coverage detected