[Slackbuilds-users] Patch for builiding ocaml-3.11.1 on Slackware 14.0

[Arrigo Marchiori]

Hello,

on my Slackware 14.0 system (packages installed from DVD) ocaml did
not build. The error message was the same as this Gentoo bug report:
https://bugs.gentoo.org/show_bug.cgi?id=361767

I could make up a patch from this commit:
http://caml.inria.fr/cgi-bin/viewvc.cgi?view=revision&revision=10980
You can find it attached.

To apply it, I added the following line before the configure in
ocaml.SlackBuild:

patch -p0 < $CWD/patch.txt

Please note I don't know OCaml at all; I just needed it to build
unison. I only know that, after applying this patch, the build problem
disappeared.

If you need any more information feel free to ask, but please send
e-mails to me directly, as I am not subscribed to the list.

HTH.
-- 
rigo

http://rigo.altervista.org
-------------- next part --------------
--- asmcomp/i386/emit.mlp	2011/03/10 06:27:24	10979
+++ asmcomp/i386/emit.mlp	2011/03/13 13:33:17	10980
@@ -905,12 +905,12 @@
   emit_all true fundecl.fun_body;
   List.iter emit_call_gc !call_gc_sites;
   emit_call_bound_errors ();
-  List.iter emit_float_constant !float_constants;
-  match Config.system with
+  begin match Config.system with
     "linux_elf" | "bsd_elf" | "gnu" ->
       `	.type	{emit_symbol fundecl.fun_name}, at function\n`;
       `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
-  | _ -> ()
+  | _ -> () end;
+  List.iter emit_float_constant !float_constants
 
 
 (* Emission of data *)
--- asmcomp/amd64/emit.mlp	2011/03/10 06:27:24	10979
+++ asmcomp/amd64/emit.mlp	2011/03/13 13:33:17	10980
@@ -691,17 +691,18 @@
   emit_all true fundecl.fun_body;
   List.iter emit_call_gc !call_gc_sites;
   emit_call_bound_errors ();
+  begin match Config.system with
+    "linux" | "gnu" ->
+      `	.type	{emit_symbol fundecl.fun_name}, at function\n`;
+      `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
+    | _ -> ()
+  end;
   if !float_constants <> [] then begin
     if macosx
     then `	.literal8\n`
     else `	.section	.rodata.cst8,\"a\", at progbits\n`;
     List.iter emit_float_constant !float_constants
-  end;
-  match Config.system with
-    "linux" | "gnu" ->
-      `	.type	{emit_symbol fundecl.fun_name}, at function\n`;
-      `	.size	{emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
-  | _ -> ()
+  end
 
 (* Emission of data *)