[ruby-dev:10768] Re: ruby-1.6.0-20000824.i586-mswin32 bug

なかだです。

At Thu, 31 Aug 2000 09:29:04 +0900
"Nobuyoshi.Nakada" <[e-mail]> wrote:
>   こりゃダメっす。メインスレッドのレジスタが保存されてないので、不可思議
> な動きをしそうです。

  とりあえずは動きますが、GC の途中(たぶん)で割り込むと、ハンドラから抜け
たところで SEGV します。デバッガで追ってみると win32_call_handler() で
SetThreadContext() するところまでは OK なんですが。

  一応途中経過の報告ってことで、分かる方なんか教えてください (他力本願モー
ド ^^;)。


diff -pruPX ./.excludes current/signal.c devel/signal.c
--- current/signal.c	Mon Aug  7 14:01:57 2000
+++ devel/signal.c	Thu Aug 31 17:02:29 2000
@@ -341,6 +341,10 @@ static RETSIGTYPE
 sighandle(sig)
     int sig;
 {
+#ifdef NT
+    if (win32_main_context(sig, sighandle)) return;
+#endif
+
     if (sig >= NSIG) {
 	rb_bug("trap_handler: Bad signal %d", sig);
     }
diff -pruPX ./.excludes current/win32/win32.c devel/win32/win32.c
--- current/win32/win32.c	Tue Aug 15 16:11:13 2000
+++ devel/win32/win32.c	Thu Aug 31 16:28:41 2000
@@ -75,6 +75,9 @@ IsWinNT(void) {
     return (IdOS() == VER_PLATFORM_WIN32_NT);
 }
 
+/* main thread constants */
+HANDLE rb_MainThreadHandle;
+DWORD rb_MainThreadId;
 
 /* simulate flock by locking a range on the file */
 
@@ -164,6 +167,11 @@ NtInitialize(int *argc, char ***argv) {
 
     WORD version;
     int ret;
+    HANDLE proc = GetCurrentProcess();
+
+    DuplicateHandle(proc, GetCurrentThread(), proc,
+		    &rb_MainThreadHandle, 0, FALSE, DUPLICATE_SAME_ACCESS);
+    rb_MainThreadId = GetCurrentThreadId();
 
     //
     // subvert cmd.exe\'s feeble attempt at command line parsing
@@ -2498,4 +2506,61 @@ mytimes(struct tms *tmbuf)
 	tmbuf->tms_cstime = 0;
     }
     return 0;
+}
+
+int
+win32_thread_exclusive(void)
+{
+    if (GetCurrentThreadId() == rb_MainThreadId) return FALSE;
+
+    SuspendThread(rb_MainThreadHandle);
+    return TRUE;
+}
+
+void
+win32_thread_resume(void)
+{
+    ResumeThread(rb_MainThreadHandle);
+}
+
+static void
+win32_call_handler(int arg, void handler(int), CONTEXT con)
+{
+    handler(arg);
+    SetThreadContext(rb_MainThreadHandle, &con);
+    /* NOTREACHED */
+}
+
+void
+win32_thread_set_context(int arg, void handler(int))
+{
+    CONTEXT con;
+
+    ZeroMemory(&con, sizeof(CONTEXT));
+    con.ContextFlags = CONTEXT_FULL;
+    GetThreadContext(rb_MainThreadHandle, &con);
+    con.ContextFlags = CONTEXT_FULL;
+#ifdef _M_IX86
+    {
+	DWORD* esp = (DWORD *)(con.Esp - sizeof(CONTEXT));
+	*(CONTEXT *)esp = con;
+	*--esp = (DWORD)handler;
+	*--esp = arg;
+	*--esp = (DWORD)abort; /* never reached */
+	con.Esp = (DWORD)esp;
+    }
+    con.Eip = (DWORD)win32_call_handler;;
+#else
+#error
+#endif
+    SetThreadContext(rb_MainThreadHandle, &con);
+}
+
+int
+win32_main_context(int arg, void handler(int))
+{
+    if (!win32_thread_exclusive()) return FALSE;
+    win32_thread_set_context(arg, handler);
+    win32_thread_resume();
+    return TRUE;
 }
diff -pruPX ./.excludes current/win32/win32.h devel/win32/win32.h
--- current/win32/win32.h	Tue Aug 15 15:22:49 2000
+++ devel/win32/win32.h	Thu Aug 31 13:12:28 2000
@@ -426,4 +426,14 @@ struct tms {
 #endif
 #define times mytimes
 
+/* thread stuff */
+/* initialized by NtInitialize() */
+HANDLE rb_MainThreadHandle;
+DWORD rb_MainThreadId;
+
+int win32_thread_exclusive(void);
+void win32_thread_resume(void);
+int win32_main_context(int arg, void handler(int));
+
+
 #endif


-- 
--- 僕の前にBugはない。
--- 僕の後ろにBugはできる。
    中田 伸悦