diff options
Diffstat (limited to 'gcc/ada/inline.adb')
| -rw-r--r-- | gcc/ada/inline.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/inline.adb b/gcc/ada/inline.adb index aa99201..7096f7c 100644 --- a/gcc/ada/inline.adb +++ b/gcc/ada/inline.adb @@ -1187,7 +1187,7 @@ package body Inline is -- Return True if subprogram Id defines a compilation unit -- Shouldn't this be in Sem_Aux??? - function In_Package_Spec (Id : Node_Id) return Boolean; + function In_Package_Spec (Id : Entity_Id) return Boolean; -- Return True if subprogram Id is defined in the package specification, -- either its visible or private part. @@ -1292,7 +1292,7 @@ package body Inline is -- In_Package_Spec -- --------------------- - function In_Package_Spec (Id : Node_Id) return Boolean is + function In_Package_Spec (Id : Entity_Id) return Boolean is P : constant Node_Id := Parent (Subprogram_Spec (Id)); -- Parent of the subprogram's declaration |