done

Author: czgdp1807

build.sh

@@ -5,6 +5,7 @@ set -ex
 python src/libasr/asdl_cpp.py src/lc/LC.asdl src/lc/ast.h
 python src/libasr/asdl_cpp.py src/libasr/ASR.asdl src/libasr/asr.h
 python src/libasr/wasm_instructions_visitor.py
+python src/libasr/intrinsic_func_registry_util_gen.py
 
 (cd src/lc/parser && re2c -W -b tokenizer.re -o tokenizer.cpp)
 (cd src/lc/parser && bison -Wall -d -r all parser.yy)

run_tests.py

@@ -10,7 +10,7 @@
 
 
 def single_test(test, verbose, no_llvm, skip_run_with_dbg, skip_cpptranslate, update_reference,
-                no_color, specific_backends=None, excluded_backends=None):
+                verify_hash, no_color, specific_backends=None, excluded_backends=None):
     filename = test["filename"]
     def is_included(backend):
          return test.get(backend, False) \

src/lc/clang_ast_to_asr.cpp

@@ -1229,8 +1229,8 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
                         index.m_step = range_step.get();
                         array_section_indices.push_back(al, index);
                     } else if( is_all_called ) {
-                        index.m_left = ASRUtils::get_bound<SemanticError>(array, i + 1, "lbound", al);
-                        index.m_right = ASRUtils::get_bound<SemanticError>(array, i + 1, "ubound", al);
+                        index.m_left = PassUtils::get_bound(array, i + 1, "lbound", al);
+                        index.m_right = PassUtils::get_bound(array, i + 1, "ubound", al);
                         index.m_step = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, index.loc, 1,
                             ASRUtils::TYPE(ASR::make_Integer_t(al, index.loc, 4))));
                         array_section_indices.push_back(al, index);
@@ -1252,8 +1252,8 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
             for( ; i < rank; i++ ) {
                 ASR::array_index_t index;
                 index.loc = array->base.loc;
-                index.m_left = ASRUtils::get_bound<SemanticError>(array, i + 1, "lbound", al);
-                index.m_right = ASRUtils::get_bound<SemanticError>(array, i + 1, "ubound", al);
+                index.m_left = PassUtils::get_bound(array, i + 1, "lbound", al);
+                index.m_right = PassUtils::get_bound(array, i + 1, "ubound", al);
                 index.m_step = ASRUtils::EXPR(ASR::make_IntegerConstant_t(al, index.loc, 1,
                     ASRUtils::TYPE(ASR::make_Integer_t(al, index.loc, 4))));
                 array_section_indices.push_back(al, index);
@@ -1432,8 +1432,8 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
                 args.p, args.size(), 0, ASRUtils::TYPE(ASR::make_Logical_t(
                     al, Lloc(x), 4)), nullptr);
         } else if( sf == SpecialFunc::Exp ) {
-            tmp = ASRUtils::make_IntrinsicScalarFunction_t_util(al, Lloc(x),
-                static_cast<int64_t>(ASRUtils::IntrinsicScalarFunctions::Exp),
+            tmp = ASRUtils::make_IntrinsicElementalFunction_t_util(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::Exp),
                 args.p, args.size(), 0, ASRUtils::expr_type(args.p[0]), nullptr);
         } else if( sf == SpecialFunc::Pow ) {
             if( args.size() != 2 ) {
@@ -1442,20 +1442,20 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
 
             CreateBinOp(args.p[0], args.p[1], ASR::binopType::Pow, Lloc(x));
         } else if( sf == SpecialFunc::Sqrt ) {
-            tmp = ASRUtils::make_IntrinsicScalarFunction_t_util(al, Lloc(x),
-                static_cast<int64_t>(ASRUtils::IntrinsicScalarFunctions::Sqrt),
+            tmp = ASRUtils::make_IntrinsicElementalFunction_t_util(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::Sqrt),
                 args.p, args.size(), 0, ASRUtils::expr_type(args.p[0]), nullptr);
         } else if( sf == SpecialFunc::Abs ) {
-            tmp = ASRUtils::make_IntrinsicScalarFunction_t_util(al, Lloc(x),
-                static_cast<int64_t>(ASRUtils::IntrinsicScalarFunctions::Abs),
+            tmp = ASRUtils::make_IntrinsicElementalFunction_t_util(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::Abs),
                 args.p, args.size(), 0, ASRUtils::expr_type(args.p[0]), nullptr);
         } else if( sf == SpecialFunc::Sin ) {
-            tmp = ASRUtils::make_IntrinsicScalarFunction_t_util(al, Lloc(x),
-                static_cast<int64_t>(ASRUtils::IntrinsicScalarFunctions::Sin),
+            tmp = ASRUtils::make_IntrinsicElementalFunction_t_util(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::Sin),
                 args.p, args.size(), 0, ASRUtils::expr_type(args.p[0]), nullptr);
         } else if( sf == SpecialFunc::Cos ) {
-            tmp = ASRUtils::make_IntrinsicScalarFunction_t_util(al, Lloc(x),
-                static_cast<int64_t>(ASRUtils::IntrinsicScalarFunctions::Cos),
+            tmp = ASRUtils::make_IntrinsicElementalFunction_t_util(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::Cos),
                 args.p, args.size(), 0, ASRUtils::expr_type(args.p[0]), nullptr);
         } else if( sf == SpecialFunc::AMax ) {
             if( args.size() > 1 && args.p[1] != nullptr ) {
@@ -1636,7 +1636,9 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
                 throw std::runtime_error("std::vector::reserve should be called with only one argument.");
             }
 
-            tmp = ASR::make_ListReserve_t(al, Lloc(x), callee, args[0]);
+            tmp = ASR::make_Expr_t(al, Lloc(x), ASRUtils::EXPR(ASR::make_IntrinsicElementalFunction_t(al, Lloc(x),
+                static_cast<int64_t>(ASRUtils::IntrinsicElementalFunctions::ListReserve), args.p, args.size(), 0,
+                nullptr, nullptr)));
             is_stmt_created = true;
         } else {
             throw std::runtime_error("Only printf and exit special functions supported");
@@ -1676,7 +1678,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
         if( return_type == nullptr ) {
             tmp = ASRUtils::make_SubroutineCall_t_util(al, Lloc(x), callee_sym,
                 callee_sym, call_args.p, call_args.size(), nullptr,
-                nullptr, false);
+                nullptr, false, false);
             is_stmt_created = true;
         } else {
             tmp = ASRUtils::make_FunctionCall_t_util(al, Lloc(x), callee_sym,
@@ -2741,8 +2743,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
             int lkind = ASRUtils::extract_kind_from_ttype_t(left_type);
             int rkind = ASRUtils::extract_kind_from_ttype_t(right_type);
             if( left_type->type != right_type->type || lkind != rkind ) {
-                throw SemanticError("Casting for mismatching pointer types not supported yet.",
-                                    right_type->base.loc);
+                throw std::runtime_error("Casting for mismatching pointer types not supported yet.");
             }
         }
 
@@ -2765,8 +2766,8 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
                 dest_type_right = ASRUtils::make_Array_t_util(al, dest_type->base.loc,
                     dest_type, m_dims, n_dims);
             }
-            left = CastingUtil::perform_casting(left, left_type, dest_type_left, al, left->base.loc);
-            right = CastingUtil::perform_casting(right, right_type, dest_type_right, al, right->base.loc);
+            left = CastingUtil::perform_casting(left, dest_type_left, al, left->base.loc);
+            right = CastingUtil::perform_casting(right, dest_type_right, al, right->base.loc);
             return ;
         }
 
