Index: lib/xvfs/xvfs.c.rvt
==================================================================
--- lib/xvfs/xvfs.c.rvt
+++ lib/xvfs/xvfs.c.rvt
@@ -9,11 +9,10 @@
 	if {[info exists ::xvfs::xvfsCoreH]} {
 		::minirivet::_emitOutput $::xvfs::xvfsCoreH
 	} else {
 ?>#include <xvfs-core.h><? } ?>
 #include <sys/stat.h>
-#include <unistd.h>
 #include <string.h>
 #include <tcl.h>
 
 #define XVFS_NAME_LOOKUP_ERROR (-1)
 #define XVFS_FILE_BLOCKSIZE 1024
@@ -68,11 +67,11 @@
 <?
 	set hashTable [::xvfs::generateHashTable pathIndex path pathLen XVFS_NAME_LOOKUP_ERROR $::xvfs::outputFiles prefix "\t" hashTableSize 30 validate "strcmp(path, xvfs_${::xvfs::fsName}_data\[pathIndex\].name) == 0" onValidated "return(pathIndex);"]
 	set hashTableHeader [dict get $hashTable header]
 ?><?= $hashTableHeader ?>
 	long pathIndex;
-	ssize_t pathLen;
+	size_t pathLen;
 
 	if (path == NULL) {
 		return(XVFS_NAME_LOOKUP_ERROR);
 	}
 

Index: xvfs-core.c
==================================================================
--- xvfs-core.c
+++ xvfs-core.c
@@ -1,9 +1,8 @@
 #include <xvfs-core.h>
 #include <string.h>
 #include <sys/stat.h>
-#include <unistd.h>
 #include <errno.h>
 #include <fcntl.h>
 #include <tcl.h>
 
 #ifdef XVFS_DEBUG
@@ -33,10 +32,18 @@
 #if defined(XVFS_MODE_SERVER) || defined(XVFS_MODE_STANDALONE) || defined(XVFS_MODE_FLEXIBLE)
 #ifndef XVFS_ROOT_MOUNTPOINT
 #  define XVFS_ROOT_MOUNTPOINT "//xvfs:/"
 #endif
 
+/*
+ * Windows lacks X_OK and W_OK
+ */
+#ifdef _MSC_BUILD
+#  define W_OK 02
+#  define X_OK 0 /* Mask it with nothing to get false */
+#endif
+
 struct xvfs_tclfs_instance_info {
 	struct Xvfs_FSInfo *fsInfo;
 	Tcl_Obj            *mountpoint;
 };