ASR: Fix derived_type points outside symtab

ubaidsk · ubaidsk · commit 779ff705734f · 2023-04-20T12:55:57.000+05:30
Fixes error: ASR verify: Struct::m_derived_type cannot point outside of its symbol table
diff --git a/src/lpython/semantics/python_ast_to_asr.cpp b/src/lpython/semantics/python_ast_to_asr.cpp
@@ -958,11 +958,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {
                     ASR::symbol_t *der_sym = ASRUtils::symbol_get_past_external(s);
                     if( der_sym ) {
                         if ( ASR::is_a<ASR::StructType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Struct_t(al, loc, der_sym, dims.p, dims.size()));
+                            return ASRUtils::TYPE(ASR::make_Struct_t(al, loc, s, dims.p, dims.size()));
                         } else if( ASR::is_a<ASR::EnumType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Enum_t(al, loc, der_sym, dims.p, dims.size()));
+                            return ASRUtils::TYPE(ASR::make_Enum_t(al, loc, s, dims.p, dims.size()));
                         } else if( ASR::is_a<ASR::UnionType_t>(*der_sym) ) {
-                            return ASRUtils::TYPE(ASR::make_Union_t(al, loc, der_sym, dims.p, dims.size()));
+                            return ASRUtils::TYPE(ASR::make_Union_t(al, loc, s, dims.p, dims.size()));
                         }
                     }
                 }

Original file line number	Diff line number	Diff line change
`@@ -958,11 +958,11 @@ class CommonVisitor : public AST::BaseVisitor<Struct> {`
`958`	`958`	`ASR::symbol_t *der_sym = ASRUtils::symbol_get_past_external(s);`
`959`	`959`	`if( der_sym ) {`
`960`	`960`	`if ( ASR::is_a<ASR::StructType_t>(*der_sym) ) {`
`961`		`- return ASRUtils::TYPE(ASR::make_Struct_t(al, loc, der_sym, dims.p, dims.size()));`
	`961`	`+ return ASRUtils::TYPE(ASR::make_Struct_t(al, loc, s, dims.p, dims.size()));`
`962`	`962`	`} else if( ASR::is_a<ASR::EnumType_t>(*der_sym) ) {`
`963`		`- return ASRUtils::TYPE(ASR::make_Enum_t(al, loc, der_sym, dims.p, dims.size()));`
	`963`	`+ return ASRUtils::TYPE(ASR::make_Enum_t(al, loc, s, dims.p, dims.size()));`
`964`	`964`	`} else if( ASR::is_a<ASR::UnionType_t>(*der_sym) ) {`
`965`		`- return ASRUtils::TYPE(ASR::make_Union_t(al, loc, der_sym, dims.p, dims.size()));`
	`965`	`+ return ASRUtils::TYPE(ASR::make_Union_t(al, loc, s, dims.p, dims.size()));`
`966`	`966`	`}`
`967`	`967`	`}`
`968`	`968`	`}`