[x86] Visit all the symbols in _global_symbols

Author: Thirumalai-Shaktivel

src/libasr/codegen/asr_to_x86.cpp

@@ -79,6 +79,21 @@ class ASRToX86Visitor : public ASR::BaseVisitor<ASRToX86Visitor>
             visit_symbol(*sym);
         }
 
+        if (x.m_global_scope->get_symbol("_global_symbols") != nullptr) {
+            SymbolTable *global_symbols = ASR::down_cast<ASR::Module_t>(
+                x.m_global_scope->get_symbol("_global_symbols"))->m_symtab;
+            std::vector<std::string> global_func_order
+                = ASRUtils::determine_function_definition_order(global_symbols);
+            for (size_t i = 0; i < global_func_order.size(); i++) {
+                ASR::symbol_t* sym = global_symbols->get_symbol(global_func_order[i]);
+                // Ignore external symbols because they are already defined by the loop above.
+                if( !sym || ASR::is_a<ASR::ExternalSymbol_t>(*sym) ) {
+                    continue;
+                }
+                visit_symbol(*sym);
+            }
+        }
+
         // Then the main program:
         for (auto &item : x.m_global_scope->get_scope()) {
             if (ASR::is_a<ASR::Program_t>(*item.second)) {
@@ -504,7 +519,8 @@ class ASRToX86Visitor : public ASR::BaseVisitor<ASRToX86Visitor>
     }
 
     void visit_SubroutineCall(const ASR::SubroutineCall_t &x) {
-        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(x.m_name);
+        ASR::Function_t *s = ASR::down_cast<ASR::Function_t>(
+            ASRUtils::symbol_get_past_external(x.m_name));
 
         uint32_t h = get_hash((ASR::asr_t*)s);
         if (x86_symtab.find(h) == x86_symtab.end()) {