void
Perl_win32_term (void)
{
  PerlInterpreter *my_perl = ((PerlInterpreter *) Perl_get_context ());
  DeleteCriticalSection (&(*Perl_Ghints_mutex_ptr (0)));
  DeleteCriticalSection (&(*Perl_Gop_mutex_ptr (0)));
  do
    {
      PerlIO_teardown ();
      DeleteCriticalSection (&(*Perl_Gperlio_mutex_ptr (0)));
    }
  while (0);
  ;
}