[x86] Visit all the symbols in _global_symbols

Author: Thirumalai-Shaktivel

src/libasr/asr_utils.h

@@ -14,7 +14,53 @@
 namespace LCompilers  {
 
     namespace ASRUtils  {
-
+static inline void print_symbol(const ASR::symbol_t *f) {
+    if (!f) {
+        std::cout << "(null)\n";
+    }
+    switch (f->type) {
+        case ASR::symbolType::Program: {
+            std::cout << "Program_t\n";
+        break;}
+        case ASR::symbolType::Module: {
+            std::cout << "Module_t\n";
+        break;}
+        case ASR::symbolType::Function: {
+            std::cout << "Function_t\n";
+        break;}
+        case ASR::symbolType::GenericProcedure: {
+            std::cout << "GenericProcedure_t\n";
+        break;}
+        case ASR::symbolType::StructType: {
+            std::cout << "StructType_t\n";
+        break;}
+        case ASR::symbolType::EnumType: {
+            std::cout << "EnumType_t\n";
+        break;}
+        case ASR::symbolType::UnionType: {
+            std::cout << "UnionType_t\n";
+        break;}
+        case ASR::symbolType::Variable: {
+            std::cout << "Variable_t\n";
+        break;}
+        case ASR::symbolType::ExternalSymbol: {
+            std::cout << "ExternalSymbol_t\n";
+        break;}
+        case ASR::symbolType::ClassProcedure: {
+            std::cout << "ClassProcedure_t\n";
+        break;}
+        case ASR::symbolType::CustomOperator: {
+            std::cout << "CustomOperator_t\n";
+        break;}
+        case ASR::symbolType::AssociateBlock: {
+            std::cout << "AssociateBlock_t\n";
+        break;}
+        case ASR::symbolType::Block: {
+            std::cout << "Block_t\n";
+        break;}
+        default : throw LCompilersException("Not implemented");
+    }
+}
 static inline  double extract_real(const char *s) {
     // TODO: this is inefficient. We should
     // convert this in the tokenizer where we know most information

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()) {