diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:24:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-08 11:24:38 +0000 |
| commit | 1e918968a0fdc11c6198c2bb246c8ddff11baa61 (patch) | |
| tree | f74f83c31f0cf4f9225914020efb075b0cdd660d /gcc/ada/s-intman-vxworks.adb | |
| parent | 86b097cd8e1ad309be46ab674ec37aabbda0f145 (diff) | |
| download | gcc-1e918968a0fdc11c6198c2bb246c8ddff11baa61.tar.gz | |
* s-intman-vxworks.adb (Notify_Exception): removed useless check for
current task being suspended.
* init.c (__gnat_clear_exception): added to reset VxWorks exception
count.
(__gnat_map_signal): removed test for current task being suspended.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@91873 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-intman-vxworks.adb')
| -rw-r--r-- | gcc/ada/s-intman-vxworks.adb | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/gcc/ada/s-intman-vxworks.adb b/gcc/ada/s-intman-vxworks.adb index 411d86d0ae0..eae409b9195 100644 --- a/gcc/ada/s-intman-vxworks.adb +++ b/gcc/ada/s-intman-vxworks.adb @@ -86,7 +86,6 @@ package body System.Interrupt_Management is procedure Notify_Exception (signo : Signal) is Mask : aliased sigset_t; - My_Id : t_id; Result : int; pragma Unreferenced (Result); @@ -96,16 +95,6 @@ package body System.Interrupt_Management is Result := sigdelset (Mask'Access, signo); Result := pthread_sigmask (SIG_SETMASK, Mask'Unchecked_Access, null); - -- VxWorks will suspend the task when it gets a hardware - -- exception. We take the liberty of resuming the task - -- for the application. - - My_Id := taskIdSelf; - - if taskIsSuspended (My_Id) /= 0 then - Result := taskResume (My_Id); - end if; - Map_And_Raise_Exception (signo); end Notify_Exception; |