working change ocaml#2

Author: DMaroo

otherlibs/systhreads/st_posix.h

@@ -435,7 +435,7 @@ static value st_encode_sigset(sigset_t * set)
   Begin_root(res)
     for (i = 1; i < NSIG; i++)
       if (sigismember(set, i) > 0) {
-        value newcons = caml_alloc_small(2, 0);
+        value newcons = caml_alloc(2, 0);
         Field(newcons, 0) = Val_int(caml_rev_convert_signal_number(i));
         Field(newcons, 1) = res;
         res = newcons;

otherlibs/systhreads/st_stubs.c

@@ -370,7 +370,7 @@ static value caml_thread_new_descriptor(value clos)
     /* Create and initialize the termination semaphore */
     mu = caml_threadstatus_new();
     /* Create a descriptor for the new thread */
-    descr = caml_alloc_small(3, 0);
+    descr = caml_alloc(3, 0);
     Ident(descr) = Val_long(thread_next_ident);
     Start_closure(descr) = clos;
     Terminated(descr) = mu;

otherlibs/unix/accept.c

@@ -49,7 +49,7 @@ CAMLprim value unix_accept(value cloexec, value sock)
 #endif
   a = alloc_sockaddr(&addr, addr_len, retcode);
   Begin_root (a);
-    res = caml_alloc_small(2, 0);
+    res = caml_alloc(2, 0);
     Field(res, 0) = Val_int(retcode);
     Field(res, 1) = a;
   End_roots();

otherlibs/unix/getaddrinfo.c

@@ -46,7 +46,7 @@ static value convert_addrinfo(struct addrinfo * a)
   memcpy(&sa.s_gen, a->ai_addr, len);
   vaddr = alloc_sockaddr(&sa, len, -1);
   vcanonname = caml_copy_string(a->ai_canonname == NULL ? "" : a->ai_canonname);
-  vres = caml_alloc_small(5, 0);
+  vres = caml_alloc(5, 0);
   Field(vres, 0) = cst_to_constr(a->ai_family, socket_domain_table, 3, 0);
   Field(vres, 1) = cst_to_constr(a->ai_socktype, socket_type_table, 4, 0);
   Field(vres, 2) = Val_int(a->ai_protocol);
@@ -117,7 +117,7 @@ CAMLprim value unix_getaddrinfo(value vnode, value vserv, value vopts)
   if (retcode == 0) {
     for (r = res; r != NULL; r = r->ai_next) {
       e = convert_addrinfo(r);
-      v = caml_alloc_small(2, 0);
+      v = caml_alloc(2, 0);
       Field(v, 0) = e;
       Field(v, 1) = vres;
       vres = v;

otherlibs/unix/getgr.c

@@ -33,7 +33,7 @@ static value alloc_group_entry(struct group *entry)
        hence this workaround */
     pass = caml_copy_string(entry->gr_passwd ? entry->gr_passwd : "");
     mem = caml_copy_string_array((const char**)entry->gr_mem);
-    res = caml_alloc_small(4, 0);
+    res = caml_alloc(4, 0);
     Field(res,0) = name;
     Field(res,1) = pass;
     Field(res,2) = Val_int(entry->gr_gid);

otherlibs/unix/gethost.c

@@ -71,7 +71,7 @@ static value alloc_host_entry(struct hostent *entry)
     entry_h_length = entry->h_length;
     addr_list =
       caml_alloc_array(alloc_one_addr, (const char**)entry->h_addr_list);
-    res = caml_alloc_small(4, 0);
+    res = caml_alloc(4, 0);
     Field(res, 0) = name;
     Field(res, 1) = aliases;
     switch (entry->h_addrtype) {

otherlibs/unix/getnameinfo.c

@@ -54,7 +54,7 @@ CAMLprim value unix_getnameinfo(value vaddr, value vopts)
   if (retcode != 0) caml_raise_not_found();
   vhost = caml_copy_string(host);
   vserv = caml_copy_string(serv);
-  vres = caml_alloc_small(2, 0);
+  vres = caml_alloc(2, 0);
   Field(vres, 0) = vhost;
   Field(vres, 1) = vserv;
   CAMLreturn(vres);

otherlibs/unix/getproto.c

@@ -33,7 +33,7 @@ static value alloc_proto_entry(struct protoent *entry)
   Begin_roots2 (name, aliases);
     name = caml_copy_string(entry->p_name);
     aliases = caml_copy_string_array((const char**)entry->p_aliases);
-    res = caml_alloc_small(3, 0);
+    res = caml_alloc(3, 0);
     Field(res,0) = name;
     Field(res,1) = aliases;
     Field(res,2) = Val_int(entry->p_proto);

otherlibs/unix/getpw.c

@@ -37,7 +37,7 @@ static value alloc_passwd_entry(struct passwd *entry)
 #endif
     dir = caml_copy_string(entry->pw_dir);
     shell = caml_copy_string(entry->pw_shell);
-    res = caml_alloc_small(7, 0);
+    res = caml_alloc(7, 0);
     Field(res,0) = name;
     Field(res,1) = passwd;
     Field(res,2) = Val_int(entry->pw_uid);

otherlibs/unix/getserv.c

@@ -38,7 +38,7 @@ static value alloc_service_entry(struct servent *entry)
     name = caml_copy_string(entry->s_name);
     aliases = caml_copy_string_array((const char**)entry->s_aliases);
     proto = caml_copy_string(entry->s_proto);
-    res = caml_alloc_small(4, 0);
+    res = caml_alloc(4, 0);
     Field(res,0) = name;
     Field(res,1) = aliases;
     Field(res,2) = Val_int(ntohs(entry->s_port));