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-osinte-vxworks.ads | |
| parent | 341bd953dd179dacec3648ffc315c01ae8f6be39 (diff) | |
| download | ppe42-gcc-06d55417eceb1645957a85d9d41110e2b41a5bfb.tar.gz ppe42-gcc-06d55417eceb1645957a85d9d41110e2b41a5bfb.zip | |
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-osinte-vxworks.ads')
| -rw-r--r-- | gcc/ada/s-osinte-vxworks.ads | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/s-osinte-vxworks.ads b/gcc/ada/s-osinte-vxworks.ads index c295b19b0b4..81fc71f1cab 100644 --- a/gcc/ada/s-osinte-vxworks.ads +++ b/gcc/ada/s-osinte-vxworks.ads @@ -7,7 +7,7 @@ -- S p e c -- -- -- -- Copyright (C) 1991-1994, Florida State University -- --- Copyright (C) 1995-2008, Free Software Foundation, Inc. -- +-- Copyright (C) 1995-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- -- @@ -406,7 +406,7 @@ package System.OS_Interface is -- semTake() timeout with ticks > NO_WAIT S_objLib_OBJ_TIMEOUT : constant := M_objLib + 4; - type SEM_ID is new System.Address; + subtype SEM_ID is System.VxWorks.Ext.SEM_ID; -- typedef struct semaphore *SEM_ID; -- We use two different kinds of VxWorks semaphores: mutex and binary @@ -420,8 +420,8 @@ package System.OS_Interface is function semMCreate (options : int) return SEM_ID; pragma Import (C, semMCreate, "semMCreate"); - function semDelete (Sem : SEM_ID) return int; - pragma Import (C, semDelete, "semDelete"); + function semDelete (Sem : SEM_ID) return int + renames System.VxWorks.Ext.semDelete; -- Delete a semaphore function semGive (Sem : SEM_ID) return int; |
