[ruby-dev:11231] Re: SIGINT on windows

青木です。

なぜか Windows 95 では、win32_disable_interrupt() の
呼ばれる数よりも win32_enable_interrupt() が呼ばれる数が
多いっぽいです(^^;;

なので [ruby-dev:11217] ではだめで以下。

*** win32.c_	Fri Oct 13 15:00:00 2000
--- win32.c	Sat Oct 14 15:00:00 2000
***************
*** 2565,2578 ****
      return &syssect;
  }
  
  void win32_disable_interrupt(void)
  {
!     EnterCriticalSection(system_state());
  }
  
  void win32_enable_interrupt(void)
  {
!     LeaveCriticalSection(system_state());
  }
  
  struct handler_arg_t {
--- 2565,2600 ----
      return &syssect;
  }
  
+ static LONG flag_interrupt = -1;
+ static volatile DWORD tlsi_interrupt = 0xFFFFFFFF;
  void win32_disable_interrupt(void)
  {
! 	if(IsWin95()){
! 		if(tlsi_interrupt==0xFFFFFFFF){
! 			tlsi_interrupt = TlsAlloc();
! 			/* TlsSetValue(tlsi_interrupt,(LPVOID)0); /* Initial value is 0. */
! 		}
! 		if(!TlsGetValue(tlsi_interrupt)){
! 			while(InterlockedIncrement(&flag_interrupt)>0){
! 				InterlockedDecrement(&flag_interrupt);
! 				Sleep(0);
! 			}
! 		}
! 		TlsSetValue(tlsi_interrupt,(LPVOID)((DWORD)TlsGetValue(tlsi_interrupt)+1));
! 	} else {
! 	    EnterCriticalSection(system_state());
! 	}
  }
  
  void win32_enable_interrupt(void)
  {
! 	if(IsWin95()){
! 		if(flag_interrupt>=0) /* Why? */
! 			InterlockedDecrement(&flag_interrupt);
! 		TlsSetValue(tlsi_interrupt,(LPVOID)((DWORD)TlsGetValue(tlsi_interrupt)-1));
! 	} else {
! 	    LeaveCriticalSection(system_state());
! 	}
  }
  
  struct handler_arg_t {

# これで私のすることが終わればいいな。

--
青木大輔 <[e-mail]>