diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:53:10 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-04 13:53:10 +0000 |
| commit | 3bf53ccd3e8eeeb2a845216353cae31f1c6fbc2f (patch) | |
| tree | 7ae55711277fcb735520f67dfdc77c9f5ac69055 /gcc/ada/s-taprop-vxworks.adb | |
| parent | 09ba36d90617bf2eba9338bf7e74376adb7e541f (diff) | |
| download | gcc-3bf53ccd3e8eeeb2a845216353cae31f1c6fbc2f.tar.gz | |
2010-10-04 Robert Dewar <dewar@adacore.com>
* s-taprop-vxworks.adb, sem_res.adb: Minor reformatting.
2010-10-04 Javier Miranda <miranda@adacore.com>
* exp_cg.adb (Write_Call_Info): Code clean up.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@164938 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-taprop-vxworks.adb')
| -rw-r--r-- | gcc/ada/s-taprop-vxworks.adb | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/s-taprop-vxworks.adb b/gcc/ada/s-taprop-vxworks.adb index 7380edd46b7..d5726ec66c6 100644 --- a/gcc/ada/s-taprop-vxworks.adb +++ b/gcc/ada/s-taprop-vxworks.adb @@ -1099,9 +1099,9 @@ package body System.Task_Primitives.Operations is Result : STATUS; begin - -- Set_True can be called from an interrupt context, in which case -- Abort_Defer is undefined. + if Is_Task_Context then SSL.Abort_Defer.all; end if; @@ -1129,6 +1129,7 @@ package body System.Task_Primitives.Operations is -- Set_True can be called from an interrupt context, in which case -- Abort_Undefer is undefined. + if Is_Task_Context then SSL.Abort_Undefer.all; end if; @@ -1336,9 +1337,9 @@ package body System.Task_Primitives.Operations is function Is_Task_Context return Boolean is function intContext return int; + pragma Import (C, intContext, "intContext"); -- Binding to the C routine intContext. This function returns 1 only -- if the current execution state is an interrupt context. - pragma Import (C, intContext, "intContext"); begin return intContext /= 1; end Is_Task_Context; |