| 1332 | // |
| 1333 | |
| 1334 | static act* par_array_element() |
| 1335 | { |
| 1336 | if (!MSC_find_symbol(gpreGlob.token_global.tok_symbol, SYM_context)) |
| 1337 | return NULL; |
| 1338 | |
| 1339 | gpre_ctx* context; |
| 1340 | gpre_fld* field = EXP_field(&context); |
| 1341 | gpre_req* request = context->ctx_request; |
| 1342 | gpre_nod* node = EXP_array(request, field, false, false); |
| 1343 | ref* reference = MSC_reference(&request->req_references); |
| 1344 | reference->ref_expr = node; |
| 1345 | gpre_fld* element = field->fld_array; |
| 1346 | reference->ref_field = element; |
| 1347 | element->fld_symbol = field->fld_symbol; |
| 1348 | reference->ref_context = context; |
| 1349 | node->nod_arg[0] = (gpre_nod*) reference; |
| 1350 | |
| 1351 | act* action = MSC_action(request, ACT_variable); |
| 1352 | action->act_object = reference; |
| 1353 | |
| 1354 | return action; |
| 1355 | } |
| 1356 | |
| 1357 | |
| 1358 | //____________________________________________________________ |
no test coverage detected