1
- #include < libasr/asr.h>
2
1
#include < libasr/containers.h>
3
2
#include < libasr/exception.h>
4
3
#include < libasr/asr_utils.h>
@@ -57,7 +56,7 @@ class ReplaceSymbolicVisitor : public PassUtils::PassVisitor<ReplaceSymbolicVisi
57
56
ASR::asr_t * new_subrout = ASRUtils::make_Function_t_util (al, x.base .base .loc ,
58
57
fn_symtab, s2c (al, new_name), dep.p , dep.n , args.p , args.n , body.p , body.n ,
59
58
nullptr , ASR::abiType::BindC, ASR::accessType::Public,
60
- ASR::deftypeType::Interface, nullptr , false , false , false ,
59
+ ASR::deftypeType::Interface, s2c (al, new_name) , false , false , false ,
61
60
false , false , nullptr , 0 , nullptr , 0 , false , false , false , s2c (al, header));
62
61
ASR::symbol_t *new_symbol = ASR::down_cast<ASR::symbol_t >(new_subrout);
63
62
current_scope->add_symbol (new_name, new_symbol);
@@ -172,4 +171,4 @@ void pass_replace_symbolic(Allocator &al, ASR::TranslationUnit_t &unit,
172
171
v.visit_TranslationUnit (unit);
173
172
}
174
173
175
- } // namespace LCompilers
174
+ } // namespace LCompilers
0 commit comments