Merge pull request #1060 from czgdp1807/inline

Respect ``@inline`` decorator in LLVM backend

Author: czgdp1807

src/libasr/pass/inline_function_calls.cpp

@@ -45,6 +45,7 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
 
     bool from_inline_function_call, inlining_function;
     bool fixed_duplicated_expr_stmt;
+    bool is_fast;
 
     // Stores the local variables corresponding to the ones
     // present in function symbol table.
@@ -66,10 +67,12 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
 
     bool function_inlined;
 
-    InlineFunctionCallVisitor(Allocator &al_, const std::string& rl_path_, bool inline_external_symbol_calls_)
+    InlineFunctionCallVisitor(Allocator &al_, const std::string& rl_path_,
+                              bool inline_external_symbol_calls_, bool is_fast_)
     : PassVisitor(al_, nullptr),
     rl_path(rl_path_), function_result_var(nullptr),
     from_inline_function_call(false), inlining_function(false), fixed_duplicated_expr_stmt(false),
+    is_fast(is_fast_),
     current_routine(""), inline_external_symbol_calls(inline_external_symbol_calls_),
     node_duplicator(al_), current_routine_scope(nullptr),
     label_generator(ASRUtils::LabelGenerator::get_instance()),
@@ -211,6 +214,10 @@ class InlineFunctionCallVisitor : public PassUtils::PassVisitor<InlineFunctionCa
             return ;
         }
 
+        if( !is_fast && !func->m_inline ) {
+            return ;
+        }
+
         current_routine_scope = func->m_symtab;
 
         ASR::expr_t* return_var = nullptr;
@@ -448,7 +455,7 @@ void pass_inline_function_calls(Allocator &al, ASR::TranslationUnit_t &unit,
                                 const LCompilers::PassOptions& pass_options) {
     std::string rl_path = pass_options.runtime_library_dir;
     bool inline_external_symbol_calls = pass_options.inline_external_symbol_calls;
-    InlineFunctionCallVisitor v(al, rl_path, inline_external_symbol_calls);
+    InlineFunctionCallVisitor v(al, rl_path, inline_external_symbol_calls, pass_options.fast);
     v.configure_node_duplicator(false);
     v.visit_TranslationUnit(unit);
     v.configure_node_duplicator(true);

src/libasr/pass/pass_manager.h

@@ -101,6 +101,7 @@ namespace LCompilers {
                 "do_loops",
                 "forall",
                 "select_case",
+                "inline_function_calls",
                 "unused_functions"
             };
 
@@ -161,8 +162,10 @@ namespace LCompilers {
         void apply_passes(Allocator& al, LFortran::ASR::TranslationUnit_t* asr,
                           PassOptions& pass_options) {
             if( !_user_defined_passes.empty() ) {
+                pass_options.fast = true;
                 _apply_passes(al, asr, _user_defined_passes, pass_options);
             } else if( apply_default_passes ) {
+                pass_options.fast = is_fast;
                 if( is_fast ) {
                     _apply_passes(al, asr, _with_optimization_passes, pass_options);
                 } else {

src/libasr/utils.h

@@ -55,9 +55,10 @@ namespace LCompilers {
         bool always_run; // for unused_functions pass
         bool inline_external_symbol_calls; // for inline_function_calls pass
         int64_t unroll_factor; // for loop_unroll pass
+        bool fast; // is fast flag enabled.
 
         PassOptions(): always_run(false), inline_external_symbol_calls(true),
-                       unroll_factor(32)
+                       unroll_factor(32), fast(false)
         {}
     };