def sequential_iter(n): """Iterator on sequential statements. The first node must be either a process or a subprogram body.""" if n == thin.Null_Iir: return k = iirs.Get_Kind(n) if k in [ iirs.Iir_Kind.Process_Statement, iirs.Iir_Kind.Sensitized_Process_Statement, iirs.Iir_Kind.Function_Body, iirs.Iir_Kind.Procedure_Body ]: for n1 in chain_iter(iirs.Get_Sequential_Statement_Chain(n)): yield n1 for n2 in sequential_iter(n1): yield n2 elif k == iirs.Iir_Kind.If_Statement: while True: n = iirs.Get_Chain(n) if n == thin.Null_Iir: break yield n for n1 in sequential_iter(n): yield n1 elif k == iirs.Iir_Kind.Case_Statement: for ch in chain_iter(iirs.Get_Case_Statement_Alternative_Chain(n)): stmt = iirs.Get_Associated_Chain(ch) if stmt != thin.Null_Iir: for n1 in chain_iter(stmt): yield n1 for n2 in sequential_iter(n1): yield n2 elif k in [ iirs.Iir_Kind.For_Loop_Statement, iirs.Iir_Kind.While_Loop_Statement ]: for n1 in chain_iter(iirs.Get_Sequential_Statement_Chain(n)): yield n1 for n2 in sequential_iter(n1): yield n2 elif k in [ iirs.Iir_Kind.Assertion_Statement, iirs.Iir_Kind.Wait_Statement, iirs.Iir_Kind.Null_Statement, iirs.Iir_Kind.Exit_Statement, iirs.Iir_Kind.Next_Statement, iirs.Iir_Kind.Return_Statement, iirs.Iir_Kind.Variable_Assignment_Statement, iirs.Iir_Kind.Simple_Signal_Assignment_Statement, iirs.Iir_Kind.Procedure_Call_Statement ]: return else: assert False, "unknown node of kind {}".format(kind_image(k))
def chk_sequential(self, head, level): nlevel = level + self._l for n in thinutils.chain_iter(head): k = iirs.Get_Kind(n) self.chk_level(n, iirs.Get_Location(n), level) if k == iirs.Iir_Kind.If_Statement: self.chk_if_stmt(n, level) elif (k == iirs.Iir_Kind.For_Loop_Statement or k == iirs.Iir_Kind.While_Loop_Statement): self.chk_line_or_col( n, iirs.Get_Location(n), elocs.Get_Loop_Location(n)) self.chk_sequential( iirs.Get_Sequential_Statement_Chain(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level) elif k == iirs.Iir_Kind.Case_Statement: alts = iirs.Get_Case_Statement_Alternative_Chain(n) self.chk_case_alternatives(alts, nlevel) elif (k == iirs.Iir_Kind.Wait_Statement or k == iirs.Iir_Kind.Return_Statement or k == iirs.Iir_Kind.Assertion_Statement or k == iirs.Iir_Kind.Report_Statement or k == iirs.Iir_Kind.Procedure_Call_Statement or k == iirs.Iir_Kind.Null_Statement or k == iirs.Iir_Kind.Exit_Statement or k == iirs.Iir_Kind.Next_Statement): pass elif (k == iirs.Iir_Kind.Simple_Signal_Assignment_Statement or k == iirs.Iir_Kind.Variable_Assignment_Statement): pass else: assert False, "Indent: unhandled node {}".format( thinutils.kind_image(k))
def check_process(self, proc): stmt = iirs.Get_Sequential_Statement_Chain(proc) if nodeutils.is_one_stmt(stmt) \ and iirs.Get_Kind(stmt) == iirs.Iir_Kind.If_Statement: (clk, rst) = self.is_register(stmt) if clk is not None: self.check_register(proc, clk, rst) return slist = iirs.Get_Sensitivity_List(proc) clist = thin.Lists.Create_Iir_List() thin.Canon.Extract_Sequential_Statement_Chain_Sensitivity( iirs.Get_Sequential_Statement_Chain(proc), clist) for el in thinutils.list_iter(clist): if not self.in_sensitivity(slist, el): self.error(Location.from_node(el), "signal not in sensitivity list") thin.Lists.Destroy_Iir_List(clist)
def chk_if_stmt(self, n, level): nlevel = level + self._l while n != thin.Null_Iir: # if/else/elsif loc = iirs.Get_Location(n) self.chk_level(n, loc, level) self.chk_sequential(iirs.Get_Sequential_Statement_Chain(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level) n = iirs.Get_Else_Clause(n)
def chk_concurrent(self, head, level): nlevel = level + self._l for n in thinutils.chain_iter(head): self.chk_level(n, iirs.Get_Location(n), level) k = iirs.Get_Kind(n) if k == iirs.Iir_Kind.Component_Instantiation_Statement: # TODO pass elif (k == iirs.Iir_Kind.Concurrent_Assertion_Statement or k == iirs.Iir_Kind.Concurrent_Simple_Signal_Assignment or k == iirs.Iir_Kind.Concurrent_Conditional_Signal_Assignment or k == iirs.Iir_Kind.Concurrent_Selected_Signal_Assignment): pass elif k == iirs.Iir_Kind.Concurrent_Procedure_Call_Statement: pass elif k == iirs.Iir_Kind.Block_Statement: self.chk_declarations(iirs.Get_Declaration_Chain(n), nlevel) self.chk_level(n, elocs.Get_Begin_Location(n), level) self.chk_concurrent( iirs.Get_Concurrent_Statement_Chain(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level) elif k == iirs.Iir_Kind.For_Generate_Statement: self.chk_line_or_col( n, iirs.Get_Location(n), elocs.Get_Generate_Location(n)) self.chk_generate_body( iirs.Get_Generate_Statement_Body(n), level) self.chk_level(n, elocs.Get_End_Location(n), level) elif k == iirs.Iir_Kind.If_Generate_Statement: self.chk_line_or_col( n, iirs.Get_Location(n), elocs.Get_Generate_Location(n)) self.chk_generate_body( iirs.Get_Generate_Statement_Body(n), level) self.chk_level(n, elocs.Get_End_Location(n), level) elif (k == iirs.Iir_Kind.Sensitized_Process_Statement or k == iirs.Iir_Kind.Process_Statement): self.chk_declarations(iirs.Get_Declaration_Chain(n), nlevel) self.chk_level(n, elocs.Get_Begin_Location(n), level) self.chk_sequential( iirs.Get_Sequential_Statement_Chain(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level)
def chk_declarations(self, head, level): nlevel = level + self._l for n in thinutils.chain_iter(head): k = iirs.Get_Kind(n) if k == iirs.Iir_Kind.Constant_Declaration \ or k == iirs.Iir_Kind.Signal_Declaration \ or k == iirs.Iir_Kind.Variable_Declaration \ or k == iirs.Iir_Kind.File_Declaration \ or k == iirs.Iir_Kind.Object_Alias_Declaration \ or k == iirs.Iir_Kind.Attribute_Declaration \ or k == iirs.Iir_Kind.Attribute_Specification: self.chk_level(n, elocs.Get_Start_Location(n), level) elif (k == iirs.Iir_Kind.Configuration_Specification or k == iirs.Iir_Kind.Disconnection_Specification): self.chk_level(n, iirs.Get_Location(n), level) elif (k == iirs.Iir_Kind.Subtype_Declaration or k == iirs.Iir_Kind.Type_Declaration or k == iirs.Iir_Kind.Anonymous_Type_Declaration): self.chk_level(n, elocs.Get_Start_Location(n), level) elif k == iirs.Iir_Kind.Component_Declaration: self.chk_level(n, elocs.Get_Start_Location(n), level) self.chk_level(n, elocs.Get_Generic_Location(n), nlevel) self.chk_level(n, elocs.Get_Port_Location(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level) elif (k == iirs.Iir_Kind.Function_Declaration or k == iirs.Iir_Kind.Procedure_Declaration): self.chk_level(n, elocs.Get_Start_Location(n), level) elif (k == iirs.Iir_Kind.Function_Body or k == iirs.Iir_Kind.Procedure_Body): self.chk_declarations(iirs.Get_Declaration_Chain(n), nlevel) self.chk_level(n, elocs.Get_Begin_Location(n), level) self.chk_sequential( iirs.Get_Sequential_Statement_Chain(n), nlevel) self.chk_level(n, elocs.Get_End_Location(n), level) # check start elif k == iirs.Iir_Kind.Use_Clause: self.chk_level(n, iirs.Get_Location(n), level) else: assert False, "unhandled declaration {}".format( thinutils.kind_image(k))
def declarations_iter(n): """Iterator on all declarations in n.""" k = iirs.Get_Kind(n) if nodes_meta.Has_Generic_Chain(k): for n1 in chain_iter(iirs.Get_Generic_Chain(n)): yield n1 if nodes_meta.Has_Port_Chain(k): for n1 in chain_iter(iirs.Get_Port_Chain(n)): yield n1 if nodes_meta.Has_Interface_Declaration_Chain(k): for n1 in chain_iter(iirs.Get_Interface_Declaration_Chain(n)): yield n1 if nodes_meta.Has_Declaration_Chain(k): for n1 in chain_iter(iirs.Get_Declaration_Chain(n)): k1 = iirs.Get_Kind(n1) if k1 in iirs.Iir_Kinds.Specification \ or k1 == iirs.Iir_Kind.Use_Clause: # Not a declaration pass elif k1 == iirs.Iir_Kind.Signal_Attribute_Declaration: # Not a declaration pass elif k1 in [ iirs.Iir_Kind.Type_Declaration, iirs.Iir_Kind.Anonymous_Type_Declaration ]: yield n1 # Handle nested declarations: record elements, physical units, # enumeration literals... typ = iirs.Get_Type_Definition(n1) for n2 in declarations_iter(n1): yield n2 else: yield n1 # There can be nested declarations (subprograms) for n2 in declarations_iter(n1): yield n2 if nodes_meta.Has_Concurrent_Statement_Chain(k): for n1 in chain_iter(iirs.Get_Concurrent_Statement_Chain(n)): for n2 in declarations_iter(n1): yield n2 if nodes_meta.Has_Sequential_Statement_Chain(k): for n1 in chain_iter(iirs.Get_Sequential_Statement_Chain(n)): for n2 in declarations_iter(n1): yield n2 if nodes_meta.Has_Parameter_Specification(k): yield iirs.Get_Parameter_Specification(n) if nodes_meta.Has_Generate_Statement_Body(k): for n1 in declarations_iter(iirs.Get_Generate_Statement_Body(n)): yield n1 if nodes_meta.Has_Else_Clause(k): n1 = iirs.Get_Else_Clause(n) if n1 != Null_Iir: for n2 in declarations_iter(n1): yield n2 if nodes_meta.Has_Generate_Else_Clause(k): n1 = iirs.Get_Generate_Else_Clause(n) if n1 != Null_Iir: for n2 in declarations_iter(n1): yield n2 if nodes_meta.Has_Block_Header(k): n1 = iirs.Get_Block_Header(n) if n1 != Null_Iir: for n2 in declarations_iter(n1): yield n2 # All these nodes are handled: if k in [ iirs.Iir_Kind.Entity_Declaration, iirs.Iir_Kind.Architecture_Body, iirs.Iir_Kind.Package_Declaration, iirs.Iir_Kind.Package_Body, iirs.Iir_Kind.Process_Statement, iirs.Iir_Kind.Sensitized_Process_Statement, iirs.Iir_Kind.Concurrent_Assertion_Statement, iirs.Iir_Kind.Concurrent_Simple_Signal_Assignment, iirs.Iir_Kind.Concurrent_Selected_Signal_Assignment, iirs.Iir_Kind.Concurrent_Conditional_Signal_Assignment, iirs.Iir_Kind.Concurrent_Procedure_Call_Statement, iirs.Iir_Kind.Block_Statement, iirs.Iir_Kind.Block_Header, iirs.Iir_Kind.For_Generate_Statement, iirs.Iir_Kind.If_Generate_Statement, iirs.Iir_Kind.Generate_Statement_Body, iirs.Iir_Kind.Assertion_Statement, iirs.Iir_Kind.Wait_Statement, iirs.Iir_Kind.Simple_Signal_Assignment_Statement, iirs.Iir_Kind.Variable_Assignment_Statement, iirs.Iir_Kind.For_Loop_Statement, iirs.Iir_Kind.While_Loop_Statement, iirs.Iir_Kind.Case_Statement, iirs.Iir_Kind.Null_Statement, iirs.Iir_Kind.Exit_Statement, iirs.Iir_Kind.Next_Statement, iirs.Iir_Kind.Procedure_Call_Statement, iirs.Iir_Kind.Signal_Declaration, iirs.Iir_Kind.Constant_Declaration, iirs.Iir_Kind.Variable_Declaration, iirs.Iir_Kind.File_Declaration, iirs.Iir_Kind.Object_Alias_Declaration, iirs.Iir_Kind.Attribute_Declaration, iirs.Iir_Kind.Component_Declaration, iirs.Iir_Kind.Use_Clause, iirs.Iir_Kind.If_Statement, iirs.Iir_Kind.Elsif, iirs.Iir_Kind.Return_Statement, iirs.Iir_Kind.Type_Declaration, iirs.Iir_Kind.Anonymous_Type_Declaration, iirs.Iir_Kind.Subtype_Declaration, iirs.Iir_Kind.Function_Declaration, iirs.Iir_Kind.Function_Body, iirs.Iir_Kind.Procedure_Declaration, iirs.Iir_Kind.Procedure_Body, iirs.Iir_Kind.Component_Instantiation_Statement, ]: return assert False, "unknown node of kind {}".format(kind_image(k))