equal
deleted
inserted
replaced
426 if (NULL != ref_spec) { |
426 if (NULL != ref_spec) { |
427 current_basetype_decl = search_base_type_c::get_basetype_decl(ref_spec->type_name); |
427 current_basetype_decl = search_base_type_c::get_basetype_decl(ref_spec->type_name); |
428 current_basetype_id = search_base_type_c::get_basetype_id (ref_spec->type_name); |
428 current_basetype_id = search_base_type_c::get_basetype_id (ref_spec->type_name); |
429 } |
429 } |
430 |
430 |
431 /* ########### WARNING ########################################################## */ |
|
432 /* The following two lines DO NOT belong here. It is just a temporary measure until I get the chance |
|
433 * to clean this up, and move it to fill/narrow candidate datatypes in stage 3 |
|
434 */ |
|
435 symbol->datatype = current_basetype_decl; |
|
436 symbol->exp->datatype = ref_spec; |
|
437 |
|
438 return NULL; |
431 return NULL; |
439 } |
432 } |
440 |
433 |
441 |
434 |
442 /* SYM_REF1(deref_operator_c, exp) --> an extension to the IEC 61131-3 standard - based on the IEC 61131-3 v3 standard. Returns address of the varible! */ |
435 /* SYM_REF1(deref_operator_c, exp) --> an extension to the IEC 61131-3 standard - based on the IEC 61131-3 v3 standard. Returns address of the varible! */ |
452 if (NULL != ref_spec) { |
445 if (NULL != ref_spec) { |
453 current_basetype_decl = search_base_type_c::get_basetype_decl(ref_spec->type_name); |
446 current_basetype_decl = search_base_type_c::get_basetype_decl(ref_spec->type_name); |
454 current_basetype_id = search_base_type_c::get_basetype_id (ref_spec->type_name); |
447 current_basetype_id = search_base_type_c::get_basetype_id (ref_spec->type_name); |
455 } |
448 } |
456 |
449 |
457 /* ########### WARNING ########################################################## */ |
450 return NULL; |
458 /* The following two lines DO NOT belong here. It is just a temporary measure until I get the chance |
451 } |
459 * to clean this up, and move it to fill/narrow candidate datatypes in stage 3 |
|
460 */ |
|
461 symbol->datatype = current_basetype_decl; |
|
462 symbol->exp->datatype = ref_spec; |
|
463 |
|
464 return NULL; |
|
465 } |
|