Thanks, The change is fine. FTR, the original change you're referring to is r11-902-gb68c1670b7d40b.
Do you have write access to git? Marc Estevan Castilho <estevan....@gmail.com> writes: > From: "Estevan Castilho (Tevo)" <estevan....@gmail.com> > > --- > gcc/ada/libgnarl/s-taprop__dummy.adb | 11 ++--------- > 1 file changed, 2 insertions(+), 9 deletions(-) > > diff --git a/gcc/ada/libgnarl/s-taprop__dummy.adb > b/gcc/ada/libgnarl/s-taprop__dummy.adb > index 68ec8b448ba..2127fb1f1b1 100644 > --- a/gcc/ada/libgnarl/s-taprop__dummy.adb > +++ b/gcc/ada/libgnarl/s-taprop__dummy.adb > @@ -37,7 +37,6 @@ > package body System.Task_Primitives.Operations is > > use System.OS_Locks; > - use System.Parameters; > use System.Tasking; > > pragma Warnings (Off); > @@ -483,10 +482,7 @@ package body System.Task_Primitives.Operations is > null; > end Unlock; > > - procedure Unlock > - (L : not null access RTS_Lock; > - Global_Lock : Boolean := False) > - is > + procedure Unlock (L : not null access RTS_Lock) is > begin > null; > end Unlock; > @@ -525,10 +521,7 @@ package body System.Task_Primitives.Operations is > Ceiling_Violation := False; > end Write_Lock; > > - procedure Write_Lock > - (L : not null access RTS_Lock; > - Global_Lock : Boolean := False) > - is > + procedure Write_Lock (L : not null access RTS_Lock) is > begin > null; > end Write_Lock;
