This is an automated email from the git hooks/post-receive script.

glondu pushed a commit to branch master
in repository labltk.

commit 033946f349c31a34b4c120c7d67f1f2aad6aeff0
Author: Stephane Glondu <st...@glondu.net>
Date:   Sun Jul 16 10:38:50 2017 +0200

    Fix for OCaml 4.05.0
---
 debian/patches/0001-Fix-for-ocaml-4.06.patch       |  49 +++
 .../0002-Fix-calls-to-caml_-functions.patch        | 405 +++++++++++++++++++++
 ...-does-not-exist-in-4.05.0-s-Makefile.conf.patch |  35 ++
 ...-Fix-change-of-signature-of-Texp_function.patch |  21 ++
 debian/patches/series                              |   4 +
 5 files changed, 514 insertions(+)

diff --git a/debian/patches/0001-Fix-for-ocaml-4.06.patch 
b/debian/patches/0001-Fix-for-ocaml-4.06.patch
new file mode 100644
index 0000000..9668af6
--- /dev/null
+++ b/debian/patches/0001-Fix-for-ocaml-4.06.patch
@@ -0,0 +1,49 @@
+From: Jacques Garrigue <garri...@math.nagoya-u.ac.jp>
+Date: Mon, 15 May 2017 22:30:37 +0900
+Subject: Fix for ocaml 4.06
+
+---
+ configure         | 2 +-
+ jpf/fileselect.ml | 2 +-
+ support/Makefile  | 2 +-
+ 3 files changed, 3 insertions(+), 3 deletions(-)
+
+diff --git a/configure b/configure
+index 1c58a4c..6c93d8a 100755
+--- a/configure
++++ b/configure
+@@ -158,7 +158,7 @@ else
+   has_tk=true
+ fi
+ 
+-cc=`cat $where/Makefile.config | grep '^NATIVECC=' | sed -e 's/^NATIVECC=//'`
++cc=`cat $where/Makefile.config | grep '^CC=' | sed -e 's/^CC=//'`
+ cclibs=`cat $where/Makefile.config | grep '^NATIVECCLIBS=' | sed -e 
's/^NATIVECCLIBS=//'`
+ export cc cclibs
+ 
+diff --git a/jpf/fileselect.ml b/jpf/fileselect.ml
+index 23aaeb6..0c51f4d 100644
+--- a/jpf/fileselect.ml
++++ b/jpf/fileselect.ml
+@@ -55,7 +55,7 @@ let myentry_create p ~variable =
+ let subshell cmd =
+   let r,w = pipe () in
+     match fork () with
+-      0 -> close r; dup2 ~src:w ~dst:stdout;
++      0 -> close r; dup2 w stdout;
+            execv ~prog:"/bin/sh" ~args:[| "/bin/sh"; "-c"; cmd |]
+     | id ->
+         close w;
+diff --git a/support/Makefile b/support/Makefile
+index 0be3668..9d88d02 100644
+--- a/support/Makefile
++++ b/support/Makefile
+@@ -84,7 +84,7 @@ clean:
+       $(CAMLOPT) -c $(COMPFLAGS) $<
+ 
+ .c.$(O):
+-      $(BYTECC) $(BYTECCCOMPOPTS) $(CCFLAGS) -c $<
++      $(CC) $(BYTECCCOMPOPTS) $(CCFLAGS) -c $<
+ 
+ tkthread.cmi: tkthread.mli
+       $(CAMLCOMP) $(COMPFLAGS) $(THFLAGS) $<
diff --git a/debian/patches/0002-Fix-calls-to-caml_-functions.patch 
b/debian/patches/0002-Fix-calls-to-caml_-functions.patch
new file mode 100644
index 0000000..e2d654c
--- /dev/null
+++ b/debian/patches/0002-Fix-calls-to-caml_-functions.patch
@@ -0,0 +1,405 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Sun, 16 Jul 2017 08:18:09 +0000
+Subject: Fix calls to caml_* functions
+
+---
+ support/cltkCaml.c  |  6 +++---
+ support/cltkDMain.c |  8 ++++----
+ support/cltkEval.c  | 20 ++++++++++----------
+ support/cltkEvent.c |  2 +-
+ support/cltkFile.c  |  2 +-
+ support/cltkImg.c   |  2 +-
+ support/cltkMain.c  | 14 +++++++-------
+ support/cltkMisc.c  |  8 ++++----
+ support/cltkTimer.c |  2 +-
+ support/cltkUtf.c   |  6 +++---
+ support/cltkVar.c   | 14 +++++++-------
+ support/cltkWait.c  | 12 ++++++------
+ 12 files changed, 48 insertions(+), 48 deletions(-)
+
+diff --git a/support/cltkCaml.c b/support/cltkCaml.c
+index 4234dde..9c2928a 100644
+--- a/support/cltkCaml.c
++++ b/support/cltkCaml.c
+@@ -39,7 +39,7 @@ int CamlCBCmd(ClientData clientdata, Tcl_Interp *interp,
+     int id;
+     if (Tcl_GetInt(interp, argv[1], &id) != TCL_OK)
+       return TCL_ERROR;
+-    callback2(*handler_code,Val_int(id),
++    caml_callback2(*handler_code,Val_int(id),
+               copy_string_list(argc - 2,(char **)&argv[2]));
+     /* Never fails (OCaml would have raised an exception) */
+     /* but result may have been set by callback */
+@@ -62,10 +62,10 @@ CAMLprim value camltk_return (value v)
+   return Val_unit;
+ }
+ 
+-/* Note: raise_with_string WILL copy the error message */
++/* Note: caml_raise_with_string WILL copy the error message */
+ CAMLprim void tk_error(const char *errmsg)
+ {
+-  raise_with_string(*tkerror_exn, errmsg);
++  caml_raise_with_string(*tkerror_exn, errmsg);
+ }
+ 
+ 
+diff --git a/support/cltkDMain.c b/support/cltkDMain.c
+index 58374d8..3edcb34 100644
+--- a/support/cltkDMain.c
++++ b/support/cltkDMain.c
+@@ -52,11 +52,11 @@ void invoke_pending_caml_signals (clientdata)
+      ClientData clientdata;
+ {
+   signal_events = 0;
+-  enter_blocking_section(); /* triggers signal handling */
++  caml_enter_blocking_section(); /* triggers signal handling */
+   /* Rearm timer */
+   Tk_CreateTimerHandler(SIGNAL_INTERVAL, invoke_pending_caml_signals, NULL);
+   signal_events = 1;
+-  leave_blocking_section();
++  caml_leave_blocking_section();
+ }
+ /* The following is taken from byterun/startup.c */
+ header_t atom_table[256];
+@@ -222,10 +222,10 @@ int Caml_Init(interp)
+       strcat(f, RCNAME);
+       if (0 == access(f,R_OK))
+         if (TCL_OK != Tcl_EvalFile(cltclinterp,f)) {
+-          stat_free(f);
++          caml_stat_free(f);
+           tk_error(Tcl_GetStringResult(cltclinterp));
+         };
+-      stat_free(f);
++      caml_stat_free(f);
+     }
+   }
+ 
+diff --git a/support/cltkEval.c b/support/cltkEval.c
+index c7a4348..87291e5 100644
+--- a/support/cltkEval.c
++++ b/support/cltkEval.c
+@@ -45,7 +45,7 @@ value copy_string_list(int argc, char **argv)
+   for (i = argc-1; i >= 0; i--) {
+     oldres = res;
+     str = tcl_string_to_caml(argv[i]);
+-    res = alloc(2, 0);
++    res = caml_alloc(2, 0);
+     Field(res, 0) = str;
+     Field(res, 1) = oldres;
+   }
+@@ -71,7 +71,7 @@ CAMLprim value camltk_tcl_eval(value str)
+   Tcl_ResetResult(cltclinterp);
+   cmd = caml_string_to_tcl(str);
+   code = Tcl_Eval(cltclinterp, cmd);
+-  stat_free(cmd);
++  caml_stat_free(cmd);
+ 
+   switch (code) {
+   case TCL_OK:
+@@ -128,7 +128,7 @@ int fill_args (char **argv, int where, value v)
+ 
+   switch (Tag_val(v)) {
+   case 0:
+-    argv[where] = caml_string_to_tcl(Field(v,0)); /* must free by stat_free */
++    argv[where] = caml_string_to_tcl(Field(v,0)); /* must free by 
caml_stat_free */
+     return (where + 1);
+   case 1:
+     for (l=Field(v,0); Is_block(l); l=Field(l,1))
+@@ -143,9 +143,9 @@ int fill_args (char **argv, int where, value v)
+       fill_args(tmpargv,0,Field(v,0));
+       tmpargv[size] = NULL;
+       merged = Tcl_Merge(size,(const char *const*)tmpargv);
+-      for(i = 0; i<size; i++){ stat_free(tmpargv[i]); }
+-      stat_free((char *)tmpargv);
+-      /* must be freed by stat_free */
++      for(i = 0; i<size; i++){ caml_stat_free(tmpargv[i]); }
++      caml_stat_free((char *)tmpargv);
++      /* must be freed by caml_stat_free */
+       argv[where] = (char*)caml_stat_alloc(strlen(merged)+1);
+       strcpy(argv[where], merged);
+       Tcl_Free(merged);
+@@ -176,7 +176,7 @@ CAMLprim value camltk_tcl_direct_eval(value v)
+   argv = (char **)caml_stat_alloc((size + 2) * sizeof(char *));
+   allocated = (char **)caml_stat_alloc(size * sizeof(char *));
+ 
+-  /* Copy -- argv[i] must be freed by stat_free */
++  /* Copy -- argv[i] must be freed by caml_stat_free */
+   {
+     int where;
+     for(i=0, where=0; i<Wosize_val(v); i++){
+@@ -227,10 +227,10 @@ CAMLprim value camltk_tcl_direct_eval(value v)
+ 
+   /* Free the various things we allocated */
+   for(i=0; i< size; i ++){
+-    stat_free((char *) allocated[i]);
++    caml_stat_free((char *) allocated[i]);
+   }
+-  stat_free((char *)argv);
+-  stat_free((char *)allocated);
++  caml_stat_free((char *)argv);
++  caml_stat_free((char *)allocated);
+ 
+   switch (result) {
+   case TCL_OK:
+diff --git a/support/cltkEvent.c b/support/cltkEvent.c
+index c9d0662..6ab2e6c 100644
+--- a/support/cltkEvent.c
++++ b/support/cltkEvent.c
+@@ -49,6 +49,6 @@ CAMLprim value camltk_dooneevent(value flags)
+ 
+   CheckInit();
+ 
+-  ret = Tk_DoOneEvent(convert_flag_list(flags, event_flag_table));
++  ret = Tk_DoOneEvent(caml_convert_flag_list(flags, event_flag_table));
+   return Val_int(ret);
+ }
+diff --git a/support/cltkFile.c b/support/cltkFile.c
+index c01f395..47b1bcf 100644
+--- a/support/cltkFile.c
++++ b/support/cltkFile.c
+@@ -33,7 +33,7 @@
+ 
+ void FileProc(ClientData clientdata, int mask)
+ {
+-  callback2(*handler_code,Val_int(clientdata),Val_int(0));
++  caml_callback2(*handler_code,Val_int(clientdata),Val_int(0));
+ }
+ 
+ /* Map Unix.file_descr values to Tcl file handles */
+diff --git a/support/cltkImg.c b/support/cltkImg.c
+index 310cb27..0537516 100644
+--- a/support/cltkImg.c
++++ b/support/cltkImg.c
+@@ -47,7 +47,7 @@ CAMLprim value camltk_getimgdata (value imgname) /* ML */
+ 
+   code = Tk_PhotoGetImage(ph,&pib); /* never fails ? */
+   size = pib.width * pib.height * pib.pixelSize;
+-  res = alloc_string(size);
++  res = caml_alloc_string(size);
+ 
+   /* no holes, default format ? */
+   if ((pib.pixelSize == 3) &&
+diff --git a/support/cltkMain.c b/support/cltkMain.c
+index 871a47a..9d65e11 100644
+--- a/support/cltkMain.c
++++ b/support/cltkMain.c
+@@ -51,11 +51,11 @@ int signal_events = 0; /* do we have a pending timer */
+ void invoke_pending_caml_signals (ClientData clientdata)
+ {
+   signal_events = 0;
+-  enter_blocking_section(); /* triggers signal handling */
++  caml_enter_blocking_section(); /* triggers signal handling */
+   /* Rearm timer */
+   Tk_CreateTimerHandler(SIGNAL_INTERVAL, invoke_pending_caml_signals, NULL);
+   signal_events = 1;
+-  leave_blocking_section();
++  caml_leave_blocking_section();
+ }
+ 
+ /* Now the real Tk stuff */
+@@ -77,7 +77,7 @@ CAMLprim value camltk_opentk(value argv)
+   tmp = Val_unit;
+ 
+   if ( argv == Val_int(0) ){
+-    failwith("camltk_opentk: argv is empty");
++    caml_failwith("camltk_opentk: argv is empty");
+   }
+   argv0 = String_val( Field( argv, 0 ) );
+ 
+@@ -91,7 +91,7 @@ CAMLprim value camltk_opentk(value argv)
+       /* Register cltclinterp for use in other related extensions */
+       value *interp = caml_named_value("cltclinterp");
+       if (interp != NULL)
+-        Store_field(*interp,0,copy_nativeint((intnat)cltclinterp));
++        Store_field(*interp,0,caml_copy_nativeint((intnat)cltclinterp));
+     }
+ 
+     if (Tcl_Init(cltclinterp) != TCL_OK)
+@@ -128,7 +128,7 @@ CAMLprim value camltk_opentk(value argv)
+         args = Tcl_Merge(argc, (const char *const*)tkargv); /* args must be 
freed by Tcl_Free */
+         Tcl_SetVar(cltclinterp, "argv", args, TCL_GLOBAL_ONLY);
+         Tcl_Free(args);
+-        stat_free( tkargv );
++        caml_stat_free( tkargv );
+       }
+     }
+     if (Tk_Init(cltclinterp) != TCL_OK)
+@@ -164,10 +164,10 @@ CAMLprim value camltk_opentk(value argv)
+       strcat(f, RCNAME);
+       if (0 == access(f,R_OK))
+         if (TCL_OK != Tcl_EvalFile(cltclinterp,f)) {
+-          stat_free(f);
++          caml_stat_free(f);
+           tk_error(Tcl_GetStringResult(cltclinterp));
+         };
+-      stat_free(f);
++      caml_stat_free(f);
+     }
+   }
+ 
+diff --git a/support/cltkMisc.c b/support/cltkMisc.c
+index 52c5d48..8d6b5f2 100644
+--- a/support/cltkMisc.c
++++ b/support/cltkMisc.c
+@@ -41,20 +41,20 @@ CAMLprim value camltk_splitlist (value v)
+    { value res = copy_string_list(argc,argv);
+      Tcl_Free((char *)argv);    /* only one large block was allocated */
+      /* argv points into utf: utf must be freed after argv are freed */
+-     stat_free( utf );
++     caml_stat_free( utf );
+      return res;
+    }
+   case TCL_ERROR:
+   default:
+-    stat_free( utf );
++    caml_stat_free( utf );
+     tk_error(Tcl_GetStringResult(cltclinterp));
+   }
+ }
+ 
+-/* Copy an OCaml string to the C heap. Should deallocate with stat_free */
++/* Copy an OCaml string to the C heap. Should deallocate with caml_stat_free 
*/
+ char *string_to_c(value s)
+ {
+-  int l = string_length(s);
++  int l = caml_string_length(s);
+   char *res = caml_stat_alloc(l + 1);
+   memmove (res, String_val (s), l);
+   res[l] = '\0';
+diff --git a/support/cltkTimer.c b/support/cltkTimer.c
+index afebef8..2022d78 100644
+--- a/support/cltkTimer.c
++++ b/support/cltkTimer.c
+@@ -26,7 +26,7 @@
+ /* Basically the same thing as FileProc */
+ void TimerProc (ClientData clientdata)
+ {
+-  callback2(*handler_code,Val_long(clientdata),Val_int(0));
++  caml_callback2(*handler_code,Val_long(clientdata),Val_int(0));
+ }
+ 
+ CAMLprim value camltk_add_timer(value milli, value cbid)
+diff --git a/support/cltkUtf.c b/support/cltkUtf.c
+index eb33500..d4f86c1 100644
+--- a/support/cltkUtf.c
++++ b/support/cltkUtf.c
+@@ -76,14 +76,14 @@ value tcl_string_to_caml( const char *s )
+   char *str;
+ 
+   str = utf_to_external( s );
+-  res = copy_string(str);
+-  stat_free(str);
++  res = caml_copy_string(str);
++  caml_stat_free(str);
+   CAMLreturn(res);
+ }
+ 
+ #else
+ 
+ char *caml_string_to_tcl(value s){ return string_to_c(s); }
+-value tcl_string_to_caml(char *s){ return copy_string(s); }
++value tcl_string_to_caml(char *s){ return caml_copy_string(s); }
+ 
+ #endif
+diff --git a/support/cltkVar.c b/support/cltkVar.c
+index e647d9d..09276fe 100644
+--- a/support/cltkVar.c
++++ b/support/cltkVar.c
+@@ -35,7 +35,7 @@ CAMLprim value camltk_getvar(value var)
+   stable_var = string_to_c(var);
+   s = (char *)Tcl_GetVar(cltclinterp,stable_var,
+                          TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG);
+-  stat_free(stable_var);
++  caml_stat_free(stable_var);
+ 
+   if (s == NULL)
+     tk_error(Tcl_GetStringResult(cltclinterp));
+@@ -57,11 +57,11 @@ CAMLprim value camltk_setvar(value var, value contents)
+   utf_contents = caml_string_to_tcl(contents);
+   s = (char *)Tcl_SetVar(cltclinterp,stable_var, utf_contents,
+                          TCL_GLOBAL_ONLY|TCL_LEAVE_ERR_MSG);
+-  stat_free(stable_var);
++  caml_stat_free(stable_var);
+   if( s == utf_contents ){
+     tk_error("camltk_setvar: Tcl_SetVar returned strange result. Call the 
author of mlTk!");
+   }
+-  stat_free(utf_contents);
++  caml_stat_free(utf_contents);
+ 
+   if (s == NULL)
+     tk_error(Tcl_GetStringResult(cltclinterp));
+@@ -84,7 +84,7 @@ static char * tracevar(clientdata, interp, name1, name2, 
flags)
+   Tcl_UntraceVar2(interp, name1, name2,
+                 TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+                 tracevar, clientdata);
+-  callback2(*handler_code,Val_int(clientdata),Val_unit);
++  caml_callback2(*handler_code,Val_int(clientdata),Val_unit);
+   return (char *)NULL;
+ }
+ 
+@@ -103,10 +103,10 @@ CAMLprim value camltk_trace_var(value var, value cbid)
+                    tracevar,
+                    (ClientData) (Long_val(cbid)))
+                    != TCL_OK) {
+-    stat_free(cvar);
++    caml_stat_free(cvar);
+     tk_error(Tcl_GetStringResult(cltclinterp));
+   };
+-  stat_free(cvar);
++  caml_stat_free(cvar);
+   return Val_unit;
+ }
+ 
+@@ -123,6 +123,6 @@ CAMLprim value camltk_untrace_var(value var, value cbid)
+                  TCL_GLOBAL_ONLY|TCL_TRACE_WRITES|TCL_TRACE_UNSETS,
+                  tracevar,
+                  (ClientData) (Long_val(cbid)));
+-  stat_free(cvar);
++  caml_stat_free(cvar);
+   return Val_unit;
+ }
+diff --git a/support/cltkWait.c b/support/cltkWait.c
+index e13091f..1258bd8 100644
+--- a/support/cltkWait.c
++++ b/support/cltkWait.c
+@@ -54,8 +54,8 @@ static void WaitVisibilityProc(clientData, eventPtr)
+   Tk_DeleteEventHandler(vis->win, VisibilityChangeMask,
+             WaitVisibilityProc, clientData);
+ 
+-  stat_free((char *)vis);
+-  callback2(*handler_code,cbid,Val_int(0));
++  caml_stat_free((char *)vis);
++  caml_callback2(*handler_code,cbid,Val_int(0));
+ }
+ 
+ /* Sets up a callback upon Visibility of a window */
+@@ -65,7 +65,7 @@ CAMLprim value camltk_wait_vis(value win, value cbid)
+     (struct WinCBData *)caml_stat_alloc(sizeof(struct WinCBData));
+   vis->win = Tk_NameToWindow(cltclinterp, String_val(win), cltk_mainWindow);
+   if (vis -> win == NULL) {
+-    stat_free((char *)vis);
++    caml_stat_free((char *)vis);
+     tk_error(Tcl_GetStringResult(cltclinterp));
+   };
+   vis->cbid = Int_val(cbid);
+@@ -79,9 +79,9 @@ static void WaitWindowProc(ClientData clientData, XEvent 
*eventPtr)
+   if (eventPtr->type == DestroyNotify) {
+     struct WinCBData *vis = clientData;
+     value cbid = Val_int(vis->cbid);
+-    stat_free((char *)clientData);
++    caml_stat_free((char *)clientData);
+     /* The handler is destroyed by Tk itself */
+-    callback2(*handler_code,cbid,Val_int(0));
++    caml_callback2(*handler_code,cbid,Val_int(0));
+   }
+ }
+ 
+@@ -92,7 +92,7 @@ CAMLprim value camltk_wait_des(value win, value cbid)
+     (struct WinCBData *)caml_stat_alloc(sizeof(struct WinCBData));
+   vis->win = Tk_NameToWindow(cltclinterp, String_val(win), cltk_mainWindow);
+   if (vis -> win == NULL) {
+-    stat_free((char *)vis);
++    caml_stat_free((char *)vis);
+     tk_error(Tcl_GetStringResult(cltclinterp));
+   };
+   vis->cbid = Int_val(cbid);
diff --git 
a/debian/patches/0003-CC-variable-does-not-exist-in-4.05.0-s-Makefile.conf.patch
 