@@ -2779,8 +2780,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
             return ;
         }
         src_expr = CastingUtil::perform_casting(
-            src_expr, src_type, dest_type, al,
-            src_expr->base.loc);
+            src_expr, dest_type, al, src_expr->base.loc);
         if( casted_expression_signal == 0 ) {
             left = src_expr;
             right = dest_expr;
@@ -3070,7 +3070,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
         TraverseStmt(loop_body);
         current_body = current_body_copy;
 
-        tmp = ASR::make_WhileLoop_t(al, Lloc(x), nullptr, test, body.p, body.size());
+        tmp = ASR::make_WhileLoop_t(al, Lloc(x), nullptr, test, body.p, body.size(), nullptr, 0);
         is_stmt_created = true;
         scopes.pop_back();
         inside_loop = inside_loop_copy;
@@ -3104,7 +3104,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
         body.push_back(al, ASRUtils::STMT(tmp.get()));
         current_body = current_body_copy;
 
-        tmp = ASR::make_WhileLoop_t(al, Lloc(x), nullptr, test, body.p, body.size());
+        tmp = ASR::make_WhileLoop_t(al, Lloc(x), nullptr, test, body.p, body.size(), nullptr, 0);
         is_stmt_created = true;
         scopes.pop_back();
         for_loop = for_loop_copy;
@@ -3120,7 +3120,7 @@ class ClangASTtoASRVisitor: public clang::RecursiveASTVisitor<ClangASTtoASRVisit
         TraverseStmt(if_cond);
         ASR::expr_t* test = ASRUtils::EXPR(tmp.get());
         if( !ASRUtils::is_logical(*ASRUtils::expr_type(test)) ) {
-            test = CastingUtil::perform_casting(test, ASRUtils::expr_type(test),
+            test = CastingUtil::perform_casting(test,
                 ASRUtils::TYPE(ASR::make_Logical_t(al, Lloc(x), 1)), al, Lloc(x));
         }