diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 12:42:43 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-07-07 12:42:43 +0000 |
| commit | 063ed58ba58dbc58df2d0e1176dc962f0ffd7c45 (patch) | |
| tree | b7d0419a6b1561d3e0b6744e89abd1f3e5bb63bd /gcc/ada/s-tpopsp-posix-foreign.adb | |
| parent | 6ecef78852742a5294ce9e5ece9d0cd92af18db9 (diff) | |
| download | gcc-063ed58ba58dbc58df2d0e1176dc962f0ffd7c45.tar.gz | |
2009-07-07 Robert Dewar <dewar@adacore.com>
* a-calend.adb: Minor code reorganization (use conditional expressions)
* s-stusta.ads, s-interr-hwint.adb, g-expect-vms.adb, s-secsta.ads,
prj-nmsc.adb, a-teioed.adb, output.ads, prj-attr.ads, a-textio.adb,
s-taskin.ads, scans.ads, s-osinte-vms.adb, s-taprop-solaris.adb,
s-tpopsp-posix-foreign.adb, s-trafor-default.adb, gnat1drv.adb,
s-stchop-vxworks.adb, s-tpopsp-posix.adb, prj-env.adb, prj-env.ads,
g-comlin.adb, exp_ch11.adb: Minor reformatting.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149320 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-tpopsp-posix-foreign.adb')
| -rw-r--r-- | gcc/ada/s-tpopsp-posix-foreign.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/s-tpopsp-posix-foreign.adb b/gcc/ada/s-tpopsp-posix-foreign.adb index 910152ad7f1..c987f6e27f3 100644 --- a/gcc/ada/s-tpopsp-posix-foreign.adb +++ b/gcc/ada/s-tpopsp-posix-foreign.adb @@ -94,7 +94,7 @@ package body Specific is begin Result := pthread_getspecific (ATCB_Key); - -- If the key value is Null, then it is a non-Ada task. + -- If the key value is Null then it is a non-Ada task if Result /= System.Null_Address then return To_Task_Id (Result); |