htoolkit-cvs

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/cbits/Win32
In directory sc8-pr-cvs1:/tmp/cvs-serv30128/src/cbits/Win32

Modified Files:
	Util.c 
Log Message:
The multithreading stuff was tricky and as side effect the package cannot be loaded into GHCi. For that reason the stuff is removed.


Index: Util.c
===================================================================
RCS file: /cvsroot/htoolkit/port/src/cbits/Win32/Util.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Util.c	14 Mar 2003 15:23:35 -0000	1.5
--- Util.c	14 Mar 2003 18:37:22 -0000	1.6
***************
*** 1,8 ****
  #define _WIN32_IE 0x0400
  
- #define IN_STG_CODE 0
- #include "Stg.h"
  #include "RtsAPI.h"
- #include "SchedAPI.h"
  #include "Types.h"
  #include "Handlers_stub.h"
--- 1,5 ----
***************
*** 179,184 ****
  {
  	MSG msg;
- 	HaskellObj ret;
- 	SchedulerStatus rc;
  
  	while (gActiveObjects > 0)
--- 176,179 ----
***************
*** 195,211 ****
  		};
  
- 		rc=rts_evalIO(rts_apply((HaskellObj)runIO_closure,&GHCziConc_yield_closure) ,&ret);
- 		rts_checkSchedStatus("yield",rc);
- 
  		if (gActiveObjects <= 0)
  			return;
  
! 		if (howManyThreadsAvail() < 1)
  		{
! 			if (GetMessage(&msg, NULL, 0, 0) != 0)
! 			{
! 				TranslateMessage(&msg);
! 				DispatchMessage(&msg);
! 			}
  		}
  	}
--- 190,200 ----
  		};
  
  		if (gActiveObjects <= 0)
  			return;
  
! 		if (GetMessage(&msg, NULL, 0, 0) != 0)
  		{
! 			TranslateMessage(&msg);
! 			DispatchMessage(&msg);
  		}
  	}