summaryrefslogtreecommitdiff
path: root/gcc/ada/i-vxwoio.ads
diff options
context:
space:
mode:
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-19 10:47:49 +0000
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>2009-06-19 10:47:49 +0000
commitddbf7f2e4844855b0f011110ca885a965552616b (patch)
tree31da1477689d9bd7c842a6bbc41616f2437f5d87 /gcc/ada/i-vxwoio.ads
parenta781c0fc71e1bf32c083c8c409f5821f764b1501 (diff)
downloadgcc-ddbf7f2e4844855b0f011110ca885a965552616b.tar.gz
2009-06-19 Thomas Quinot <quinot@adacore.com>
* i-vxwoio.ads: Add comments 2009-06-19 Thomas Quinot <quinot@adacore.com> * socket.c, g-socthi-vms.adb, g-socthi-vms.ads, g-socthi-vxworks.adb, g-socthi-vxworks.ads, g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi.adb, g-socthi.ads, g-socket.adb, g-sothco.ads (GNAT.Sockets.Thin.C_Ioctl): Rename to Socket_Ioctl. (GNAT.Sockets.Thin.Socket_Ioctl): Use new function Thin_Common.Socket_Ioctl. (GNAT.Sockets.Thin_Common.Socket_Ioctl): Binding to new C wrapper __gnat_socket_ioctl. (__gnat_socket_ioctl): Wrapper for ioctl(2) called with a single int* argument after the file descriptor and request code. 2009-06-19 Robert Dewar <dewar@adacore.com> * checks.adb: Minor reformatting git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@148694 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-vxwoio.ads')
-rw-r--r--gcc/ada/i-vxwoio.ads7
1 files changed, 5 insertions, 2 deletions
diff --git a/gcc/ada/i-vxwoio.ads b/gcc/ada/i-vxwoio.ads
index 79aca27ad19..dc695469692 100644
--- a/gcc/ada/i-vxwoio.ads
+++ b/gcc/ada/i-vxwoio.ads
@@ -53,8 +53,8 @@ package Interfaces.VxWorks.IO is
type IOOPT is mod 2 ** int'Size;
-- Type of the option codes in ioctl
- -- ioctl function codes
- -- For more information see ioLib.h
+ -- ioctl function codes (for more information see ioLib.h)
+ -- These values could be generated automatically in System.OS_Constants???
FIONREAD : constant FUNCODE := 1;
FIOFLUSH : constant FUNCODE := 2;
@@ -129,6 +129,9 @@ package Interfaces.VxWorks.IO is
function ioctl (Fd : int; Function_Code : FUNCODE; Arg : IOOPT) return int;
pragma Import (C, ioctl, "ioctl");
-- Binding to the C routine ioctl
+ --
+ -- Note: we are taking advantage of the fact that on currently supported
+ -- VxWorks targets, it is fine to directly bind to a variadic C function.
------------------------------
-- Control of Get_Immediate --