translation: renames Ortho_Func to Subprg_Node for consistency.

5 files changed, 10 insertions, 10 deletions

diff --git a/src/vhdl/translate/trans-chap2.adb b/src/vhdl/translate/trans-chap2.adb
index 5fedb09b7..982593d13 100644
--- a/src/vhdl/translate/trans-chap2.adb
+++ b/src/vhdl/translate/trans-chap2.adb
@@ -322,11 +322,11 @@ package body Trans.Chap2 is
             Inter := Get_Chain (Inter);
          end loop;
       end if;
-      Finish_Subprogram_Decl (Interface_List, Info.Ortho_Func);
+      Finish_Subprogram_Decl (Interface_List, Info.Subprg_Node);
 
       --  Call the hook for foreign subprograms.
       if Is_Foreign and then Foreign_Hook /= null then
-         Foreign_Hook.all (Spec, Foreign, Info.Ortho_Func);
+         Foreign_Hook.all (Spec, Foreign, Info.Subprg_Node);
       end if;
 
       Save_Local_Identifier (Info.Subprg_Local_Id);
@@ -539,7 +539,7 @@ package body Trans.Chap2 is
 
       --  Create the body
 
-      Start_Subprogram_Body (Info.Ortho_Func);
+      Start_Subprogram_Body (Info.Subprg_Node);
 
       Start_Subprg_Instance_Use (Spec);
 
@@ -1204,7 +1204,7 @@ package body Trans.Chap2 is
             Dest.all :=
               (Kind => Kind_Subprg,
                Use_Stack2 => Src.Use_Stack2,
-               Ortho_Func => Src.Ortho_Func,
+               Subprg_Node => Src.Subprg_Node,
                Res_Interface => Src.Res_Interface,
                Subprg_Params_Var => Instantiate_Var (Src.Subprg_Params_Var),
                Subprg_Params_Type => Src.Subprg_Params_Type,
diff --git a/src/vhdl/translate/trans-chap4.adb b/src/vhdl/translate/trans-chap4.adb
index 44e1a6f9c..694e6e372 100644
--- a/src/vhdl/translate/trans-chap4.adb
+++ b/src/vhdl/translate/trans-chap4.adb
@@ -2106,7 +2106,7 @@ package body Trans.Chap4 is
          Create_Temp_Stack2_Mark;
       end if;
 
-      Start_Association (Assoc, Finfo.Ortho_Func);
+      Start_Association (Assoc, Finfo.Subprg_Node);
       if Finfo.Res_Interface /= O_Dnode_Null then
          New_Association (Assoc, M2E (Res));
       end if;
@@ -2775,7 +2775,7 @@ package body Trans.Chap4 is
             end if;
 
             --  Call conversion function.
-            Start_Association (Constr, Subprg_Info.Ortho_Func);
+            Start_Association (Constr, Subprg_Info.Subprg_Node);
 
             if Subprg_Info.Res_Interface /= O_Dnode_Null then
                --  Composite result.
diff --git a/src/vhdl/translate/trans-chap8.adb b/src/vhdl/translate/trans-chap8.adb
index 6831a9e89..c55f48de6 100644
--- a/src/vhdl/translate/trans-chap8.adb
+++ b/src/vhdl/translate/trans-chap8.adb
@@ -2432,7 +2432,7 @@ package body Trans.Chap8 is
                   Res_Otype : Type_Info_Acc;
                   Res : O_Dnode;
                begin
-                  Start_Association (Constr, Conv_Info.Ortho_Func);
+                  Start_Association (Constr, Conv_Info.Subprg_Node);
 
                   if Conv_Info.Res_Interface /= O_Dnode_Null then
                      Res_Otype := Get_Info (Get_Return_Type (Imp));
@@ -3051,7 +3051,7 @@ package body Trans.Chap8 is
          end;
       end if;
 
-      Start_Association (Constr, Info.Ortho_Func);
+      Start_Association (Constr, Info.Subprg_Node);
 
       if Is_Function and then Info.Res_Interface /= O_Dnode_Null then
          --  Composite result.
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads
index f652f84c7..39a0bf220 100644
--- a/src/vhdl/translate/trans.ads
+++ b/src/vhdl/translate/trans.ads
@@ -1205,7 +1205,7 @@ package Trans is
             Use_Stack2 : Boolean := False;
 
             --  Subprogram declaration node.
-            Ortho_Func : O_Dnode;
+            Subprg_Node : O_Dnode;
 
             --  For a function:
             --    If the return value is not composite, then this field
diff --git a/src/vhdl/translate/translation.adb b/src/vhdl/translate/translation.adb
index b6bf0ac7b..0a307a3d9 100644
--- a/src/vhdl/translate/translation.adb
+++ b/src/vhdl/translate/translation.adb
@@ -47,7 +47,7 @@ package body Translation is
 
    function Get_Ortho_Decl (Subprg : Iir) return O_Dnode is
    begin
-      return Get_Info (Subprg).Ortho_Func;
+      return Get_Info (Subprg).Subprg_Node;
    end Get_Ortho_Decl;
 
    function Get_Resolv_Ortho_Decl (Func : Iir) return O_Dnode