Index: fpc/rtl/win32/classes.pp
===================================================================
RCS file: /FPC/CVS/fpc/rtl/win32/classes.pp,v
retrieving revision 1.9
diff -c -r1.9 classes.pp
*** fpc/rtl/win32/classes.pp	7 Mar 2005 17:57:26 -0000	1.9
--- fpc/rtl/win32/classes.pp	7 Apr 2005 04:55:46 -0000
***************
*** 42,58 ****
  
  initialization
    CommonInit;
!   {$ifndef ver1_0}
!   InitCriticalSection(SynchronizeCritSect);
!   ExecuteEvent := RtlEventCreate;
!   SynchronizeMethod := nil;
!   {$endif}
  finalization
    CommonCleanup;
-   {$ifndef ver1_0}
-     DoneCriticalSection(SynchronizeCritSect);
-   RtlEventDestroy(ExecuteEvent);
-   {$endif}
  end.
  {
    $Log: classes.pp,v $
--- 42,50 ----
  
  initialization
    CommonInit;
!   
  finalization
    CommonCleanup;
  end.
  {
    $Log: classes.pp,v $