Refactor: C: Compute and use value_type early

ubaidsk · ubaidsk · commit f5310c1dc9f6 · 2023-05-15T14:52:08.000+05:30
diff --git a/src/libasr/codegen/asr_to_c.cpp b/src/libasr/codegen/asr_to_c.cpp
@@ -1133,10 +1133,10 @@ R"(
         }
         for (size_t i=0; i<x.n_values; i++) {
             this->visit_expr(*x.m_values[i]);
-            if( ASRUtils::is_array(ASRUtils::expr_type(x.m_values[i])) ) {
+            ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_values[i]);
+            if( ASRUtils::is_array(value_type) ) {
                 src += "->data";
             }
-            ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_values[i]);
             if (value_type->type == ASR::ttypeType::List ||
                 value_type->type == ASR::ttypeType::Tuple) {
                 tmp_gen += "\"";

Original file line number	Diff line number	Diff line change
`@@ -1133,10 +1133,10 @@ R"(`
`1133`	`1133`	`}`
`1134`	`1134`	`for (size_t i=0; i<x.n_values; i++) {`
`1135`	`1135`	`this->visit_expr(*x.m_values[i]);`
`1136`		`- if( ASRUtils::is_array(ASRUtils::expr_type(x.m_values[i])) ) {`
	`1136`	`+ ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_values[i]);`
	`1137`	`+ if( ASRUtils::is_array(value_type) ) {`
`1137`	`1138`	`src += "->data";`
`1138`	`1139`	`}`
`1139`		`- ASR::ttype_t* value_type = ASRUtils::expr_type(x.m_values[i]);`
`1140`	`1140`	`if (value_type->type == ASR::ttypeType::List \|\|`
`1141`	`1141`	`value_type->type == ASR::ttypeType::Tuple) {`
`1142`	`1142`	`tmp_gen += "\"";`