From 88e7531bebc927b249c2055caddcb93c43359820 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 15 May 2012 11:29:46 +0200 Subject: [multiple changes] 2012-05-15 Robert Dewar * g-comlin.adb, g-comlin.ads: Minor reformatting. 2012-05-15 Vincent Pucci * aspects.adb, aspects.adb: Reordering of the Aspect_Idi list. New aspect Aspect_Lock_Free. * einfo.adb, einfo.ads: New flag Uses_Lock_Free (flag 188). (Set_Uses_Lock_Free): New routine. (Uses_Lock_Free): New routine. * exp_ch7.adb (Is_Simple_Protected_Type): Return False for lock-free implementation. * exp_ch9.adb (Allows_Lock_Free_Implementation): Moved to Sem_Ch9. (Build_Lock_Free_Unprotected_Subprogram_Body): Protected procedure uses __sync_synchronise. Check both Object_Size and Value_Size. (Expand_N_Protected_Body): Lock_Free_Active renames Lock_Free_On. (Expand_N_Protected_Type_Declaration): _Object field removed for lock-free implementation. (Install_Private_Data_Declarations): Protection object removed for lock-free implementation. (Make_Initialize_Protection): Protection object initialization removed for lock-free implementation. * rtsfind.ads: RE_Atomic_Synchronize and RE_Relaxed added. * sem_ch13.adb (Analyze_Aspect_Specifications): Aspect_Lock_Free analysis added. * sem_ch9.adb (Allows_Lock_Free_Implementation): New routine. (Analyze_Protected_Body): Allows_Lock_Free_Implementation call added. (Analyze_Protected_Type_Declaration): Allows_Lock_Free_Implementation call added. (Analyze_Single_Protected_Declaration): Second analysis of aspects removed. * s-atopri.ads: Header added. (Atomic_Synchronize): New routine. 2012-05-15 Robert Dewar * exp_ch7.ads: Add comment. From-SVN: r187505 --- gcc/ada/rtsfind.ads | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'gcc/ada/rtsfind.ads') diff --git a/gcc/ada/rtsfind.ads b/gcc/ada/rtsfind.ads index e02f575..a01505c 100644 --- a/gcc/ada/rtsfind.ads +++ b/gcc/ada/rtsfind.ads @@ -739,6 +739,8 @@ package Rtsfind is RE_Atomic_Load_16, -- System.Atomic_Primitives RE_Atomic_Load_32, -- System.Atomic_Primitives RE_Atomic_Load_64, -- System.Atomic_Primitives + RE_Atomic_Synchronize, -- System.Atomic_Primitives + RE_Relaxed, -- System.Atomic_Primitives RE_Uint8, -- System.Atomic_Primitives RE_Uint16, -- System.Atomic_Primitives RE_Uint32, -- System.Atomic_Primitives @@ -1960,6 +1962,8 @@ package Rtsfind is RE_Atomic_Load_16 => System_Atomic_Primitives, RE_Atomic_Load_32 => System_Atomic_Primitives, RE_Atomic_Load_64 => System_Atomic_Primitives, + RE_Atomic_Synchronize => System_Atomic_Primitives, + RE_Relaxed => System_Atomic_Primitives, RE_Uint8 => System_Atomic_Primitives, RE_Uint16 => System_Atomic_Primitives, RE_Uint32 => System_Atomic_Primitives, -- cgit v1.1