Big Sky

VCだとビルド出来るらしいけど、strawberry perlとかだとコンパイル出来ない。
まずCoro側のpatch。


diff -ur Coro-5.132.orig/Coro/libcoro/coro.c Coro-5.132/Coro/libcoro/coro.c

--- Coro-5.132.orig/Coro/libcoro/coro.c 2008-11-19 11:50:13.000000000 +0900

+++ Coro-5.132/Coro/libcoro/coro.c  2009-06-19 15:01:16.140625000 +0900

@@ -228,6 +228,9 @@

   #if __CYGWIN__

     ctx->env[7] = (long)((char *)sptr + ssize) - sizeof (long);

     ctx->env[8] = (long)coro_init;

+  #elif defined(__MINGW32__)

+    ctx->env[4] = (int)((unsigned char *)sptr + ssize);

+    ctx->env[5] = (long)coro_init;

   #elif defined(_M_IX86)

     ((_JUMP_BUFFER *)&ctx->env)->Eip   = (long)coro_init;

     ((_JUMP_BUFFER *)&ctx->env)->Esp   = (long)STACK_ADJUST_PTR (sptr, ssize) - sizeof (long);

mingw32のjumpbufは4番目がEipで5番目がEspだったはず。
一応手元で動いてます。
あとこのままでも駄目で、ExtUtils::MakeMakerがgccの時に付けてしまう--image-baseオプションがまずい。
アドレスの作り方が Coro::Event であれば Event という文字列に対して上位4バイト、下位4バイトで分けてunpackとかやってござる。


    if ($GCC) { 

        my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};

        $dllname =~ /(....)(.{0,4})/;

        my $baseaddr = unpack("n", $1 ^ $2);

        $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);

    }

なので、Coro::Event が使っている Event というモジュールと --image-base がバッティングして起動時にメモリロケーション不正参照のエラーが起きる。
こちらについては、ExtUtils::MakeMakerに含まれる MM_Win32.pm を修正する。最近の gcc は勝手に --image-base 作ってくれるので、そちらに任せる。


--- MM_Win32.pm.orig    2009-06-22 17:48:43.906250000 +0900

+++ MM_Win32.pm 2009-06-22 17:49:05.703125000 +0900

@@ -307,12 +307,12 @@

 # we try to overcome non-relocateable-DLL problems by generating

 #    a (hopefully unique) image-base from the dll's name

 # -- BKS, 10-19-1999

-    if ($GCC) { 

-       my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};

-       $dllname =~ /(....)(.{0,4})/;

-       my $baseaddr = unpack("n", $1 ^ $2);

-       $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);

-    }

+#    if ($GCC) { 

+#      my $dllname = $self->{BASEEXT} . "." . $self->{DLEXT};

+#      $dllname =~ /(....)(.{0,4})/;

+#      my $baseaddr = unpack("n", $1 ^ $2);

+#      $otherldflags .= sprintf("-Wl,--image-base,0x%x0000 ", $baseaddr);

+#    }

 

     push(@m,'

 # This section creates the dynamically loadable $(INST_DYNAMIC)