diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-19 11:06:38 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2009-06-19 11:06:38 +0000 |
| commit | 06d55417eceb1645957a85d9d41110e2b41a5bfb (patch) | |
| tree | d1b1aca8974c54626381576c7bc5a3ac4e072db5 /gcc/ada/s-vxwext.ads | |
| parent | 341bd953dd179dacec3648ffc315c01ae8f6be39 (diff) | |
| download | gcc-06d55417eceb1645957a85d9d41110e2b41a5bfb.tar.gz | |
2009-06-19 Ed Falis <falis@adacore.com>
* a-einuoc.ads, s-osinte-vxworks.ads, s-vxwext.ads, s-vxwext-kernel.adb,
s-vxwext-kernel.ads, s-vxwext-rtp.ads: Code clean up.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148698 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/s-vxwext.ads')
| -rw-r--r-- | gcc/ada/s-vxwext.ads | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/s-vxwext.ads b/gcc/ada/s-vxwext.ads index dc23cd26d07..6f17b41f8da 100644 --- a/gcc/ada/s-vxwext.ads +++ b/gcc/ada/s-vxwext.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2008-2009, Free Software Foundation, Inc. -- -- -- -- GNARL is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -36,6 +36,9 @@ with Interfaces.C; package System.VxWorks.Ext is pragma Preelaborate; + type SEM_ID is new Long_Integer; + -- typedef struct semaphore *SEM_ID; + type t_id is new Long_Integer; subtype int is Interfaces.C.int; @@ -60,6 +63,9 @@ package System.VxWorks.Ext is (intNum : int) return Interrupt_Vector; pragma Import (C, Interrupt_Number_To_Vector, "__gnat_inum_to_ivec"); + function semDelete (Sem : SEM_ID) return int; + pragma Import (C, semDelete, "semDelete"); + function Task_Cont (tid : t_id) return int; pragma Import (C, Task_Cont, "taskResume"); |