Generate code

certik · certik · commit 326f662d6c7f · 2023-07-05T16:37:49.000-06:00
diff --git a/src/libasr/pass/arr_slice.h b/src/libasr/pass/arr_slice.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_ARR_SLICE_H
-#define LFORTRAN_PASS_ARR_SLICE_H
+#ifndef LIBASR_PASS_ARR_SLICE_H
+#define LIBASR_PASS_ARR_SLICE_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_arr_slice(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_ARR_SLICE_H
+#endif // LIBASR_PASS_ARR_SLICE_H
diff --git a/src/libasr/pass/array_op.h b/src/libasr/pass/array_op.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_ARRAY_OP_H
-#define LFORTRAN_PASS_ARRAY_OP_H
+#ifndef LIBASR_PASS_ARRAY_OP_H
+#define LIBASR_PASS_ARRAY_OP_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_array_op(Allocator &al, ASR::TranslationUnit_t &unit,
-                               const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_ARRAY_OP_H
+#endif // LIBASR_PASS_ARRAY_OP_H
diff --git a/src/libasr/pass/class_constructor.h b/src/libasr/pass/class_constructor.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
-#define LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
+#ifndef LIBASR_PASS_CLASS_CONSTRUCTOR_H
+#define LIBASR_PASS_CLASS_CONSTRUCTOR_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_class_constructor(Allocator &al, ASR::TranslationUnit_t &unit,
-                                        const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_CLASS_CONSTRUCTOR_H
+#endif // LIBASR_PASS_CLASS_CONSTRUCTOR_H
diff --git a/src/libasr/pass/dead_code_removal.h b/src/libasr/pass/dead_code_removal.h
@@ -7,8 +7,8 @@
 namespace LCompilers {
 
     void pass_dead_code_removal(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif
+#endif // LIBASR_PASS_DEAD_CODE_REMOVAL_H
diff --git a/src/libasr/pass/div_to_mul.h b/src/libasr/pass/div_to_mul.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_replace_div_to_mul(Allocator &al, ASR::TranslationUnit_t &unit,
-                                 const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/do_loops.h b/src/libasr/pass/do_loops.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_DO_LOOPS_H
-#define LFORTRAN_PASS_DO_LOOPS_H
+#ifndef LIBASR_PASS_DO_LOOPS_H
+#define LIBASR_PASS_DO_LOOPS_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                               const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_DO_LOOPS_H
+#endif // LIBASR_PASS_DO_LOOPS_H
diff --git a/src/libasr/pass/flip_sign.h b/src/libasr/pass/flip_sign.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_replace_flip_sign(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/fma.h b/src/libasr/pass/fma.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_replace_fma(Allocator &al, ASR::TranslationUnit_t &unit,
-                          const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/for_all.h b/src/libasr/pass/for_all.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_FOR_ALL
-#define LFORTRAN_PASS_FOR_ALL
+#ifndef LIBASR_PASS_FOR_ALL_H
+#define LIBASR_PASS_FOR_ALL_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
-    void pass_replace_forall(Allocator &al, ASR::TranslationUnit_t &unit,
-                             const LCompilers::PassOptions& pass_options);
+    void pass_replace_for_all(Allocator &al, ASR::TranslationUnit_t &unit,
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_FOR_ALL
+#endif // LIBASR_PASS_FOR_ALL_H
diff --git a/src/libasr/pass/global_stmts.h b/src/libasr/pass/global_stmts.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_GLOBAL_STMTS_H
-#define LFORTRAN_PASS_GLOBAL_STMTS_H
+#ifndef LIBASR_PASS_GLOBAL_STMTS_H
+#define LIBASR_PASS_GLOBAL_STMTS_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
-    void pass_wrap_global_stmts_into_function(Allocator &al, ASR::TranslationUnit_t &unit,
-                                              const LCompilers::PassOptions& pass_options);
+    void pass_wrap_global_stmts(Allocator &al, ASR::TranslationUnit_t &unit,
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_GLOBAL_STMTS_H
+#endif // LIBASR_PASS_GLOBAL_STMTS_H
diff --git a/src/libasr/pass/global_stmts_program.h b/src/libasr/pass/global_stmts_program.h
@@ -6,8 +6,8 @@
 
 namespace LCompilers {
 
-    void pass_wrap_global_stmts_into_program(Allocator &al, ASR::TranslationUnit_t &unit,
-                                             const LCompilers::PassOptions& pass_options);
+    void pass_wrap_global_stmts_program(Allocator &al, ASR::TranslationUnit_t &unit,
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/global_symbols.h b/src/libasr/pass/global_symbols.h
@@ -1,15 +1,14 @@
-#ifndef LFORTRAN_PASS_GLOBAL_SYMBOLS_H
-#define LFORTRAN_PASS_GLOBAL_SYMBOLS_H
+#ifndef LIBASR_PASS_GLOBAL_SYMBOLS_H
+#define LIBASR_PASS_GLOBAL_SYMBOLS_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
-    void pass_wrap_global_syms_into_module(Allocator &al,
-        ASR::TranslationUnit_t &unit,
-        const LCompilers::PassOptions& pass_options);
+    void pass_wrap_global_symbols(Allocator &al, ASR::TranslationUnit_t &unit,
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_GLOBAL_SYMBOLS_H
+#endif // LIBASR_PASS_GLOBAL_SYMBOLS_H
diff --git a/src/libasr/pass/implied_do_loops.h b/src/libasr/pass/implied_do_loops.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
-#define LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
+#ifndef LIBASR_PASS_IMPLIED_DO_LOOPS_H
+#define LIBASR_PASS_IMPLIED_DO_LOOPS_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_implied_do_loops(Allocator &al, ASR::TranslationUnit_t &unit,
-                                       const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_IMPLIED_DO_LOOPS_H
+#endif // LIBASR_PASS_IMPLIED_DO_LOOPS_H
diff --git a/src/libasr/pass/init_expr.h b/src/libasr/pass/init_expr.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_INIT_EXPR_H
-#define LFORTRAN_PASS_INIT_EXPR_H
+#ifndef LIBASR_PASS_INIT_EXPR_H
+#define LIBASR_PASS_INIT_EXPR_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_init_expr(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_INIT_EXPR_H
+#endif // LIBASR_PASS_INIT_EXPR_H
diff --git a/src/libasr/pass/inline_function_calls.h b/src/libasr/pass/inline_function_calls.h
@@ -7,8 +7,8 @@
 namespace LCompilers {
 
     void pass_inline_function_calls(Allocator &al, ASR::TranslationUnit_t &unit,
-                                    const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LIBASR_PASS_FMA_H
+#endif // LIBASR_PASS_INLINE_FUNCTION_CALLS_H
diff --git a/src/libasr/pass/instantiate_template.h b/src/libasr/pass/instantiate_template.h
@@ -1,18 +1,15 @@
-#ifndef LFORTRAN_PASS_TEMPLATE_VISITOR_H
-#define LFORTRAN_PASS_TEMPLATE_VISITOR_H
+#ifndef LIBASR_PASS_INSTANTIATE_TEMPLATE_H
+#define LIBASR_PASS_INSTANTIATE_TEMPLATE_H
 
 #include <libasr/asr.h>
+#include <libasr/utils.h>
 
 namespace LCompilers {
 
-    /**
-     * @brief Instantiate a generic function into a function that does not
-     *        contain any type parameters and restrictions. No type checking
-     *        is executed here
-     */
-    ASR::symbol_t* pass_instantiate_generic_function(Allocator &al,
+    ASR::symbol_t* pass_instantiate_template(Allocator &al,
         std::map<std::string, ASR::ttype_t*> subs, std::map<std::string, ASR::symbol_t*> rt_subs,
         SymbolTable *current_scope, std::string new_func_name, ASR::symbol_t *sym);
+
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_TEMPLATE_VISITOR_H
+#endif // LIBASR_PASS_INSTANTIATE_TEMPLATE_H
diff --git a/src/libasr/pass/intrinsic_function.h b/src/libasr/pass/intrinsic_function.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_replace_intrinsic_function(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/loop_unroll.h b/src/libasr/pass/loop_unroll.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_loop_unroll(Allocator &al, ASR::TranslationUnit_t &unit,
-                          const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/loop_vectorise.h b/src/libasr/pass/loop_vectorise.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_loop_vectorise(Allocator &al, ASR::TranslationUnit_t &unit,
-                             const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/nested_vars.h b/src/libasr/pass/nested_vars.h
@@ -1,13 +1,14 @@
-#ifndef LFORTRAN_PASS_NESTED_VARS_H
-#define LFORTRAN_PASS_NESTED_VARS_H
+#ifndef LIBASR_PASS_NESTED_VARS_H
+#define LIBASR_PASS_NESTED_VARS_H
 
 #include <libasr/asr.h>
+#include <libasr/utils.h>
 
 namespace LCompilers {
 
-     void pass_nested_vars(Allocator &al, ASR::TranslationUnit_t &unit,
-    const LCompilers::PassOptions& pass_options);
+    void pass_nested_vars(Allocator &al, ASR::TranslationUnit_t &unit,
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_NESTED_VARS_H
+#endif // LIBASR_PASS_NESTED_VARS_H
diff --git a/src/libasr/pass/param_to_const.h b/src/libasr/pass/param_to_const.h
@@ -1,15 +1,14 @@
-#ifndef LFORTRAN_PASS_PARAM_TO_CONST_H
-#define LFORTRAN_PASS_PARAM_TO_CONST_H
+#ifndef LIBASR_PASS_PARAM_TO_CONST_H
+#define LIBASR_PASS_PARAM_TO_CONST_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_param_to_const(Allocator &al, ASR::TranslationUnit_t &unit,
-                                     const LCompilers::PassOptions& pass_options
-                                     );
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_PARAM_TO_CONST_H
+#endif // LIBASR_PASS_PARAM_TO_CONST_H
diff --git a/src/libasr/pass/pass_array_by_data.h b/src/libasr/pass/pass_array_by_data.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_ARRAY_BY_DATA_H
-#define LFORTRAN_PASS_ARRAY_BY_DATA_H
+#ifndef LIBASR_PASS_ARRAY_BY_DATA_H
+#define LIBASR_PASS_ARRAY_BY_DATA_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_array_by_data(Allocator &al, ASR::TranslationUnit_t &unit,
-                            const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_ARRAY_BY_DATA_H
+#endif // LIBASR_PASS_ARRAY_BY_DATA_H
diff --git a/src/libasr/pass/pass_compare.h b/src/libasr/pass/pass_compare.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_compare(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/pass_list_expr.h b/src/libasr/pass/pass_list_expr.h
@@ -7,7 +7,7 @@
 namespace LCompilers {
 
     void pass_list_expr(Allocator &al, ASR::TranslationUnit_t &unit,
-                        const LCompilers::PassOptions& /*pass_options*/);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
diff --git a/src/libasr/pass/print_arr.h b/src/libasr/pass/print_arr.h
@@ -1,14 +1,14 @@
-#ifndef LFORTRAN_PASS_PRINT_ARR_H
-#define LFORTRAN_PASS_PRINT_ARR_H
+#ifndef LIBASR_PASS_PRINT_ARR_H
+#define LIBASR_PASS_PRINT_ARR_H
 
 #include <libasr/asr.h>
 #include <libasr/utils.h>
 
 namespace LCompilers {
 
     void pass_replace_print_arr(Allocator &al, ASR::TranslationUnit_t &unit,
-                                const LCompilers::PassOptions& pass_options);
+                                const PassOptions &pass_options);
 
 } // namespace LCompilers
 
-#endif // LFORTRAN_PASS_PRINT_ARR_H
+#endif // LIBASR_PASS_PRINT_ARR_H
diff --git a/src/libasr/pass/print_list_tuple.h b/src/libasr/pass/print_list_tuple.h
diff --git a/src/libasr/pass/print_struct_type.h b/src/libasr/pass/print_struct_type.h
diff --git a/src/libasr/pass/select_case.h b/src/libasr/pass/select_case.h
diff --git a/src/libasr/pass/sign_from_value.h b/src/libasr/pass/sign_from_value.h
diff --git a/src/libasr/pass/subroutine_from_function.h b/src/libasr/pass/subroutine_from_function.h
diff --git a/src/libasr/pass/transform_optional_argument_functions.h b/src/libasr/pass/transform_optional_argument_functions.h
diff --git a/src/libasr/pass/unused_functions.h b/src/libasr/pass/unused_functions.h
diff --git a/src/libasr/pass/update_array_dim_intrinsic_calls.h b/src/libasr/pass/update_array_dim_intrinsic_calls.h
diff --git a/src/libasr/pass/where.h b/src/libasr/pass/where.h
