diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-12 10:49:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-07-12 10:49:10 +0000 |
| commit | aee191caa038c79baa7fafea4ae2516312ae508e (patch) | |
| tree | 9754099aee8625dc123639e1fe1bb60689179ee3 /gcc/ada/s-atopri.adb | |
| parent | da2e82e93b2eea1ceb9313addf4168df97736c6c (diff) | |
| download | gcc-aee191caa038c79baa7fafea4ae2516312ae508e.tar.gz | |
2012-07-12 Robert Dewar <dewar@adacore.com>
* s-atopri.adb, s-atopri.ads: Minor reformatting.
2012-07-12 Robert Dewar <dewar@adacore.com>
* ali.adb: Add circuitry to read new named form of restrictions lines.
* debug.adb: Add doc for new -gnatd.R switch (used positional
notation for output of restrictions data in ali file).
* lib-writ.adb: Implement new named format for restrictions lines.
* lib-writ.ads: Add documentation for new named format for
restrictions in ali files.
* restrict.adb, restrict.ads, sem_prag.adb: Update comments.
* rident.ads: Go back to withing System.Rident
* s-rident.ads: Add extensive comment on dealing with consistency
checking.
2012-07-12 Thomas Quinot <quinot@adacore.com>
* par_sco.adb, scos.ads: Emit detailed SCOs for SELECT statements.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@189438 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-atopri.adb')
| -rw-r--r-- | gcc/ada/s-atopri.adb | 25 |
1 files changed, 13 insertions, 12 deletions
diff --git a/gcc/ada/s-atopri.adb b/gcc/ada/s-atopri.adb index af52128d7de..ed5ca536e13 100644 --- a/gcc/ada/s-atopri.adb +++ b/gcc/ada/s-atopri.adb @@ -30,14 +30,15 @@ ------------------------------------------------------------------------------ package body System.Atomic_Primitives is + --------------------------- -- Lock_Free_Try_Write_8 -- --------------------------- function Lock_Free_Try_Write_8 - (Ptr : Address; - Expected : in out uint8; - Desired : uint8) return Boolean + (Ptr : Address; + Expected : in out uint8; + Desired : uint8) return Boolean is Actual : uint8; @@ -59,9 +60,9 @@ package body System.Atomic_Primitives is ---------------------------- function Lock_Free_Try_Write_16 - (Ptr : Address; - Expected : in out uint16; - Desired : uint16) return Boolean + (Ptr : Address; + Expected : in out uint16; + Desired : uint16) return Boolean is Actual : uint16; @@ -83,9 +84,9 @@ package body System.Atomic_Primitives is ---------------------------- function Lock_Free_Try_Write_32 - (Ptr : Address; - Expected : in out uint32; - Desired : uint32) return Boolean + (Ptr : Address; + Expected : in out uint32; + Desired : uint32) return Boolean is Actual : uint32; @@ -107,9 +108,9 @@ package body System.Atomic_Primitives is ---------------------------- function Lock_Free_Try_Write_64 - (Ptr : Address; - Expected : in out uint64; - Desired : uint64) return Boolean + (Ptr : Address; + Expected : in out uint64; + Desired : uint64) return Boolean is Actual : uint64; |