diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1995-10-31 15:57:59 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1995-10-31 15:57:59 +0000 |
| commit | 163afaa67bae8f0ff5d0edb1f5840deec25ae7a7 (patch) | |
| tree | bb1d8b37fc61d2158eb2b59dc52a28105133b259 /otherlibs/unix | |
| parent | f7f1a2fe60457b540733c144e6567b7dcf501beb (diff) | |
Le type inet_addr est represente comme une chaine, pour pouvoir passer
dans output_value.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@383 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix')
| -rw-r--r-- | otherlibs/unix/socketaddr.c | 2 | ||||
| -rw-r--r-- | otherlibs/unix/socketaddr.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/unix/socketaddr.c b/otherlibs/unix/socketaddr.c index f2c2c6730..13b772ffa 100644 --- a/otherlibs/unix/socketaddr.c +++ b/otherlibs/unix/socketaddr.c @@ -26,7 +26,7 @@ value alloc_inet_addr(a) unsigned int a; { value res; - res = alloc(1, Abstract_tag); + res = alloc_string(sizeof(uint32)); GET_INET_ADDR(res) = a; return res; } diff --git a/otherlibs/unix/socketaddr.h b/otherlibs/unix/socketaddr.h index 3d09c5689..1a65c7891 100644 --- a/otherlibs/unix/socketaddr.h +++ b/otherlibs/unix/socketaddr.h @@ -29,4 +29,4 @@ void get_sockaddr P((value)); value alloc_sockaddr P((void)); value alloc_inet_addr P((unsigned int)); -#define GET_INET_ADDR(v) (*((unsigned long *) (v))) +#define GET_INET_ADDR(v) (*((uint32 *) (v))) |