summaryrefslogtreecommitdiffstats
path: root/otherlibs/win32unix
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/win32unix')
-rw-r--r--otherlibs/win32unix/accept.c4
-rw-r--r--otherlibs/win32unix/pipe.c4
-rw-r--r--otherlibs/win32unix/select.c6
-rw-r--r--otherlibs/win32unix/sendrecv.c4
-rw-r--r--otherlibs/win32unix/system.c4
-rw-r--r--otherlibs/win32unix/unixsupport.c8
-rw-r--r--otherlibs/win32unix/windir.c4
-rw-r--r--otherlibs/win32unix/winwait.c4
8 files changed, 19 insertions, 19 deletions
diff --git a/otherlibs/win32unix/accept.c b/otherlibs/win32unix/accept.c
index 89f5d3976..10b0f7b1a 100644
--- a/otherlibs/win32unix/accept.c
+++ b/otherlibs/win32unix/accept.c
@@ -5,7 +5,7 @@
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -39,7 +39,7 @@ value unix_accept(sock) /* ML */
Begin_roots2 (fd, adr)
fd = win_alloc_handle((HANDLE) snew);
adr = alloc_sockaddr();
- res = alloc_tuple(2);
+ res = alloc_small(2, 0);
Field(res, 0) = fd;
Field(res, 1) = adr;
End_roots();
diff --git a/otherlibs/win32unix/pipe.c b/otherlibs/win32unix/pipe.c
index 411a76bad..0cba882f8 100644
--- a/otherlibs/win32unix/pipe.c
+++ b/otherlibs/win32unix/pipe.c
@@ -5,7 +5,7 @@
/* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -35,7 +35,7 @@ value unix_pipe(value unit) /* ML */
Begin_roots2(readfd, writefd)
readfd = win_alloc_handle(readh);
writefd = win_alloc_handle(writeh);
- res = alloc_tuple(2);
+ res = alloc_small(2, 0);
Field(res, 0) = readfd;
Field(res, 1) = writefd;
End_roots();
diff --git a/otherlibs/win32unix/select.c b/otherlibs/win32unix/select.c
index ca12b93ce..dae268f0c 100644
--- a/otherlibs/win32unix/select.c
+++ b/otherlibs/win32unix/select.c
@@ -5,7 +5,7 @@
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -34,7 +34,7 @@ static value fdset_to_fdlist(value fdlist, fd_set *fdset)
for (/*nothing*/; fdlist != Val_int(0); fdlist = Field(fdlist, 1)) {
value s = Field(fdlist, 0);
if (FD_ISSET((SOCKET) Handle_val(s), fdset)) {
- value newres = alloc(2, 0);
+ value newres = alloc_small(2, 0);
Field(newres, 0) = s;
Field(newres, 1) = res;
res = newres;
@@ -74,7 +74,7 @@ value unix_select(value readfds, value writefds, value exceptfds, value timeout)
read_list = fdset_to_fdlist(readfds, &read);
write_list = fdset_to_fdlist(writefds, &write);
except_list = fdset_to_fdlist(exceptfds, &except);
- res = alloc_tuple(3);
+ res = alloc_small(3, 0);
Field(res, 0) = read_list;
Field(res, 1) = write_list;
Field(res, 2) = except_list;
diff --git a/otherlibs/win32unix/sendrecv.c b/otherlibs/win32unix/sendrecv.c
index 81721e68f..b8edd1e1b 100644
--- a/otherlibs/win32unix/sendrecv.c
+++ b/otherlibs/win32unix/sendrecv.c
@@ -5,7 +5,7 @@
/* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -61,7 +61,7 @@ value unix_recvfrom(value sock, value buff, value ofs, value len, value flags) /
if (ret == -1) unix_error(WSAGetLastError(), "recvfrom", Nothing);
bcopy(iobuf, &Byte(buff, Long_val(ofs)), ret);
adr = alloc_sockaddr();
- res = alloc_tuple(2);
+ res = alloc_small(2, 0);
Field(res, 0) = Val_int(ret);
Field(res, 1) = adr;
End_roots();
diff --git a/otherlibs/win32unix/system.c b/otherlibs/win32unix/system.c
index de4f14d07..3eae3e28f 100644
--- a/otherlibs/win32unix/system.c
+++ b/otherlibs/win32unix/system.c
@@ -5,7 +5,7 @@
/* Xavier Leroy and Pascal Cuoq, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -29,7 +29,7 @@ value win_system(cmd) /* ML */
ret = system(String_val(cmd));;
leave_blocking_section();
if (ret == -1) uerror("system", Nothing);
- st = alloc(1, 0); /* Tag 0: Exited */
+ st = alloc_small(1, 0); /* Tag 0: Exited */
Field(st, 0) = Val_int(ret);
return st;
}
diff --git a/otherlibs/win32unix/unixsupport.c b/otherlibs/win32unix/unixsupport.c
index e631ccbdb..2d1cfd5f2 100644
--- a/otherlibs/win32unix/unixsupport.c
+++ b/otherlibs/win32unix/unixsupport.c
@@ -5,7 +5,7 @@
/* Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -25,7 +25,7 @@
value win_alloc_handle(HANDLE h)
{
- value res = alloc(sizeof(HANDLE) / sizeof(value), Abstract_tag);
+ value res = alloc_small(sizeof(HANDLE) / sizeof(value), Abstract_tag);
Handle_val(res) = h;
return res;
}
@@ -100,7 +100,7 @@ void unix_error(int errcode, char *cmdname, value cmdarg)
errconstr =
cst_to_constr(errcode, error_table, sizeof(error_table)/sizeof(int), -1);
if (errconstr == Val_int(-1)) {
- err = alloc(1, 0);
+ err = alloc_small(1, 0);
Field(err, 0) = Val_int(errcode);
} else {
err = errconstr;
@@ -110,7 +110,7 @@ void unix_error(int errcode, char *cmdname, value cmdarg)
if (unix_error_exn == NULL)
invalid_argument("Exception Unix.Unix_error not initialized, please link unix.cma");
}
- res = alloc(4, 0);
+ res = alloc_small(4, 0);
Field(res, 0) = *unix_error_exn;
Field(res, 1) = err;
Field(res, 2) = name;
diff --git a/otherlibs/win32unix/windir.c b/otherlibs/win32unix/windir.c
index 7009febeb..5c1761ec8 100644
--- a/otherlibs/win32unix/windir.c
+++ b/otherlibs/win32unix/windir.c
@@ -5,7 +5,7 @@
/* Pascal Cuoq, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -34,7 +34,7 @@ value win_findfirst(name) /* ML */
uerror("opendir", Nothing);
}
valname = copy_string(fileinfo.name);
- v = alloc_tuple(2);
+ v = alloc_small(2, 0);
Field(v,0) = valname;
Field(v,1) = Val_int(h);
End_roots();
diff --git a/otherlibs/win32unix/winwait.c b/otherlibs/win32unix/winwait.c
index efdaa182e..5fe51f90f 100644
--- a/otherlibs/win32unix/winwait.c
+++ b/otherlibs/win32unix/winwait.c
@@ -5,7 +5,7 @@
/* Pascal Cuoq and Xavier Leroy, projet Cristal, INRIA Rocquencourt */
/* */
/* Copyright 1996 Institut National de Recherche en Informatique et */
-/* Automatique. Distributed only by permission. */
+/* en Automatique. Distributed only by permission. */
/* */
/***********************************************************************/
@@ -25,7 +25,7 @@ static value alloc_process_status(HANDLE pid, int status)
st = alloc(1, 0);
Field(st, 0) = Val_int(status);
Begin_root (st);
- res = alloc_tuple(2);
+ res = alloc_small(2, 0);
Field(res, 0) = Val_long((long) pid);
Field(res, 1) = st;
End_roots();
generated by cgit v1.2.3-70-g09d2 (git 2.46.0) at 2025-03-25 01:18:28 +0000