Question

我按照说明使用MSYS2工具链编译了64位Unison，如HERE所示。

简而言之，以下是步骤：

pacman -Sy --noconfirm base-devel git mingw-w64-x86_64-{glib2,gtk2,ocaml,toolchain}
sed -i "s/#include <gdk\/win32\/gdkwin32keys.h>/\/\/#include <gdk\/win32\/gdkwin32keys.h>/" /mingw64/include/gtk-2.0/gdk/gdkwin32.h
VERSION=2.18.5 && pushd /tmp && wget -c https://forge.ocamlcore.org/frs/download.php/1627/$VERSION.tar.gz
tar -xzvf $VERSION.tar.gz && cd lablgtk-$VERSION && ./configure --prefix=/mingw64 --disable-gtktest && make ; strip src/dlllablgtk2.dll && make opt && make old-install INSTALLDIR=/mingw64/lib/ocaml/lablgtk2/ BINDIR=/mingw64/bin/ DLLDIR=/mingw64/lib/ocaml/stublibs/
pushd /tmp && git clone --depth=1 https://github.com/bcpierce00/unison && cd unison
make windres && make src OSARCH=win32gnuc

编译过早结束，出现错误：

ocamlopt: lwt/lwt_unix_stubs.c ---> lwt/lwt_unix_stubs.o
ocamlopt -g -I lwt -I ubase -I system -I fsmonitor -I fsmonitor/linux -I fsmonitor/windows -I system/win -I lwt/win -ccopt "-o "./lwt/lwt_unix_stubs.o -c ./lwt/lwt_unix_stubs.c
In file included from ./lwt/lwt_unix_stubs.c:8:0:
./lwt/lwt_unix_stubs.c: In function 'invoke_completion_callback':
C:\MSYS64\mingw64\lib\ocaml/caml/memory.h:236:12: error: 'caml__frame' undeclared (first use in this function)
     (void) caml__frame, \
            ^
C:\MSYS64\mingw64\lib\ocaml/caml/memory.h:236:12: note: in definition of macro 'CAMLxparam2'
     (void) caml__frame, \
            ^~~~~~~~~~~
./lwt/lwt_unix_stubs.c:82:3: note: in expansion of macro 'CAMLlocal2'
   CAMLlocal2 (err, name);
   ^
C:\MSYS64\mingw64\lib\ocaml/caml/memory.h:236:12: note: each undeclared identifier is reported only once for each function it appears in
     (void) caml__frame, \
            ^
C:\MSYS64\mingw64\lib\ocaml/caml/memory.h:236:12: note: in definition of macro 'CAMLxparam2'
     (void) caml__frame, \
            ^~~~~~~~~~~
./lwt/lwt_unix_stubs.c:82:3: note: in expansion of macro 'CAMLlocal2'
   CAMLlocal2 (err, name);
   ^
make[1]: *** [Makefile.OCaml:434: lwt/lwt_unix_stubs.o] Error 2
make[1]: Leaving directory '/tmp/unison/src'
make: *** [Makefile:14: src] Error 2

不太确定有什么问题，有什么帮助吗？

Answer 1

这里是文章中的原始海报......

我终于设法用OCaml重现了这个问题 - 当前版本的Unison并没有严格遵循OCaml接口指南，可以在http://caml.inria.fr/pub/docs/manual-ocaml-4.04/intfc.html

找到

相关文字：＆＃34;特别是，CAMLlocal和CAMLxparam只能在CAMLparam＆＃34;之后调用。因此，只需拨打CAMLparam(0)即可解决问题：

--- a/src/lwt/lwt_unix_stubs.c
+++ b/src/lwt/lwt_unix_stubs.c
@@ -79,6 +79,7 @@

static void invoke_completion_callback
(long id, long len, long errCode, long action) {
+  CAMLparam0();
   CAMLlocal2 (err, name);
   value args[4];
   err = Val_long(0);

我在https://www.onwebsecurity.com/configuration/its-about-the-journey-compiling-64-bit-unison-gtk2-on-windows.html更新了文章以包含此补丁，并将其上传发送给Unison维护者。

编译Windows 64位的unison

1 个答案: