diff options
Diffstat (limited to 'gcc/ada/sem_aux.adb')
-rw-r--r-- | gcc/ada/sem_aux.adb | 73 |
1 files changed, 26 insertions, 47 deletions
diff --git a/gcc/ada/sem_aux.adb b/gcc/ada/sem_aux.adb index 5232696..0ba4598 100644 --- a/gcc/ada/sem_aux.adb +++ b/gcc/ada/sem_aux.adb @@ -438,42 +438,24 @@ package body Sem_Aux is function Get_Binary_Nkind (Op : Entity_Id) return Node_Kind is begin case Chars (Op) is - when Name_Op_Add => - return N_Op_Add; - when Name_Op_Concat => - return N_Op_Concat; - when Name_Op_Expon => - return N_Op_Expon; - when Name_Op_Subtract => - return N_Op_Subtract; - when Name_Op_Mod => - return N_Op_Mod; - when Name_Op_Multiply => - return N_Op_Multiply; - when Name_Op_Divide => - return N_Op_Divide; - when Name_Op_Rem => - return N_Op_Rem; - when Name_Op_And => - return N_Op_And; - when Name_Op_Eq => - return N_Op_Eq; - when Name_Op_Ge => - return N_Op_Ge; - when Name_Op_Gt => - return N_Op_Gt; - when Name_Op_Le => - return N_Op_Le; - when Name_Op_Lt => - return N_Op_Lt; - when Name_Op_Ne => - return N_Op_Ne; - when Name_Op_Or => - return N_Op_Or; - when Name_Op_Xor => - return N_Op_Xor; - when others => - raise Program_Error; + when Name_Op_Add => return N_Op_Add; + when Name_Op_Concat => return N_Op_Concat; + when Name_Op_Expon => return N_Op_Expon; + when Name_Op_Subtract => return N_Op_Subtract; + when Name_Op_Mod => return N_Op_Mod; + when Name_Op_Multiply => return N_Op_Multiply; + when Name_Op_Divide => return N_Op_Divide; + when Name_Op_Rem => return N_Op_Rem; + when Name_Op_And => return N_Op_And; + when Name_Op_Eq => return N_Op_Eq; + when Name_Op_Ge => return N_Op_Ge; + when Name_Op_Gt => return N_Op_Gt; + when Name_Op_Le => return N_Op_Le; + when Name_Op_Lt => return N_Op_Lt; + when Name_Op_Ne => return N_Op_Ne; + when Name_Op_Or => return N_Op_Or; + when Name_Op_Xor => return N_Op_Xor; + when others => raise Program_Error; end case; end Get_Binary_Nkind; @@ -663,16 +645,11 @@ package body Sem_Aux is function Get_Unary_Nkind (Op : Entity_Id) return Node_Kind is begin case Chars (Op) is - when Name_Op_Abs => - return N_Op_Abs; - when Name_Op_Subtract => - return N_Op_Minus; - when Name_Op_Not => - return N_Op_Not; - when Name_Op_Add => - return N_Op_Plus; - when others => - raise Program_Error; + when Name_Op_Abs => return N_Op_Abs; + when Name_Op_Subtract => return N_Op_Minus; + when Name_Op_Not => return N_Op_Not; + when Name_Op_Add => return N_Op_Plus; + when others => raise Program_Error; end case; end Get_Unary_Nkind; @@ -1556,7 +1533,9 @@ package body Sem_Aux is when N_Subprogram_Body => return E; - when N_Subprogram_Declaration | N_Subprogram_Body_Stub => + when N_Subprogram_Body_Stub + | N_Subprogram_Declaration + => return Corresponding_Body (N); when others => |