equal
deleted
inserted
replaced
470 symbol_c* type, |
470 symbol_c* type, |
471 symbol_c* value, |
471 symbol_c* value, |
472 symbol_c* fb_symbol = NULL, |
472 symbol_c* fb_symbol = NULL, |
473 symbol_c* fb_value = NULL, |
473 symbol_c* fb_value = NULL, |
474 bool negative = false) { |
474 bool negative = false) { |
475 unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); |
475 |
476 bool type_is_complex = search_varfb_instance_type->type_is_complex(); |
476 bool type_is_complex = false; |
477 if (vartype == search_var_instance_decl_c::external_vt) |
477 if (fb_symbol == NULL) { |
478 s4o.print(SET_EXTERNAL); |
478 unsigned int vartype = search_varfb_instance_type->get_vartype(symbol); |
479 else if (vartype == search_var_instance_decl_c::located_vt) |
479 type_is_complex = search_varfb_instance_type->type_is_complex(); |
480 s4o.print(SET_LOCATED); |
480 if (vartype == search_var_instance_decl_c::external_vt) |
|
481 s4o.print(SET_EXTERNAL); |
|
482 else if (vartype == search_var_instance_decl_c::located_vt) |
|
483 s4o.print(SET_LOCATED); |
|
484 else |
|
485 s4o.print(SET_VAR); |
|
486 } |
481 else |
487 else |
482 s4o.print(SET_VAR); |
488 s4o.print(SET_VAR); |
483 s4o.print("("); |
489 s4o.print("("); |
484 |
490 |
485 if (fb_symbol != NULL) { |
491 if (fb_symbol != NULL) { |