@@ -1084,7 +1084,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
10841084 ASR::symbol_t * variable_sym = ASR::down_cast<ASR::symbol_t >(variable_asr);
10851085 current_scope->add_symbol (dummy_ret_name, variable_sym);
10861086 ASR::expr_t * variable_var = ASRUtils::EXPR (ASR::make_Var_t (al, expr->base .loc , variable_sym));
1087- return ASR::make_Assignment_t (al, expr->base .loc , variable_var, expr, nullptr , false );
1087+ return ASRUtils::make_Assignment_t_util (al, expr->base .loc , variable_var, expr, nullptr , false , false );
10881088 }
10891089
10901090 // Function to create appropriate call based on symbol type. If it is external
@@ -2609,8 +2609,8 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
26092609 is_runtime_expression) && !is_variable_const) {
26102610 ASR::expr_t * v_expr = ASRUtils::EXPR (ASR::make_Var_t (al, loc, v_sym));
26112611 cast_helper (v_expr, init_expr, true );
2612- ASR::asr_t * assign = ASR::make_Assignment_t (al, loc, v_expr,
2613- init_expr, nullptr , false );
2612+ ASR::asr_t * assign = ASRUtils::make_Assignment_t_util (al, loc, v_expr,
2613+ init_expr, nullptr , false , false );
26142614 if (current_body) {
26152615 current_body->push_back (al, ASRUtils::STMT (assign));
26162616 } else if (ASR::is_a<ASR::List_t>(*type) || is_runtime_expression) {
@@ -2705,7 +2705,7 @@ class CommonVisitor : public AST::BaseVisitor<StructType> {
27052705 dims.push_back (al, dim);
27062706 ASR::ttype_t * type = ASRUtils::make_Array_t_util (al, loc,
27072707 ASRUtils::expr_type (lbs[0 ]), dims.p , dims.size (), ASR::abiType::Source,
2708- false , ASR::array_physical_typeType::PointerToDataArray , true );
2708+ false , ASR::array_physical_typeType::PointerArray , true );
27092709 return ASRUtils::EXPR (ASRUtils::make_ArrayConstructor_t_util (al,
27102710 loc, lbs.p , lbs.size (), type,
27112711 ASR::arraystorageType::RowMajor));
@@ -5706,8 +5706,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
57065706 x.base .base .loc );
57075707 }
57085708 tmp = nullptr ;
5709- tmp_vec.push_back (ASR::make_Assignment_t (al, x.base .base .loc , target,
5710- tmp_value, nullptr , false ));
5709+ tmp_vec.push_back (ASRUtils::make_Assignment_t_util (al, x.base .base .loc , target,
5710+ tmp_value, nullptr , false , false ));
57115711 continue ;
57125712 }
57135713 if ( ASRUtils::is_const (target) ) {
@@ -5748,8 +5748,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
57485748 throw SemanticError (" Only Class constructor is allowed in the object assignment for now" , target->base .loc );
57495749 }
57505750 }
5751- tmp_vec.push_back (ASR::make_Assignment_t (al, x.base .base .loc , target, tmp_value,
5752- overloaded, false ));
5751+ tmp_vec.push_back (ASRUtils::make_Assignment_t_util (al, x.base .base .loc , target, tmp_value,
5752+ overloaded, false , false ));
57535753 if ( target->type == ASR::exprType::Var &&
57545754 tmp_value->type == ASR::exprType::StructConstructor ) {
57555755 AST::Call_t* call = AST::down_cast<AST::Call_t>(x.m_value );
@@ -6042,9 +6042,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
60426042 current_scope->add_symbol (tmp_assign_name, tmp_assign_variable_sym);
60436043
60446044 // Assign the Subscript expr to temporary variable
6045- ASR::asr_t * assign = ASR::make_Assignment_t (al, x.base .base .loc ,
6045+ ASR::asr_t * assign = ASRUtils::make_Assignment_t_util (al, x.base .base .loc ,
60466046 ASRUtils::EXPR (ASR::make_Var_t (al, x.base .base .loc , tmp_assign_variable_sym)),
6047- target, nullptr , false );
6047+ target, nullptr , false , false );
60486048 if (current_body != nullptr ) {
60496049 current_body->push_back (al, ASRUtils::STMT (assign));
60506050 } else {
@@ -6080,9 +6080,9 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
60806080 current_scope->add_symbol (tmp_assign_name, tmp_assign_variable_sym);
60816081
60826082 // Assign the List expr to temporary variable
6083- ASR::asr_t * assign = ASR::make_Assignment_t (al, x.base .base .loc ,
6083+ ASR::asr_t * assign = ASRUtils::make_Assignment_t_util (al, x.base .base .loc ,
60846084 ASRUtils::EXPR (ASR::make_Var_t (al, x.base .base .loc , tmp_assign_variable_sym)),
6085- target, nullptr , false );
6085+ target, nullptr , false , false );
60866086 if (current_body != nullptr ) {
60876087 current_body->push_back (al, ASRUtils::STMT (assign));
60886088 } else {
@@ -6135,7 +6135,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
61356135 al, x.base .base .loc , loop_src_var,
61366136 ASRUtils::EXPR (explicit_iter_var), ASRUtils::get_contained_type (loop_src_var_ttype), nullptr );
61376137 }
6138- auto loop_target_assignment = ASR::make_Assignment_t (al, x.base .base .loc , target, ASRUtils::EXPR (loop_src_var_element), nullptr , false );
6138+ auto loop_target_assignment = ASRUtils::make_Assignment_t_util (al, x.base .base .loc , target,
6139+ ASRUtils::EXPR (loop_src_var_element), nullptr , false , false );
61396140 body.push_back (al, ASRUtils::STMT (loop_target_assignment));
61406141
61416142 head.m_v = ASRUtils::EXPR (explicit_iter_var);
@@ -6260,7 +6261,7 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
62606261
62616262 ASR::stmt_t * a_overloaded = nullptr ;
62626263 ASR::expr_t *tmp2 = ASR::down_cast<ASR::expr_t >(tmp);
6263- tmp = ASR::make_Assignment_t (al, x.base .base .loc , left, tmp2, a_overloaded, false );
6264+ tmp = ASRUtils::make_Assignment_t_util (al, x.base .base .loc , left, tmp2, a_overloaded, false , false );
62646265
62656266 }
62666267
@@ -7244,8 +7245,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
72447245 }
72457246 cast_helper (target, value, true );
72467247 ASR::stmt_t *overloaded=nullptr ;
7247- tmp = ASR::make_Assignment_t (al, x.base .base .loc , target, value,
7248- overloaded, false );
7248+ tmp = ASRUtils::make_Assignment_t_util (al, x.base .base .loc , target, value,
7249+ overloaded, false , false );
72497250 // if( ASR::is_a<ASR::Const_t>(*ASRUtils::symbol_type(return_var)) ) {
72507251 // ASR::Variable_t* return_variable = ASR::down_cast<ASR::Variable_t>(return_var);
72517252 // return_variable->m_symbolic_value = value;
@@ -7346,8 +7347,8 @@ class BodyVisitor : public CommonVisitor<BodyVisitor> {
73467347 ASR::expr_t * cptr = ASRUtils::EXPR (tmp);
73477348 ASR::asr_t * pp = ASR::make_PointerToCPtr_t (al, x.base .base .loc , pptr,
73487349 ASRUtils::expr_type (cptr), nullptr );
7349- return ASR::make_Assignment_t (al, x.base .base .loc ,
7350- cptr, ASR::down_cast<ASR::expr_t >(pp), nullptr , false );
7350+ return ASRUtils::make_Assignment_t_util (al, x.base .base .loc ,
7351+ cptr, ASR::down_cast<ASR::expr_t >(pp), nullptr , false , false );
73517352 }
73527353
73537354 void handle_string_attributes (ASR::expr_t *s_var,
@@ -8896,7 +8897,7 @@ we will have to use something else.
88968897 make_Integer_t, 0 , 4 , dim.loc );
88978898 dims.push_back (al, dim);
88988899 type = ASRUtils::make_Array_t_util (al, x.base .base .loc , type, dims.p , dims.size (),
8899- ASR::abiType::Source, false , ASR::array_physical_typeType::PointerToDataArray , true );
8900+ ASR::abiType::Source, false , ASR::array_physical_typeType::PointerArray , true );
89008901 for ( size_t i = 0 ; i < n_args; i++ ) {
89018902 m_args[i] = CastingUtil::perform_casting (m_args[i], ASRUtils::type_get_past_array (type),
89028903 al, x.base .base .loc );
0 commit comments