b/debian/patches/0003-CC-variable-does-not-exist-in-4.05.0-s-Makefile.conf.patch
new file mode 100644
index 0000000..0fbb1ad
--- /dev/null
+++ 
b/debian/patches/0003-CC-variable-does-not-exist-in-4.05.0-s-Makefile.conf.patch
@@ -0,0 +1,35 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Sun, 16 Jul 2017 08:20:45 +0000
+Subject: CC variable does not exist in 4.05.0's Makefile.config
+
+---
+ configure        | 2 +-
+ support/Makefile | 2 +-
+ 2 files changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/configure b/configure
+index 6c93d8a..1c58a4c 100755
+--- a/configure
++++ b/configure
+@@ -158,7 +158,7 @@ else
+   has_tk=true
+ fi
+ 
+-cc=`cat $where/Makefile.config | grep '^CC=' | sed -e 's/^CC=//'`
++cc=`cat $where/Makefile.config | grep '^NATIVECC=' | sed -e 's/^NATIVECC=//'`
+ cclibs=`cat $where/Makefile.config | grep '^NATIVECCLIBS=' | sed -e 
's/^NATIVECCLIBS=//'`
+ export cc cclibs
+ 
+diff --git a/support/Makefile b/support/Makefile
+index 9d88d02..0be3668 100644
+--- a/support/Makefile
++++ b/support/Makefile
+@@ -84,7 +84,7 @@ clean:
+       $(CAMLOPT) -c $(COMPFLAGS) $<
+ 
+ .c.$(O):
+-      $(CC) $(BYTECCCOMPOPTS) $(CCFLAGS) -c $<
++      $(BYTECC) $(BYTECCCOMPOPTS) $(CCFLAGS) -c $<
+ 
+ tkthread.cmi: tkthread.mli
+       $(CAMLCOMP) $(COMPFLAGS) $(THFLAGS) $<
diff --git a/debian/patches/0004-Fix-change-of-signature-of-Texp_function.patch 
b/debian/patches/0004-Fix-change-of-signature-of-Texp_function.patch
new file mode 100644
index 0000000..c063bca
--- /dev/null
+++ b/debian/patches/0004-Fix-change-of-signature-of-Texp_function.patch
@@ -0,0 +1,21 @@
+From: Stephane Glondu <st...@glondu.net>
+Date: Sun, 16 Jul 2017 08:34:20 +0000
+Subject: Fix change of signature of Texp_function
+
+---
+ browser/searchpos.ml | 2 +-
+ 1 file changed, 1 insertion(+), 1 deletion(-)
+
+diff --git a/browser/searchpos.ml b/browser/searchpos.ml
+index 086c536..7722104 100644
+--- a/browser/searchpos.ml
++++ b/browser/searchpos.ml
+@@ -782,7 +782,7 @@ and search_pos_expr ~pos exp =
+         search_pos_expr exp' ~pos
+       end;
+       search_pos_expr exp ~pos
+-  | Texp_function (_, l, _) ->
++  | Texp_function {cases=l; _} ->
+       List.iter l ~f:(search_case ~pos)
+   | Texp_apply (exp, l) ->
+       List.iter l ~f:(fun (_, x) -> Misc.may (search_pos_expr ~pos) x);
diff --git a/debian/patches/series b/debian/patches/series
new file mode 100644
index 0000000..70eac74
--- /dev/null
+++ b/debian/patches/series
@@ -0,0 +1,4 @@
+0001-Fix-for-ocaml-4.06.patch
+0002-Fix-calls-to-caml_-functions.patch
+0003-CC-variable-does-not-exist-in-4.05.0-s-Makefile.conf.patch
+0004-Fix-change-of-signature-of-Texp_function.patch

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-ocaml-maint/packages/labltk.git

_______________________________________________
Pkg-ocaml-maint-commits mailing list
Pkg-ocaml-maint-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-ocaml-maint-commits

Reply via email to