tmp

Author: ubaidsk

src/libasr/codegen/asr_to_wasm.cpp

@@ -734,14 +734,6 @@ class ASRToWASMVisitor : public ASR::BaseVisitor<ASRToWASMVisitor> {
         }
         emit_print_int();
         emit_print_float();
-        emit_complex_add_32();
-        emit_complex_add_64();
-        emit_complex_sub_32();
-        emit_complex_sub_64();
-        emit_complex_mul_32();
-        emit_complex_mul_64();
-        emit_complex_abs_32();
-        emit_complex_abs_64();
 
         {
             // Pre-declare all functions first, then generate code
@@ -1649,24 +1641,42 @@ class ASRToWASMVisitor : public ASR::BaseVisitor<ASRToWASMVisitor> {
         switch (x.m_op) {
             case ASR::binopType::Add: {
                 if (a_kind == 4) {
+                    if (m_self_func_name_idx_map.find("add_c32") == m_self_func_name_idx_map.end()) {
+                        emit_complex_add_32();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["add_c32"]);
                 } else {
+                    if (m_self_func_name_idx_map.find("add_c64") == m_self_func_name_idx_map.end()) {
+                        emit_complex_add_64();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["add_c64"]);
                 }
                 break;
             };
             case ASR::binopType::Sub: {
                 if (a_kind == 4) {
+                    if (m_self_func_name_idx_map.find("sub_c32") == m_self_func_name_idx_map.end()) {
+                        emit_complex_sub_32();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["sub_c32"]);
                 } else {
+                    if (m_self_func_name_idx_map.find("sub_c64") == m_self_func_name_idx_map.end()) {
+                        emit_complex_sub_64();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["sub_c64"]);
                 }
                 break;
             };
             case ASR::binopType::Mul: {
                 if (a_kind == 4) {
+                    if (m_self_func_name_idx_map.find("mul_c32") == m_self_func_name_idx_map.end()) {
+                        emit_complex_mul_32();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["mul_c32"]);
                 } else {
+                    if (m_self_func_name_idx_map.find("mul_c64") == m_self_func_name_idx_map.end()) {
+                        emit_complex_mul_64();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["mul_c64"]);
                 }
                 break;
@@ -2593,10 +2603,16 @@ class ASRToWASMVisitor : public ASR::BaseVisitor<ASRToWASMVisitor> {
                 int arg_kind = -1, dest_kind = -1;
                 extract_kinds(x, arg_kind, dest_kind);
                 if (arg_kind == 4) {
+                    if (m_self_func_name_idx_map.find("abs_c32") == m_self_func_name_idx_map.end()) {
+                        emit_complex_abs_32();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["abs_c32"]);
                     wasm::emit_f32_const(m_code_section, m_al, 0.0);
                     wasm::emit_f32_gt(m_code_section, m_al);
                 } else if (arg_kind == 8) {
+                    if (m_self_func_name_idx_map.find("abs_c64") == m_self_func_name_idx_map.end()) {
+                        emit_complex_abs_64();
+                    }
                     wasm::emit_call(m_code_section, m_al, m_self_func_name_idx_map["abs_c64"]);
                     wasm::emit_f64_const(m_code_section, m_al, 0.0);
                     wasm::emit_f64_gt(m_code_section, m_al);