diff --git a/library/dialect/swi/fli/swi.c b/library/dialect/swi/fli/swi.c
index 2fcb42456..3ed95a052 100755
--- a/library/dialect/swi/fli/swi.c
+++ b/library/dialect/swi/fli/swi.c
@@ -3232,29 +3232,6 @@ term_t Yap_CvtTerm(term_t ts)
   return ts;
 }
 
-#ifdef _WIN32
-
-#include <windows.h>
-
-int WINAPI PROTO(win_yap2swi, (HANDLE, DWORD, LPVOID));
-
-int WINAPI win_yap2swi(HANDLE hinst, DWORD reason, LPVOID reserved)
-{
-  switch (reason) 
-    {
-    case DLL_PROCESS_ATTACH:
-      break;
-    case DLL_PROCESS_DETACH:
-      break;
-    case DLL_THREAD_ATTACH:
-      break;
-    case DLL_THREAD_DETACH:
-      break;
-    }
-  return 1;
-}
-#endif
-
 /**
  * @}
  * @}