diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:26:11 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-09-27 09:26:11 +0000 |
commit | d8e0897657312c7d0ff112d72297ed98a45a9229 (patch) | |
tree | 4774808744dba9de61e6e64c4a285b75b36bd6cc /gcc/ada/exp_ch9.adb | |
parent | d2500eb5291d59d84a61ef717bf1343e25d3b100 (diff) | |
download | ppe42-gcc-d8e0897657312c7d0ff112d72297ed98a45a9229.tar.gz ppe42-gcc-d8e0897657312c7d0ff112d72297ed98a45a9229.zip |
2011-09-27 Pascal Obry <obry@adacore.com>
* exp_ch9.adb, s-taspri-posix.ads: Minor reformatting.
2011-09-27 Pascal Obry <obry@adacore.com>
* s-osinte-aix.ads, s-osinte-darwin.ads, s-osinte-freebsd.ads,
s-osinte-hpux.ads, s-osinte-irix.ads,
s-osinte-solaris-posix.ads (pthread_rwlock_t): New definition alias of
pthread_mutex_t.
(pthread_rwlockattr_t): New definition alias of pthread_mutexattr_t.
* s-osinte-linux.ads (pthread_rwlock_t, pthread_rwlockattr_t,
pthread_rwlockattr_init, pthread_rwlockattr_destroy,
pthread_rwlockattr_setkind_np, pthread_rwlock_init,
pthread_rwlock_destroy, pthread_rwlock_rdlock,
pthread_rwlock_wrlock, pthread_rwlock_unlock): New.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@179250 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
-rw-r--r-- | gcc/ada/exp_ch9.adb | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index 2a8a46481cb..b8bcfaedc31 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -1690,7 +1690,7 @@ package body Exp_Ch9 is -- The parameter that designates the synchronized object in the call Actuals : constant List_Id := New_List; - -- the actuals in the entry call. + -- the actuals in the entry call Decls : constant List_Id := New_List; @@ -3008,7 +3008,7 @@ package body Exp_Ch9 is raise Program_Error; end case; - -- Establish link between subprogram body entity and source entry. + -- Establish link between subprogram body entity and source entry Set_Corresponding_Protected_Entry (Edef, Ent); @@ -8337,7 +8337,7 @@ package body Exp_Ch9 is Insert_After (Current_Node, Sub); Analyze (Sub); - -- build wrapper procedure for pre/postconditions. + -- build wrapper procedure for pre/postconditions Build_PPC_Wrapper (Comp_Id, N); @@ -10615,10 +10615,12 @@ package body Exp_Ch9 is Make_Defining_Identifier (Sloc (Tasktyp), Chars => New_External_Name (Tasknm, 'Z'))); - if Present (Taskdef) and then Has_Storage_Size_Pragma (Taskdef) and then - Is_Static_Expression (Expression (First ( - Pragma_Argument_Associations (Find_Task_Or_Protected_Pragma ( - Taskdef, Name_Storage_Size))))) + if Present (Taskdef) + and then Has_Storage_Size_Pragma (Taskdef) + and then + Is_Static_Expression (Expression (First ( + Pragma_Argument_Associations (Find_Task_Or_Protected_Pragma ( + Taskdef, Name_Storage_Size))))) then Size_Decl := Make_Object_Declaration (Loc, |