From 2b31dea10d5a328b15e47723b5d03422ac538320 Mon Sep 17 00:00:00 2001 From: Patrick Lehmann Date: Thu, 16 Sep 2021 08:52:32 +0200 Subject: Fixed some typos (#1868) --- src/ortho/mcode/ortho_code-x86-insns.adb | 2 +- src/vhdl/translate/trans-chap2.adb | 2 +- src/vhdl/translate/trans.adb | 2 +- src/vhdl/translate/trans_analyzes.adb | 2 +- src/vhdl/vhdl-canon.adb | 4 ++-- src/vhdl/vhdl-canon.ads | 2 +- src/vhdl/vhdl-sem_expr.adb | 4 ++-- src/vhdl/vhdl-sem_inst.adb | 4 ++-- src/vhdl/vhdl-sem_scopes.adb | 6 +++--- src/vhdl/vhdl-utils.adb | 6 +++--- src/vhdl/vhdl-utils.ads | 10 +++++----- 11 files changed, 22 insertions(+), 22 deletions(-) (limited to 'src') diff --git a/src/ortho/mcode/ortho_code-x86-insns.adb b/src/ortho/mcode/ortho_code-x86-insns.adb index 182e79381..94b16754d 100644 --- a/src/ortho/mcode/ortho_code-x86-insns.adb +++ b/src/ortho/mcode/ortho_code-x86-insns.adb @@ -2394,7 +2394,7 @@ package body Ortho_Code.X86.Insns is case Kind is when OE_Beg | OE_End => - -- Stack offset has been explicitely changed for local variables. + -- Stack offset has been explicitly changed for local variables. null; when others => Stack_Offset := Prev_Stack_Offset; diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb index 44781852b..6d3ce89cb 100644 --- a/src/vhdl/translate/trans-chap2.adb +++ b/src/vhdl/translate/trans-chap2.adb @@ -345,7 +345,7 @@ package body Trans.Chap2 is return True; end Is_Subprogram_Ortho_Function; - -- Return TRUE iif SUBPRG_BODY declares explicitely or implicitely + -- Return TRUE iif SUBPRG_BODY declares explicitly or implicitely -- (or even implicitely by translation) a subprogram. function Has_Nested_Subprograms (Subprg_Body : Iir) return Boolean is diff --git a/src/vhdl/translate/trans.adb b/src/vhdl/translate/trans.adb index 4099f09df..67cdd1e80 100644 --- a/src/vhdl/translate/trans.adb +++ b/src/vhdl/translate/trans.adb @@ -2082,7 +2082,7 @@ package body Trans is end if; if Temp_Level.No_Stack2_Mark then - -- Stack2 mark and release was explicitely disabled. + -- Stack2 mark and release was explicitly disabled. return; end if; diff --git a/src/vhdl/translate/trans_analyzes.adb b/src/vhdl/translate/trans_analyzes.adb index 25616878b..3324cc4c6 100644 --- a/src/vhdl/translate/trans_analyzes.adb +++ b/src/vhdl/translate/trans_analyzes.adb @@ -39,7 +39,7 @@ package body Trans_Analyzes is return Walk_Continue; end if; - Prefix := Get_Longuest_Static_Prefix (Target); + Prefix := Get_Longest_Static_Prefix (Target); Add_Element (Driver_List, Prefix); if Has_After then Set_After_Drivers_Flag (Base, True); diff --git a/src/vhdl/vhdl-canon.adb b/src/vhdl/vhdl-canon.adb index 1db61ad63..563668125 100644 --- a/src/vhdl/vhdl-canon.adb +++ b/src/vhdl/vhdl-canon.adb @@ -240,11 +240,11 @@ package body Vhdl.Canon is | Iir_Kind_Above_Attribute | Iir_Kind_External_Signal_Name => -- LRM 8.1 - -- A simple name that denotes a signal, add the longuest static + -- A simple name that denotes a signal, add the longest static -- prefix of the name to the sensitivity set; -- -- An attribute name: if the designator denotes a signal - -- attribute, add the longuest static prefix of the name of the + -- attribute, add the longest static prefix of the name of the -- implicit signal denoted by the attribute name to the -- sensitivity set; [...] if not Is_Target then diff --git a/src/vhdl/vhdl-canon.ads b/src/vhdl/vhdl-canon.ads index 93bbbcb1a..e1ca164f1 100644 --- a/src/vhdl/vhdl-canon.ads +++ b/src/vhdl/vhdl-canon.ads @@ -77,7 +77,7 @@ package Vhdl.Canon is return Iir; -- Compute the sensivity list of EXPR and add it to SENSIVITY_LIST. - -- If IS_TARGET is true, the longuest static prefix of the signal name + -- If IS_TARGET is true, the longest static prefix of the signal name -- is not added to the sensitivity list, but other static prefix (such -- as indexes of an indexed name) are added. procedure Canon_Extract_Sensitivity_Expression diff --git a/src/vhdl/vhdl-sem_expr.adb b/src/vhdl/vhdl-sem_expr.adb index a70e197b9..498f1c4b2 100644 --- a/src/vhdl/vhdl-sem_expr.adb +++ b/src/vhdl/vhdl-sem_expr.adb @@ -1600,7 +1600,7 @@ package body Vhdl.Sem_Expr is case Get_Kind (Get_Object_Prefix (Prefix)) is when Iir_Kind_Signal_Declaration | Iir_Kind_Interface_Signal_Declaration => - Prefix := Get_Longuest_Static_Prefix (Prefix); + Prefix := Get_Longest_Static_Prefix (Prefix); Sem_Stmts.Sem_Add_Driver (Prefix, Stmt); when others => null; @@ -4048,7 +4048,7 @@ package body Vhdl.Sem_Expr is if Eval_Pos (L) /= Eval_Pos (Low) or else Eval_Pos (H) /= Eval_Pos (H) then - Error_Msg_Sem (+Aggr, "subagregate bounds mismatch"); + Error_Msg_Sem (+Aggr, "subaggregate bounds mismatch"); end if; end; end if; diff --git a/src/vhdl/vhdl-sem_inst.adb b/src/vhdl/vhdl-sem_inst.adb index b6b9f399f..3be21e641 100644 --- a/src/vhdl/vhdl-sem_inst.adb +++ b/src/vhdl/vhdl-sem_inst.adb @@ -266,12 +266,12 @@ package body Vhdl.Sem_Inst is when Attr_Maybe_Ref => R := Instantiate_Iir (S, Get_Is_Ref (N)); when Attr_Forward_Ref => - -- Must be explicitely handled in Instantiate_Iir, as it + -- Must be explicitly handled in Instantiate_Iir, as it -- requires special handling. raise Internal_Error; when Attr_Maybe_Forward_Ref => if Get_Is_Forward_Ref (N) then - -- Likewise: must be explicitely handled. + -- Likewise: must be explicitly handled. raise Internal_Error; else R := Instantiate_Iir (S, True); diff --git a/src/vhdl/vhdl-sem_scopes.adb b/src/vhdl/vhdl-sem_scopes.adb index 945ac57bb..7bb047e37 100644 --- a/src/vhdl/vhdl-sem_scopes.adb +++ b/src/vhdl/vhdl-sem_scopes.adb @@ -1422,9 +1422,9 @@ package body Vhdl.Sem_Scopes is -- LRM08 12.4 Use clauses -- - The implicit declarations of predefined operations for the type - -- that are not hidden by homographs explicitely declared immediately + -- that are not hidden by homographs explicitly declared immediately -- within the package denoted by the prefix of the selected name - -- - The declarations of homographs, explicitely declared immediately + -- - The declarations of homographs, explicitly declared immediately -- within the package denotes by the prefix of the selected name, -- that hide implicit declarations of predefined operations for the -- type @@ -1452,7 +1452,7 @@ package body Vhdl.Sem_Scopes is end if; end loop; - -- Explicitely declared homograph. + -- Explicitly declared homograph. if Has_Override then while El /= Null_Iir loop if Get_Kind (El) in Iir_Kinds_Subprogram_Declaration diff --git a/src/vhdl/vhdl-utils.adb b/src/vhdl/vhdl-utils.adb index 16351ad86..e834c827b 100644 --- a/src/vhdl/vhdl-utils.adb +++ b/src/vhdl/vhdl-utils.adb @@ -191,7 +191,7 @@ package body Vhdl.Utils is end case; end Get_Operator_Name; - function Get_Longuest_Static_Prefix (Expr: Iir) return Iir + function Get_Longest_Static_Prefix (Expr: Iir) return Iir is Adecl: Iir; begin @@ -226,10 +226,10 @@ package body Vhdl.Utils is when Iir_Kind_Type_Conversion => return Null_Iir; when others => - Error_Kind ("get_longuest_static_prefix", Adecl); + Error_Kind ("get_longest_static_prefix", Adecl); end case; end loop; - end Get_Longuest_Static_Prefix; + end Get_Longest_Static_Prefix; function Get_Object_Prefix (Name: Iir; With_Alias : Boolean := True) return Iir diff --git a/src/vhdl/vhdl-utils.ads b/src/vhdl/vhdl-utils.ads index b2d38334e..455a0304b 100644 --- a/src/vhdl/vhdl-utils.ads +++ b/src/vhdl/vhdl-utils.ads @@ -52,9 +52,9 @@ package Vhdl.Utils is -- Convert an operator node to a name. function Get_Operator_Name (Op : Iir) return Name_Id; - -- Get the longuest static prefix of EXPR. + -- Get the longest static prefix of EXPR. -- See LRM93 8.1 - function Get_Longuest_Static_Prefix (Expr: Iir) return Iir; + function Get_Longest_Static_Prefix (Expr: Iir) return Iir; -- Get the prefix of NAME, ie the declaration at the base of NAME. -- Return NAME itself if NAME is not an object or a subelement of @@ -118,7 +118,7 @@ package Vhdl.Utils is -- True if EXPR can be built statically. This is the case of literals -- (except overflow), and the case of some aggregates. -- This is different from locally static expression, particularly for - -- agregate: the analyzer may choose to dynamically create a locally + -- aggregate: the analyzer may choose to dynamically create a locally -- static aggregate if it is sparse. function Is_Static_Construct (Expr : Iir) return Boolean; @@ -283,7 +283,7 @@ package Vhdl.Utils is -- Return true iff FUNC is an operation for ATYPE. -- -- LRM08 5.1 Types - -- The set of operations of a type includes the explicitely declared + -- The set of operations of a type includes the explicitly declared -- subprograms that have a parameter or result of the type. The remaining -- operations of a type are the base operations and the predefined -- operations. @@ -423,7 +423,7 @@ package Vhdl.Utils is -- Like Get_Identifier but return a Name_Id for the same casing as it -- appears in the source file. - -- Not useful for analysis as VHDL is case insentive, but could be + -- Not useful for analysis as VHDL is case insensitive, but could be -- useful for error messages or tooling. function Get_Source_Identifier (Decl : Node) return Name_Id; -- cgit v1.2.3