Revert "[w32handle] Remove use of w32handle for File, Console, Pipe and Socket (...
[mono.git] / mono / metadata / w32file-unix.c
index be8b5f70502c4777e5e428c943e711ad8856c64d..d74520f162cf8edaca9252ee3434bf402e02938e 100644 (file)
@@ -1,3 +1,6 @@
+/**
+ * \file
+ */
 
 #include <config.h>
 #include <glib.h>
@@ -78,7 +81,7 @@ typedef struct {
  * 4MB array.
  */
 static GHashTable *file_share_table;
-static mono_mutex_t file_share_mutex;
+static MonoCoopMutex file_share_mutex;
 
 static void
 time_t_to_filetime (time_t timeval, FILETIME *filetime)
@@ -94,7 +97,7 @@ static void
 file_share_release (FileShare *share_info)
 {
        /* Prevent new entries racing with us */
-       mono_os_mutex_lock (&file_share_mutex);
+       mono_coop_mutex_lock (&file_share_mutex);
 
        g_assert (share_info->handle_refs > 0);
        share_info->handle_refs -= 1;
@@ -102,7 +105,7 @@ file_share_release (FileShare *share_info)
        if (share_info->handle_refs == 0)
                g_hash_table_remove (file_share_table, share_info);
 
-       mono_os_mutex_unlock (&file_share_mutex);
+       mono_coop_mutex_unlock (&file_share_mutex);
 }
 
 static gint
@@ -130,7 +133,7 @@ file_share_get (guint64 device, guint64 inode, guint32 new_sharemode, guint32 ne
        gboolean exists = FALSE;
 
        /* Prevent new entries racing with us */
-       mono_os_mutex_lock (&file_share_mutex);
+       mono_coop_mutex_lock (&file_share_mutex);
 
        FileShare tmp;
 
@@ -168,7 +171,7 @@ file_share_get (guint64 device, guint64 inode, guint32 new_sharemode, guint32 ne
                g_hash_table_insert (file_share_table, file_share, file_share);
        }
 
-       mono_os_mutex_unlock (&file_share_mutex);
+       mono_coop_mutex_unlock (&file_share_mutex);
 
        return(exists);
 }
@@ -182,13 +185,19 @@ _wapi_open (const gchar *pathname, gint flags, mode_t mode)
        if (flags & O_CREAT) {
                located_filename = mono_portability_find_file (pathname, FALSE);
                if (located_filename == NULL) {
+                       MONO_ENTER_GC_SAFE;
                        fd = open (pathname, flags, mode);
+                       MONO_EXIT_GC_SAFE;
                } else {
+                       MONO_ENTER_GC_SAFE;
                        fd = open (located_filename, flags, mode);
+                       MONO_EXIT_GC_SAFE;
                        g_free (located_filename);
                }
        } else {
+               MONO_ENTER_GC_SAFE;
                fd = open (pathname, flags, mode);
+               MONO_EXIT_GC_SAFE;
                if (fd == -1 && (errno == ENOENT || errno == ENOTDIR) && IS_PORTABILITY_SET) {
                        gint saved_errno = errno;
                        located_filename = mono_portability_find_file (pathname, TRUE);
@@ -198,7 +207,9 @@ _wapi_open (const gchar *pathname, gint flags, mode_t mode)
                                return -1;
                        }
 
+                       MONO_ENTER_GC_SAFE;
                        fd = open (located_filename, flags, mode);
+                       MONO_EXIT_GC_SAFE;
                        g_free (located_filename);
                }
        }
@@ -211,7 +222,9 @@ _wapi_access (const gchar *pathname, gint mode)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = access (pathname, mode);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (pathname, TRUE);
@@ -221,7 +234,9 @@ _wapi_access (const gchar *pathname, gint mode)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = access (located_filename, mode);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -233,7 +248,9 @@ _wapi_chmod (const gchar *pathname, mode_t mode)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = chmod (pathname, mode);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (pathname, TRUE);
@@ -243,7 +260,9 @@ _wapi_chmod (const gchar *pathname, mode_t mode)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = chmod (located_filename, mode);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -255,7 +274,9 @@ _wapi_utime (const gchar *filename, const struct utimbuf *buf)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = utime (filename, buf);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && errno == ENOENT && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (filename, TRUE);
@@ -265,7 +286,9 @@ _wapi_utime (const gchar *filename, const struct utimbuf *buf)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = utime (located_filename, buf);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -277,7 +300,9 @@ _wapi_unlink (const gchar *pathname)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = unlink (pathname);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR || errno == EISDIR) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (pathname, TRUE);
@@ -287,7 +312,9 @@ _wapi_unlink (const gchar *pathname)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = unlink (located_filename);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -301,9 +328,13 @@ _wapi_rename (const gchar *oldpath, const gchar *newpath)
        gchar *located_newpath = mono_portability_find_file (newpath, FALSE);
 
        if (located_newpath == NULL) {
+               MONO_ENTER_GC_SAFE;
                ret = rename (oldpath, newpath);
+               MONO_EXIT_GC_SAFE;
        } else {
+               MONO_ENTER_GC_SAFE;
                ret = rename (oldpath, located_newpath);
+               MONO_EXIT_GC_SAFE;
 
                if (ret == -1 && (errno == EISDIR || errno == ENAMETOOLONG || errno == ENOENT || errno == ENOTDIR || errno == EXDEV) && IS_PORTABILITY_SET) {
                        gint saved_errno = errno;
@@ -317,7 +348,9 @@ _wapi_rename (const gchar *oldpath, const gchar *newpath)
                                return -1;
                        }
 
+                       MONO_ENTER_GC_SAFE;
                        ret = rename (located_oldpath, located_newpath);
+                       MONO_EXIT_GC_SAFE;
                        g_free (located_oldpath);
                }
                g_free (located_newpath);
@@ -331,7 +364,9 @@ _wapi_stat (const gchar *path, struct stat *buf)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = stat (path, buf);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (path, TRUE);
@@ -341,7 +376,9 @@ _wapi_stat (const gchar *path, struct stat *buf)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = stat (located_filename, buf);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -353,7 +390,9 @@ _wapi_lstat (const gchar *path, struct stat *buf)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = lstat (path, buf);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (path, TRUE);
@@ -377,9 +416,13 @@ _wapi_mkdir (const gchar *pathname, mode_t mode)
        gchar *located_filename = mono_portability_find_file (pathname, FALSE);
 
        if (located_filename == NULL) {
+               MONO_ENTER_GC_SAFE;
                ret = mkdir (pathname, mode);
+               MONO_EXIT_GC_SAFE;
        } else {
+               MONO_ENTER_GC_SAFE;
                ret = mkdir (located_filename, mode);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -391,7 +434,9 @@ _wapi_rmdir (const gchar *pathname)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = rmdir (pathname);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR || errno == ENAMETOOLONG) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (pathname, TRUE);
@@ -401,7 +446,9 @@ _wapi_rmdir (const gchar *pathname)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = rmdir (located_filename);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -413,7 +460,9 @@ _wapi_chdir (const gchar *path)
 {
        gint ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = chdir (path);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1 && (errno == ENOENT || errno == ENOTDIR || errno == ENAMETOOLONG) && IS_PORTABILITY_SET) {
                gint saved_errno = errno;
                gchar *located_filename = mono_portability_find_file (path, TRUE);
@@ -423,7 +472,9 @@ _wapi_chdir (const gchar *path)
                        return -1;
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = chdir (located_filename);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
        }
 
@@ -479,7 +530,9 @@ _wapi_g_dir_open (const gchar *path, guint flags, GError **error)
 {
        GDir *ret;
 
+       MONO_ENTER_GC_SAFE;
        ret = g_dir_open (path, flags, error);
+       MONO_EXIT_GC_SAFE;
        if (ret == NULL && ((*error)->code == G_FILE_ERROR_NOENT || (*error)->code == G_FILE_ERROR_NOTDIR || (*error)->code == G_FILE_ERROR_NAMETOOLONG) && IS_PORTABILITY_SET) {
                gchar *located_filename = mono_portability_find_file (path, TRUE);
                GError *tmp_error = NULL;
@@ -488,7 +541,9 @@ _wapi_g_dir_open (const gchar *path, guint flags, GError **error)
                        return(NULL);
                }
 
+               MONO_ENTER_GC_SAFE;
                ret = g_dir_open (located_filename, flags, &tmp_error);
+               MONO_EXIT_GC_SAFE;
                g_free (located_filename);
                if (tmp_error == NULL) {
                        g_clear_error (error);
@@ -502,7 +557,7 @@ static gint
 get_errno_from_g_file_error (gint error)
 {
        switch (error) {
-#ifdef EACCESS
+#ifdef EACCES
        case G_FILE_ERROR_ACCES: return EACCES;
 #endif
 #ifdef ENAMETOOLONG
@@ -559,7 +614,7 @@ get_errno_from_g_file_error (gint error)
 #ifdef EINTR
        case G_FILE_ERROR_INTR: return EINTR;
 #endif
-#ifdef EWIO
+#ifdef EIO
        case G_FILE_ERROR_IO: return EIO;
 #endif
 #ifdef EPERM
@@ -622,7 +677,9 @@ _wapi_io_scandir (const gchar *dirname, const gchar *pattern, gchar ***namelist)
                gchar *pattern2 = g_strndup (pattern, strlen (pattern) - 2);
                gint result2;
 
+               MONO_ENTER_GC_SAFE;
                g_dir_rewind (dir);
+               MONO_EXIT_GC_SAFE;
                result2 = mono_w32file_unix_glob (dir, pattern2, flags | W32FILE_UNIX_GLOB_APPEND | W32FILE_UNIX_GLOB_UNIQUE, &glob_buf);
 
                g_free (pattern2);
@@ -632,7 +689,9 @@ _wapi_io_scandir (const gchar *dirname, const gchar *pattern, gchar ***namelist)
                }
        }
 
+       MONO_ENTER_GC_SAFE;
        g_dir_close (dir);
+       MONO_EXIT_GC_SAFE;
        if (glob_buf.gl_pathc == 0) {
                return(0);
        } else if (result != 0) {
@@ -662,11 +721,6 @@ _wapi_io_scandir (const gchar *dirname, const gchar *pattern, gchar ***namelist)
 static gboolean
 _wapi_lock_file_region (gint fd, off_t offset, off_t length)
 {
-#if defined(__native_client__)
-       printf("WARNING: %s: fcntl() not available on Native Client!\n", __func__);
-       // behave as below -- locks are not available
-       return TRUE;
-#else
        struct flock lock_data;
        gint ret;
 
@@ -707,16 +761,11 @@ _wapi_lock_file_region (gint fd, off_t offset, off_t length)
        }
 
        return TRUE;
-#endif /* __native_client__ */
 }
 
 static gboolean
 _wapi_unlock_file_region (gint fd, off_t offset, off_t length)
 {
-#if defined(__native_client__)
-       printf("WARNING: %s: fcntl() not available on Native Client!\n", __func__);
-       return TRUE;
-#else
        struct flock lock_data;
        gint ret;
 
@@ -752,7 +801,6 @@ _wapi_unlock_file_region (gint fd, off_t offset, off_t length)
        }
 
        return TRUE;
-#endif /* __native_client__ */
 }
 
 static void file_close (gpointer handle, gpointer data);
@@ -1043,6 +1091,8 @@ static void _wapi_set_last_path_error_from_errno (const gchar *dir,
  */
 static void file_close (gpointer handle, gpointer data)
 {
+       /* FIXME: after mono_w32handle_close is coop-aware, change this to MONO_REQ_GC_UNSAFE_MODE and leave just the switch to SAFE around close() below */
+       MONO_ENTER_GC_UNSAFE;
        MonoW32HandleFile *file_handle = (MonoW32HandleFile *)data;
        gint fd = file_handle->fd;
        
@@ -1057,7 +1107,10 @@ static void file_close (gpointer handle, gpointer data)
        if (file_handle->share_info)
                file_share_release (file_handle->share_info);
        
+       MONO_ENTER_GC_SAFE;
        close (fd);
+       MONO_EXIT_GC_SAFE;
+       MONO_EXIT_GC_UNSAFE;
 }
 
 static void file_details (gpointer data)
@@ -1122,7 +1175,9 @@ file_read(gpointer handle, gpointer buffer, guint32 numbytes, guint32 *bytesread
        }
 
        do {
+               MONO_ENTER_GC_SAFE;
                ret = read (fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret == -1 && errno == EINTR &&
                 !mono_thread_info_is_interrupt_state (info));
                        
@@ -1179,7 +1234,9 @@ file_write(gpointer handle, gconstpointer buffer, guint32 numbytes, guint32 *byt
                 * because we only do advisory locking on POSIX
                 * systems
                 */
+               MONO_ENTER_GC_SAFE;
                current_pos = lseek (fd, (off_t)0, SEEK_CUR);
+               MONO_EXIT_GC_SAFE;
                if (current_pos == -1) {
                        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p lseek failed: %s", __func__,
                                   handle, strerror (errno));
@@ -1195,7 +1252,9 @@ file_write(gpointer handle, gconstpointer buffer, guint32 numbytes, guint32 *byt
        }
                
        do {
+               MONO_ENTER_GC_SAFE;
                ret = write (fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret == -1 && errno == EINTR &&
                 !mono_thread_info_is_interrupt_state (info));
        
@@ -1246,7 +1305,9 @@ static gboolean file_flush(gpointer handle)
                return(FALSE);
        }
 
+       MONO_ENTER_GC_SAFE;
        ret=fsync(fd);
+       MONO_EXIT_GC_SAFE;
        if (ret==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: fsync of handle %p error: %s", __func__, handle,
                          strerror(errno));
@@ -1307,25 +1368,30 @@ static guint32 file_seek(gpointer handle, gint32 movedistance,
 #ifdef HAVE_LARGE_FILE_SUPPORT
        if(highmovedistance==NULL) {
                offset=movedistance;
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: setting offset to %lld (low %d)", __func__,
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: setting offset to %" G_GINT64_FORMAT " (low %" G_GINT32_FORMAT ")", __func__,
                          offset, movedistance);
        } else {
                offset=((gint64) *highmovedistance << 32) | (guint32)movedistance;
                
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: setting offset to %lld 0x%llx (high %d 0x%x, low %d 0x%x)", __func__, offset, offset, *highmovedistance, *highmovedistance, movedistance, movedistance);
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: setting offset to %" G_GINT64_FORMAT " 0x%" PRIx64 " (high %" G_GINT32_FORMAT " 0x%" PRIx32 ", low %" G_GINT32_FORMAT " 0x%" PRIx32 ")",
+                         __func__, offset, offset, *highmovedistance, *highmovedistance, movedistance, movedistance);
        }
 #else
        offset=movedistance;
 #endif
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: moving handle %p by %lld bytes from %d", __func__,
-                  handle, (long long)offset, whence);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: moving handle %p by %" G_GINT64_FORMAT " bytes from %d", __func__,
+                  handle, offset, whence);
 
 #ifdef PLATFORM_ANDROID
        /* bionic doesn't support -D_FILE_OFFSET_BITS=64 */
+       MONO_ENTER_GC_SAFE;
        newpos=lseek64(fd, offset, whence);
+       MONO_EXIT_GC_SAFE;
 #else
+       MONO_ENTER_GC_SAFE;
        newpos=lseek(fd, offset, whence);
+       MONO_EXIT_GC_SAFE;
 #endif
        if(newpos==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: lseek on handle %p returned error %s",
@@ -1335,7 +1401,7 @@ static guint32 file_seek(gpointer handle, gint32 movedistance,
                return(INVALID_SET_FILE_POINTER);
        }
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: lseek returns %lld", __func__, newpos);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: lseek returns %" G_GINT64_FORMAT, __func__, newpos);
 
 #ifdef HAVE_LARGE_FILE_SUPPORT
        ret=newpos & 0xFFFFFFFF;
@@ -1350,7 +1416,7 @@ static guint32 file_seek(gpointer handle, gint32 movedistance,
        }
 #endif
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: move of handle %p returning %d/%d", __func__,
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: move of handle %p returning %" G_GUINT32_FORMAT "/%" G_GINT32_FORMAT, __func__,
                   handle, ret, highmovedistance==NULL?0:*highmovedistance);
 
        return(ret);
@@ -1389,7 +1455,9 @@ static gboolean file_setendoffile(gpointer handle)
         * than the length, truncate the file.
         */
        
+       MONO_ENTER_GC_SAFE;
        ret=fstat(fd, &statbuf);
+       MONO_EXIT_GC_SAFE;
        if(ret==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p fstat failed: %s", __func__,
                           handle, strerror(errno));
@@ -1398,7 +1466,9 @@ static gboolean file_setendoffile(gpointer handle)
                return(FALSE);
        }
 
+       MONO_ENTER_GC_SAFE;
        pos=lseek(fd, (off_t)0, SEEK_CUR);
+       MONO_EXIT_GC_SAFE;
        if(pos==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p lseek failed: %s", __func__,
                          handle, strerror(errno));
@@ -1422,7 +1492,9 @@ static gboolean file_setendoffile(gpointer handle)
                 * drop this write.
                 */
                do {
+                       MONO_ENTER_GC_SAFE;
                        ret = write (fd, "", 1);
+                       MONO_EXIT_GC_SAFE;
                } while (ret == -1 && errno == EINTR &&
                         !mono_thread_info_is_interrupt_state (info));
 
@@ -1434,7 +1506,9 @@ static gboolean file_setendoffile(gpointer handle)
                }
 
                /* And put the file position back after the write */
+               MONO_ENTER_GC_SAFE;
                ret = lseek (fd, pos, SEEK_SET);
+               MONO_EXIT_GC_SAFE;
                if (ret == -1) {
                        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p second lseek failed: %s",
                                   __func__, handle, strerror(errno));
@@ -1445,13 +1519,13 @@ static gboolean file_setendoffile(gpointer handle)
        }
 #endif
 
-/* Native Client has no ftruncate function, even in standalone sel_ldr. */
-#ifndef __native_client__
        /* always truncate, because the extend write() adds an extra
         * byte to the end of the file
         */
        do {
+               MONO_ENTER_GC_SAFE;
                ret=ftruncate(fd, pos);
+               MONO_EXIT_GC_SAFE;
        }
        while (ret==-1 && errno==EINTR && !mono_thread_info_is_interrupt_state (info)); 
        if(ret==-1) {
@@ -1461,7 +1535,6 @@ static gboolean file_setendoffile(gpointer handle)
                _wapi_set_last_error_from_errno ();
                return(FALSE);
        }
-#endif
                
        return(TRUE);
 }
@@ -1500,7 +1573,9 @@ static guint32 file_getfilesize(gpointer handle, guint32 *highsize)
         */
        mono_w32error_set_last (ERROR_SUCCESS);
        
+       MONO_ENTER_GC_SAFE;
        ret = fstat(fd, &statbuf);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p fstat failed: %s", __func__,
                           handle, strerror(errno));
@@ -1513,7 +1588,11 @@ static guint32 file_getfilesize(gpointer handle, guint32 *highsize)
 #ifdef BLKGETSIZE64
        if (S_ISBLK(statbuf.st_mode)) {
                guint64 bigsize;
-               if (ioctl(fd, BLKGETSIZE64, &bigsize) < 0) {
+               gint res;
+               MONO_ENTER_GC_SAFE;
+               res = ioctl (fd, BLKGETSIZE64, &bigsize);
+               MONO_EXIT_GC_SAFE;
+               if (res < 0) {
                        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p ioctl BLKGETSIZE64 failed: %s",
                                   __func__, handle, strerror(errno));
 
@@ -1526,7 +1605,7 @@ static guint32 file_getfilesize(gpointer handle, guint32 *highsize)
                        *highsize = bigsize>>32;
                }
 
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Returning block device size %d/%d",
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Returning block device size %" G_GUINT32_FORMAT "/%" G_GUINT32_FORMAT,
                           __func__, size, *highsize);
        
                return(size);
@@ -1546,7 +1625,7 @@ static guint32 file_getfilesize(gpointer handle, guint32 *highsize)
        size = statbuf.st_size;
 #endif
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Returning size %d/%d", __func__, size, *highsize);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Returning size %" G_GUINT32_FORMAT "/%" G_GUINT32_FORMAT, __func__, size, *highsize);
        
        return(size);
 }
@@ -1580,7 +1659,9 @@ static gboolean file_getfiletime(gpointer handle, FILETIME *create_time,
                return(FALSE);
        }
        
+       MONO_ENTER_GC_SAFE;
        ret=fstat(fd, &statbuf);
+       MONO_EXIT_GC_SAFE;
        if(ret==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p fstat failed: %s", __func__, handle,
                          strerror(errno));
@@ -1610,7 +1691,7 @@ static gboolean file_getfiletime(gpointer handle, FILETIME *create_time,
        access_ticks=((guint64)statbuf.st_atime*10000000)+116444736000000000ULL;
        write_ticks=((guint64)statbuf.st_mtime*10000000)+116444736000000000ULL;
        
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: aticks: %llu cticks: %llu wticks: %llu", __func__,
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: aticks: %" G_GUINT64_FORMAT " cticks: %" G_GUINT64_FORMAT " wticks: %" G_GUINT64_FORMAT, __func__,
                  access_ticks, create_ticks, write_ticks);
 
        if(create_time!=NULL) {
@@ -1671,7 +1752,9 @@ static gboolean file_setfiletime(gpointer handle,
        /* Get the current times, so we can put the same times back in
         * the event that one of the FileTime structs is NULL
         */
+       MONO_ENTER_GC_SAFE;
        ret=fstat (fd, &statbuf);
+       MONO_EXIT_GC_SAFE;
        if(ret==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: handle %p fstat failed: %s", __func__, handle,
                          strerror(errno));
@@ -1746,6 +1829,8 @@ static gboolean file_setfiletime(gpointer handle,
 
 static void console_close (gpointer handle, gpointer data)
 {
+       /* FIXME: after mono_w32handle_close is coop-aware, change this to MONO_REQ_GC_UNSAFE_MODE and leave just the switch to SAFE around close() below */
+       MONO_ENTER_GC_UNSAFE;
        MonoW32HandleFile *console_handle = (MonoW32HandleFile *)data;
        gint fd = console_handle->fd;
        
@@ -1756,8 +1841,11 @@ static void console_close (gpointer handle, gpointer data)
        if (fd > 2) {
                if (console_handle->share_info)
                        file_share_release (console_handle->share_info);
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
        }
+       MONO_EXIT_GC_UNSAFE;
 }
 
 static void console_details (gpointer data)
@@ -1812,7 +1900,9 @@ console_read(gpointer handle, gpointer buffer, guint32 numbytes, guint32 *bytesr
        }
        
        do {
+               MONO_ENTER_GC_SAFE;
                ret=read(fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret==-1 && errno==EINTR && !mono_thread_info_is_interrupt_state (info));
 
        if(ret==-1) {
@@ -1861,7 +1951,9 @@ console_write(gpointer handle, gconstpointer buffer, guint32 numbytes, guint32 *
        }
        
        do {
+               MONO_ENTER_GC_SAFE;
                ret = write(fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret == -1 && errno == EINTR &&
                 !mono_thread_info_is_interrupt_state (info));
 
@@ -1896,6 +1988,8 @@ static gsize find_typesize (void)
 
 static void pipe_close (gpointer handle, gpointer data)
 {
+       /* FIXME: after mono_w32handle_close is coop-aware, change this to MONO_REQ_GC_UNSAFE_MODE and leave just the switch to SAFE around close() below */
+       MONO_ENTER_GC_UNSAFE;
        MonoW32HandleFile *pipe_handle = (MonoW32HandleFile*)data;
        gint fd = pipe_handle->fd;
 
@@ -1906,7 +2000,10 @@ static void pipe_close (gpointer handle, gpointer data)
        if (pipe_handle->share_info)
                file_share_release (pipe_handle->share_info);
 
+       MONO_ENTER_GC_SAFE;
        close (fd);
+       MONO_EXIT_GC_SAFE;
+       MONO_EXIT_GC_UNSAFE;
 }
 
 static void pipe_details (gpointer data)
@@ -1960,11 +2057,13 @@ pipe_read (gpointer handle, gpointer buffer, guint32 numbytes, guint32 *bytesrea
                return(FALSE);
        }
        
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: reading up to %d bytes from pipe %p", __func__,
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: reading up to %" G_GUINT32_FORMAT " bytes from pipe %p", __func__,
                   numbytes, handle);
 
        do {
+               MONO_ENTER_GC_SAFE;
                ret=read(fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret==-1 && errno==EINTR && !mono_thread_info_is_interrupt_state (info));
                
        if (ret == -1) {
@@ -2019,11 +2118,13 @@ pipe_write(gpointer handle, gconstpointer buffer, guint32 numbytes, guint32 *byt
                return(FALSE);
        }
        
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: writing up to %d bytes to pipe %p", __func__, numbytes,
-                  handle);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: writing up to %" G_GUINT32_FORMAT " bytes to pipe %p", __func__,
+                  numbytes, handle);
 
        do {
+               MONO_ENTER_GC_SAFE;
                ret = write (fd, buffer, numbytes);
+               MONO_EXIT_GC_SAFE;
        } while (ret == -1 && errno == EINTR &&
                 !mono_thread_info_is_interrupt_state (info));
 
@@ -2061,7 +2162,7 @@ static gint convert_flags(guint32 fileaccess, guint32 createmode)
                flags=O_RDWR;
                break;
        default:
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unknown access type 0x%x", __func__,
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unknown access type 0x%" PRIx32, __func__,
                          fileaccess);
                break;
        }
@@ -2082,7 +2183,7 @@ static gint convert_flags(guint32 fileaccess, guint32 createmode)
                flags|=O_TRUNC;
                break;
        default:
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unknown create mode 0x%x", __func__,
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unknown create mode 0x%" PRIx32, __func__,
                          createmode);
                break;
        }
@@ -2122,7 +2223,7 @@ static gboolean share_allows_open (struct stat *statbuf, guint32 sharemode,
                 */
                if (file_existing_share == 0) {
                        /* Quick and easy, no possibility to share */
-                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%x, file has sharing = NONE", __func__, fileaccess);
+                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%" PRIx32 ", file has sharing = NONE", __func__, fileaccess);
 
                        file_share_release (*share_info);
                        
@@ -2134,7 +2235,7 @@ static gboolean share_allows_open (struct stat *statbuf, guint32 sharemode,
                    ((file_existing_share == FILE_SHARE_WRITE) &&
                     (fileaccess != GENERIC_WRITE))) {
                        /* New access mode doesn't match up */
-                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%x, file has sharing: 0x%x", __func__, fileaccess, file_existing_share);
+                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%" PRIx32 ", file has sharing: 0x%" PRIx32, __func__, fileaccess, file_existing_share);
 
                        file_share_release (*share_info);
                
@@ -2146,7 +2247,7 @@ static gboolean share_allows_open (struct stat *statbuf, guint32 sharemode,
                    ((file_existing_access & GENERIC_WRITE) &&
                     !(sharemode & FILE_SHARE_WRITE))) {
                        /* New share mode doesn't match up */
-                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Access mode prevents open: requested share: 0x%x, file has access: 0x%x", __func__, sharemode, file_existing_access);
+                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Access mode prevents open: requested share: 0x%" PRIx32 ", file has access: 0x%" PRIx32, __func__, sharemode, file_existing_access);
 
                        file_share_release (*share_info);
                
@@ -2175,7 +2276,7 @@ share_allows_delete (struct stat *statbuf, FileShare **share_info)
                 */
                if (file_existing_share == 0) {
                        /* Quick and easy, no possibility to share */
-                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%x, file has sharing = NONE", __func__, (*share_info)->access);
+                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%" PRIx32 ", file has sharing = NONE", __func__, (*share_info)->access);
 
                        file_share_release (*share_info);
 
@@ -2184,7 +2285,7 @@ share_allows_delete (struct stat *statbuf, FileShare **share_info)
 
                if (!(file_existing_share & FILE_SHARE_DELETE)) {
                        /* New access mode doesn't match up */
-                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%x, file has sharing: 0x%x", __func__, (*share_info)->access, file_existing_share);
+                       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Share mode prevents open: requested access: 0x%" PRIx32 ", file has sharing: 0x%" PRIx32, __func__, (*share_info)->access, file_existing_share);
 
                        file_share_release (*share_info);
 
@@ -2238,7 +2339,7 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
                return(INVALID_HANDLE_VALUE);
        }
        
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Opening %s with share 0x%x and access 0x%x", __func__,
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Opening %s with share 0x%" PRIx32 " and access 0x%" PRIx32, __func__,
                   filename, sharemode, fileaccess);
        
        fd = _wapi_open (filename, flags, perms);
@@ -2271,35 +2372,36 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
 
                mono_w32error_set_last (ERROR_TOO_MANY_OPEN_FILES);
                
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
                g_free (filename);
                
                return(INVALID_HANDLE_VALUE);
        }
 
+       MONO_ENTER_GC_SAFE;
        ret = fstat (fd, &statbuf);
+       MONO_EXIT_GC_SAFE;
        if (ret == -1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: fstat error of file %s: %s", __func__,
                           filename, strerror (errno));
                _wapi_set_last_error_from_errno ();
                g_free (filename);
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
                
                return(INVALID_HANDLE_VALUE);
        }
-#ifdef __native_client__
-       /* Workaround: Native Client currently returns the same fake inode
-        * for all files, so do a simple hash on the filename so we don't
-        * use the same share info for each file.
-        */
-       statbuf.st_ino = g_str_hash(filename);
-#endif
 
        if (share_allows_open (&statbuf, sharemode, fileaccess,
                         &file_handle.share_info) == FALSE) {
                mono_w32error_set_last (ERROR_SHARING_VIOLATION);
                g_free (filename);
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
                
                return (INVALID_HANDLE_VALUE);
        }
@@ -2308,7 +2410,9 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: No space in the share table", __func__);
 
                mono_w32error_set_last (ERROR_TOO_MANY_OPEN_FILES);
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
                g_free (filename);
                
                return(INVALID_HANDLE_VALUE);
@@ -2322,15 +2426,24 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
        file_handle.attrs=attrs;
 
 #ifdef HAVE_POSIX_FADVISE
-       if (attrs & FILE_FLAG_SEQUENTIAL_SCAN)
+       if (attrs & FILE_FLAG_SEQUENTIAL_SCAN) {
+               MONO_ENTER_GC_SAFE;
                posix_fadvise (fd, 0, 0, POSIX_FADV_SEQUENTIAL);
-       if (attrs & FILE_FLAG_RANDOM_ACCESS)
+               MONO_EXIT_GC_SAFE;
+       }
+       if (attrs & FILE_FLAG_RANDOM_ACCESS) {
+               MONO_ENTER_GC_SAFE;
                posix_fadvise (fd, 0, 0, POSIX_FADV_RANDOM);
+               MONO_EXIT_GC_SAFE;
+       }
 #endif
 
 #ifdef F_RDAHEAD
-       if (attrs & FILE_FLAG_SEQUENTIAL_SCAN)
+       if (attrs & FILE_FLAG_SEQUENTIAL_SCAN) {
+               MONO_ENTER_GC_SAFE;
                fcntl(fd, F_RDAHEAD, 1);
+               MONO_EXIT_GC_SAFE;
+       }
 #endif
 
 #ifndef S_ISFIFO
@@ -2348,11 +2461,15 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
                handle_type = MONO_W32HANDLE_FILE;
        }
 
+       MONO_ENTER_GC_SAFE; /* FIXME: mono_w32handle_new_fd should be updated with coop transitions */
        handle = mono_w32handle_new_fd (handle_type, fd, &file_handle);
+       MONO_EXIT_GC_SAFE;
        if (handle == INVALID_HANDLE_VALUE) {
                g_warning ("%s: error creating file handle", __func__);
                g_free (filename);
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
                
                mono_w32error_set_last (ERROR_GEN_FAILURE);
                return(INVALID_HANDLE_VALUE);
@@ -2366,7 +2483,14 @@ mono_w32file_create(const gunichar2 *name, guint32 fileaccess, guint32 sharemode
 gboolean
 mono_w32file_close (gpointer handle)
 {
-       return mono_w32handle_close (handle);
+       gboolean res;
+       MONO_ENTER_GC_SAFE;
+       /* FIXME: we transition here and not in file_close, pipe_close,
+        * console_close because w32handle_close is not coop aware yet, but it
+        * calls back into w32file. */
+       res = mono_w32handle_close (handle);
+       MONO_EXIT_GC_SAFE;
+       return res;
 }
 
 gboolean mono_w32file_delete(const gunichar2 *name)
@@ -2374,7 +2498,6 @@ gboolean mono_w32file_delete(const gunichar2 *name)
        gchar *filename;
        gint retval;
        gboolean ret = FALSE;
-       guint32 attrs;
 #if 0
        struct stat statbuf;
        FileShare *shareinfo;
@@ -2395,14 +2518,6 @@ gboolean mono_w32file_delete(const gunichar2 *name)
                return(FALSE);
        }
 
-       attrs = mono_w32file_get_attributes (name);
-       if (attrs == INVALID_FILE_ATTRIBUTES) {
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: file attributes error", __func__);
-               /* Error set by mono_w32file_get_attributes() */
-               g_free (filename);
-               return(FALSE);
-       }
-
 #if 0
        /* Check to make sure sharing allows us to open the file for
         * writing.  See bug 323389.
@@ -2430,6 +2545,19 @@ gboolean mono_w32file_delete(const gunichar2 *name)
        retval = _wapi_unlink (filename);
        
        if (retval == -1) {
+               /* On linux, calling unlink on an non-existing file in a read-only mount will fail with EROFS.
+                * The expected behavior is for this function to return FALSE and not trigger an exception.
+                * To work around this behavior, we stat the file on failure.
+                *
+                * This was supposedly fixed on kernel 3.0 [1] but we could reproduce it with Ubuntu 16.04 which has kernel 4.4.
+                * We can't remove this workaround until the early 2020's when most Android deviced will have a fix.
+                * [1] https://github.com/torvalds/linux/commit/50338b889dc504c69e0cb316ac92d1b9e51f3c8a
+                */
+               if (errno == EROFS) {
+                       MonoIOStat stat;
+                       if (mono_w32file_get_attributes_ex (name, &stat)) //The file exists, so must be due the RO file system
+                               errno = EROFS;
+               }
                _wapi_set_last_path_error_from_errno (NULL, filename);
        } else {
                ret = TRUE;
@@ -2580,7 +2708,9 @@ write_file (gint src_fd, gint dest_fd, struct stat *st_src, gboolean report_erro
        buf = (gchar *) g_malloc (buf_size);
 
        for (;;) {
+               MONO_ENTER_GC_SAFE;
                remain = read (src_fd, buf, buf_size);
+               MONO_EXIT_GC_SAFE;
                if (remain < 0) {
                        if (errno == EINTR && !mono_thread_info_is_interrupt_state (info))
                                continue;
@@ -2597,7 +2727,10 @@ write_file (gint src_fd, gint dest_fd, struct stat *st_src, gboolean report_erro
 
                wbuf = buf;
                while (remain > 0) {
-                       if ((n = write (dest_fd, wbuf, remain)) < 0) {
+                       MONO_ENTER_GC_SAFE;
+                       n = write (dest_fd, wbuf, remain);
+                       MONO_EXIT_GC_SAFE;
+                       if (n < 0) {
                                if (errno == EINTR && !mono_thread_info_is_interrupt_state (info))
                                        continue;
 
@@ -2626,6 +2759,7 @@ CopyFile (const gunichar2 *name, const gunichar2 *dest_name, gboolean fail_if_ex
        struct utimbuf dest_time;
        gboolean ret = TRUE;
        gint ret_utime;
+       gint syscall_res;
        
        if(name==NULL) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: name is NULL", __func__);
@@ -2673,12 +2807,17 @@ CopyFile (const gunichar2 *name, const gunichar2 *dest_name, gboolean fail_if_ex
                return(FALSE);
        }
 
-       if (fstat (src_fd, &st) < 0) {
+       MONO_ENTER_GC_SAFE;
+       syscall_res = fstat (src_fd, &st);
+       MONO_EXIT_GC_SAFE;
+       if (syscall_res < 0) {
                _wapi_set_last_error_from_errno ();
 
                g_free (utf8_src);
                g_free (utf8_dest);
+               MONO_ENTER_GC_SAFE;
                close (src_fd);
+               MONO_EXIT_GC_SAFE;
                
                return(FALSE);
        }
@@ -2691,7 +2830,9 @@ CopyFile (const gunichar2 *name, const gunichar2 *dest_name, gboolean fail_if_ex
 
                g_free (utf8_src);
                g_free (utf8_dest);
+               MONO_ENTER_GC_SAFE;
                close (src_fd);
+               MONO_EXIT_GC_SAFE;
 
                mono_w32error_set_last (ERROR_SHARING_VIOLATION);
                return (FALSE);
@@ -2719,7 +2860,9 @@ CopyFile (const gunichar2 *name, const gunichar2 *dest_name, gboolean fail_if_ex
 
                g_free (utf8_src);
                g_free (utf8_dest);
+               MONO_ENTER_GC_SAFE;
                close (src_fd);
+               MONO_EXIT_GC_SAFE;
 
                return(FALSE);
        }
@@ -2732,7 +2875,9 @@ CopyFile (const gunichar2 *name, const gunichar2 *dest_name, gboolean fail_if_ex
        
        dest_time.modtime = st.st_mtime;
        dest_time.actime = st.st_atime;
+       MONO_ENTER_GC_SAFE;
        ret_utime = utime (utf8_dest, &dest_time);
+       MONO_EXIT_GC_SAFE;
        if (ret_utime == -1)
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: file [%s] utime failed: %s", __func__, utf8_dest, strerror(errno));
        
@@ -2812,14 +2957,20 @@ replace_cleanup:
        g_free (utf8_replacedFileName);
        g_free (utf8_replacementFileName);
        g_free (utf8_backupFileName);
-       if (backup_fd != -1)
+       if (backup_fd != -1) {
+               MONO_ENTER_GC_SAFE;
                close (backup_fd);
-       if (replaced_fd != -1)
+               MONO_EXIT_GC_SAFE;
+       }
+       if (replaced_fd != -1) {
+               MONO_ENTER_GC_SAFE;
                close (replaced_fd);
+               MONO_EXIT_GC_SAFE;
+       }
        return ret;
 }
 
-static mono_mutex_t stdhandle_mutex;
+static MonoCoopMutex stdhandle_mutex;
 
 static gpointer
 _wapi_stdhandle_create (gint fd, const gchar *name)
@@ -2830,7 +2981,6 @@ _wapi_stdhandle_create (gint fd, const gchar *name)
 
        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: creating standard handle type %s, fd %d", __func__, name, fd);
 
-#if !defined(__native_client__)
        /* Check if fd is valid */
        do {
                flags = fcntl(fd, F_GETFL);
@@ -2861,13 +3011,6 @@ _wapi_stdhandle_create (gint fd, const gchar *name)
                file_handle.fileaccess = 0;
                break;
        }
-#else
-       /*
-        * fcntl will return -1 in nacl, as there is no real file system API.
-        * Yet, standard streams are available.
-        */
-       file_handle.fileaccess = (fd == STDIN_FILENO) ? GENERIC_READ : GENERIC_WRITE;
-#endif
 
        file_handle.fd = fd;
        file_handle.filename = g_strdup(name);
@@ -2932,7 +3075,7 @@ mono_w32file_get_std_handle (gint stdhandle)
 
        handle = GINT_TO_POINTER (fd);
 
-       mono_os_mutex_lock (&stdhandle_mutex);
+       mono_coop_mutex_lock (&stdhandle_mutex);
 
        ok = mono_w32handle_lookup (handle, MONO_W32HANDLE_CONSOLE,
                                  (gpointer *)&file_handle);
@@ -2944,14 +3087,11 @@ mono_w32file_get_std_handle (gint stdhandle)
                        mono_w32error_set_last (ERROR_NO_MORE_FILES);
                        goto done;
                }
-       } else {
-               /* Add a reference to this handle */
-               mono_w32handle_ref (handle);
        }
        
   done:
-       mono_os_mutex_unlock (&stdhandle_mutex);
-       
+       mono_coop_mutex_unlock (&stdhandle_mutex);
+
        return(handle);
 }
 
@@ -3139,21 +3279,23 @@ mono_w32file_filetime_to_systemtime(const FILETIME *file_time, SYSTEMTIME *syste
 
        totaldays=(file_ticks / TICKS_PER_DAY);
        rem = file_ticks % TICKS_PER_DAY;
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %lld rem: %lld", __func__, totaldays, rem);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %" G_GINT64_FORMAT " rem: %" G_GINT64_FORMAT, __func__,
+                 totaldays, rem);
 
        system_time->wHour=rem/TICKS_PER_HOUR;
        rem %= TICKS_PER_HOUR;
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hour: %d rem: %lld", __func__, system_time->wHour, rem);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Hour: %d rem: %" G_GINT64_FORMAT,  __func__,
+                 system_time->wHour, rem);
        
        system_time->wMinute = rem / TICKS_PER_MINUTE;
        rem %= TICKS_PER_MINUTE;
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Minute: %d rem: %lld", __func__, system_time->wMinute,
-                 rem);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Minute: %d rem: %" G_GINT64_FORMAT, __func__,
+                 system_time->wMinute, rem);
        
        system_time->wSecond = rem / TICKS_PER_SECOND;
        rem %= TICKS_PER_SECOND;
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Second: %d rem: %lld", __func__, system_time->wSecond,
-                 rem);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Second: %d rem: %" G_GINT64_FORMAT, __func__,
+                 system_time->wSecond, rem);
        
        system_time->wMilliseconds = rem / TICKS_PER_MILLISECOND;
        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Milliseconds: %d", __func__,
@@ -3174,19 +3316,19 @@ mono_w32file_filetime_to_systemtime(const FILETIME *file_time, SYSTEMTIME *syste
        while(totaldays < 0 || totaldays >= (isleap(y)?366:365)) {
                /* Guess a corrected year, assuming 365 days per year */
                gint64 yg = y + totaldays / 365 - (totaldays % 365 < 0);
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %lld yg: %lld y: %lld", __func__,
-                         totaldays, yg,
-                         y);
-               g_message("%s: LEAPS(yg): %lld LEAPS(y): %lld", __func__,
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %" G_GINT64_FORMAT " yg: %" G_GINT64_FORMAT " y: %" G_GINT64_FORMAT, __func__,
+                         totaldays, yg, y);
+               g_message("%s: LEAPS(yg): %li LEAPS(y): %li", __func__,
                          LEAPS_THRU_END_OF(yg-1), LEAPS_THRU_END_OF(y-1));
                
                /* Adjust days and y to match the guessed year. */
                totaldays -= ((yg - y) * 365
                              + LEAPS_THRU_END_OF (yg - 1)
                              - LEAPS_THRU_END_OF (y - 1));
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %lld", __func__, totaldays);
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %" G_GINT64_FORMAT,
+                         __func__, totaldays);
                y = yg;
-               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: y: %lld", __func__, y);
+               mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: y: %" G_GINT64_FORMAT, __func__, y);
        }
        
        system_time->wYear = y;
@@ -3198,7 +3340,7 @@ mono_w32file_filetime_to_systemtime(const FILETIME *file_time, SYSTEMTIME *syste
                continue;
        }
        totaldays-=ip[y];
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %lld", __func__, totaldays);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: totaldays: %" G_GINT64_FORMAT, __func__, totaldays);
        
        system_time->wMonth = y + 1;
        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Month: %d", __func__, system_time->wMonth);
@@ -3374,7 +3516,6 @@ retry:
                goto retry;
        }
 
-#ifndef __native_client__
        result = _wapi_lstat (filename, &linkbuf);
        if (result != 0) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: lstat failed: %s", __func__, filename);
@@ -3382,7 +3523,6 @@ retry:
                g_free (filename);
                goto retry;
        }
-#endif
 
        utf8_filename = mono_utf8_from_external (filename);
        if (utf8_filename == NULL) {
@@ -3406,11 +3546,7 @@ retry:
        else
                create_time = buf.st_ctime;
        
-#ifdef __native_client__
-       find_data->dwFileAttributes = _wapi_stat_to_file_attributes (utf8_filename, &buf, NULL);
-#else
        find_data->dwFileAttributes = _wapi_stat_to_file_attributes (utf8_filename, &buf, &linkbuf);
-#endif
 
        time_t_to_filetime (create_time, &find_data->ftCreationTime);
        time_t_to_filetime (buf.st_atime, &find_data->ftLastAccessTime);
@@ -3487,7 +3623,9 @@ mono_w32file_find_close (gpointer handle)
 
        mono_w32handle_unlock_handle (handle);
        
-       mono_w32handle_unref (handle);
+       MONO_ENTER_GC_SAFE;
+       mono_w32handle_close (handle);
+       MONO_EXIT_GC_SAFE;
        
        return(TRUE);
 }
@@ -3582,7 +3720,7 @@ mono_w32file_get_attributes (const gunichar2 *name)
        }
 
        result = _wapi_stat (utf8_name, &buf);
-       if (result == -1 && errno == ENOENT) {
+       if (result == -1 && (errno == ENOENT || errno == ELOOP)) {
                /* Might be a dangling symlink... */
                result = _wapi_lstat (utf8_name, &buf);
        }
@@ -3593,20 +3731,14 @@ mono_w32file_get_attributes (const gunichar2 *name)
                return (INVALID_FILE_ATTRIBUTES);
        }
 
-#ifndef __native_client__
        result = _wapi_lstat (utf8_name, &linkbuf);
        if (result != 0) {
                _wapi_set_last_path_error_from_errno (NULL, utf8_name);
                g_free (utf8_name);
                return (INVALID_FILE_ATTRIBUTES);
        }
-#endif
        
-#ifdef __native_client__
-       ret = _wapi_stat_to_file_attributes (utf8_name, &buf, NULL);
-#else
        ret = _wapi_stat_to_file_attributes (utf8_name, &buf, &linkbuf);
-#endif
        
        g_free (utf8_name);
 
@@ -3731,7 +3863,9 @@ mono_w32file_set_attributes (const gunichar2 *name, guint32 attrs)
                if ((buf.st_mode & S_IROTH) != 0)
                        exec_mask |= S_IXOTH;
 
+               MONO_ENTER_GC_SAFE;
                result = chmod (utf8_name, buf.st_mode | exec_mask);
+               MONO_EXIT_GC_SAFE;
        }
        /* Don't bother to reset executable (might need to change this
         * policy)
@@ -3749,12 +3883,6 @@ mono_w32file_get_cwd (guint32 length, gunichar2 *buffer)
        glong count;
        gsize bytes;
 
-#ifdef __native_client__
-       gchar *path = g_get_current_dir ();
-       if (length < strlen(path) + 1 || path == NULL)
-               return 0;
-       memcpy (buffer, path, strlen(path) + 1);
-#else
        if (getcwd ((gchar*)buffer, length) == NULL) {
                if (errno == ERANGE) { /*buffer length is not big enough */ 
                        gchar *path = g_get_current_dir (); /*FIXME g_get_current_dir doesn't work with broken paths and calling it just to know the path length is silly*/
@@ -3768,7 +3896,6 @@ mono_w32file_get_cwd (guint32 length, gunichar2 *buffer)
                _wapi_set_last_error_from_errno ();
                return 0;
        }
-#endif
 
        utf16_path = mono_unicode_from_external ((gchar*)buffer, &bytes);
        count = (bytes/2)+1;
@@ -3818,7 +3945,9 @@ mono_w32file_create_pipe (gpointer *readpipe, gpointer *writepipe, guint32 size)
        
        mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Creating pipe", __func__);
 
+       MONO_ENTER_GC_SAFE;
        ret=pipe (filedes);
+       MONO_EXIT_GC_SAFE;
        if(ret==-1) {
                mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Error creating pipe: %s", __func__,
                           strerror (errno));
@@ -3833,8 +3962,10 @@ mono_w32file_create_pipe (gpointer *readpipe, gpointer *writepipe, guint32 size)
 
                mono_w32error_set_last (ERROR_TOO_MANY_OPEN_FILES);
                
+               MONO_ENTER_GC_SAFE;
                close (filedes[0]);
                close (filedes[1]);
+               MONO_EXIT_GC_SAFE;
                
                return(FALSE);
        }
@@ -3847,8 +3978,10 @@ mono_w32file_create_pipe (gpointer *readpipe, gpointer *writepipe, guint32 size)
                                           &pipe_read_handle);
        if (read_handle == INVALID_HANDLE_VALUE) {
                g_warning ("%s: error creating pipe read handle", __func__);
+               MONO_ENTER_GC_SAFE;
                close (filedes[0]);
                close (filedes[1]);
+               MONO_EXIT_GC_SAFE;
                mono_w32error_set_last (ERROR_GEN_FAILURE);
                
                return(FALSE);
@@ -3860,10 +3993,13 @@ mono_w32file_create_pipe (gpointer *readpipe, gpointer *writepipe, guint32 size)
                                            &pipe_write_handle);
        if (write_handle == INVALID_HANDLE_VALUE) {
                g_warning ("%s: error creating pipe write handle", __func__);
-               mono_w32handle_unref (read_handle);
+
+               MONO_ENTER_GC_SAFE;
+               mono_w32handle_close (read_handle);
                
                close (filedes[0]);
                close (filedes[1]);
+               MONO_EXIT_GC_SAFE;
                mono_w32error_set_last (ERROR_GEN_FAILURE);
                
                return(FALSE);
@@ -3887,15 +4023,21 @@ mono_w32file_get_logical_drive (guint32 len, gunichar2 *buf)
        gint size, n, i;
        gunichar2 *dir;
        glong length, total = 0;
-       
+       gint syscall_res;
+
+       MONO_ENTER_GC_SAFE;
        n = getfsstat (NULL, 0, MNT_NOWAIT);
+       MONO_EXIT_GC_SAFE;
        if (n == -1)
                return 0;
        size = n * sizeof (struct statfs);
        stats = (struct statfs *) g_malloc (size);
        if (stats == NULL)
                return 0;
-       if (getfsstat (stats, size, MNT_NOWAIT) == -1){
+       MONO_ENTER_GC_SAFE;
+       syscall_res = getfsstat (stats, size, MNT_NOWAIT);
+       MONO_EXIT_GC_SAFE;
+       if (syscall_res == -1){
                g_free (stats);
                return 0;
        }
@@ -3982,11 +4124,15 @@ mono_w32file_get_logical_drive (guint32 len, gunichar2 *buf)
        gboolean (*parser)(guint32, gunichar2*, LinuxMountInfoParseState*) = NULL;
 
        memset (buf, 0, len * sizeof (gunichar2));
+       MONO_ENTER_GC_SAFE;
        fd = open ("/proc/self/mountinfo", O_RDONLY);
+       MONO_EXIT_GC_SAFE;
        if (fd != -1)
                parser = GetLogicalDriveStrings_MountInfo;
        else {
+               MONO_ENTER_GC_SAFE;
                fd = open ("/proc/mounts", O_RDONLY);
+               MONO_EXIT_GC_SAFE;
                if (fd != -1)
                        parser = GetLogicalDriveStrings_Mounts;
        }
@@ -4000,7 +4146,12 @@ mono_w32file_get_logical_drive (guint32 len, gunichar2 *buf)
        state.field_number = 1;
        state.delimiter = ' ';
 
-       while ((state.nbytes = read (fd, state.buffer, GET_LOGICAL_DRIVE_STRINGS_BUFFER)) > 0) {
+       while (1) {
+               MONO_ENTER_GC_SAFE;
+               state.nbytes = read (fd, state.buffer, GET_LOGICAL_DRIVE_STRINGS_BUFFER);
+               MONO_EXIT_GC_SAFE;
+               if (!(state.nbytes > 0))
+                       break;
                state.buffer_index = 0;
 
                while ((*parser)(len, buf, &state)) {
@@ -4022,8 +4173,11 @@ mono_w32file_get_logical_drive (guint32 len, gunichar2 *buf)
        ret = state.total;
 
   done_and_out:
-       if (fd != -1)
+       if (fd != -1) {
+               MONO_ENTER_GC_SAFE;
                close (fd);
+               MONO_EXIT_GC_SAFE;
+       }
        return ret;
 }
 
@@ -4256,15 +4410,25 @@ GetLogicalDriveStrings_Mtab (guint32 len, gunichar2 *buf)
        /* Sigh, mntent and friends don't work well.
         * It stops on the first line that doesn't begin with a '/'.
         * (linux 2.6.5, libc 2.3.2.ds1-12) - Gonz */
+       MONO_ENTER_GC_SAFE;
        fp = fopen ("/etc/mtab", "rt");
+       MONO_EXIT_GC_SAFE;
        if (fp == NULL) {
+               MONO_ENTER_GC_SAFE;
                fp = fopen ("/etc/mnttab", "rt");
+               MONO_EXIT_GC_SAFE;
                if (fp == NULL)
                        return 1;
        }
 
        ptr = buf;
-       while (fgets (buffer, 512, fp) != NULL) {
+       while (1) {
+               gchar *fgets_res;
+               MONO_ENTER_GC_SAFE;
+               fgets_res = fgets (buffer, 512, fp);
+               MONO_EXIT_GC_SAFE;
+               if (!fgets_res)
+                       break;
                if (*buffer != '/')
                        continue;
 
@@ -4278,7 +4442,9 @@ GetLogicalDriveStrings_Mtab (guint32 len, gunichar2 *buf)
                dir = g_utf8_to_utf16 (*(splitted + 1), -1, NULL, &length, NULL);
                g_strfreev (splitted);
                if (total + length + 1 > len) {
+                       MONO_ENTER_GC_SAFE;
                        fclose (fp);
+                       MONO_EXIT_GC_SAFE;
                        g_free (dir);
                        return len * 2; /* guess */
                }
@@ -4288,7 +4454,9 @@ GetLogicalDriveStrings_Mtab (guint32 len, gunichar2 *buf)
                total += length + 1;
        }
 
+       MONO_ENTER_GC_SAFE;
        fclose (fp);
+       MONO_EXIT_GC_SAFE;
        return total;
 /* Commented out, does not work with my mtab!!! - Gonz */
 #ifdef NOTENABLED /* HAVE_MNTENT_H */
@@ -4299,18 +4467,30 @@ GetLogicalDriveStrings_Mtab (guint32 len, gunichar2 *buf)
        glong len, total = 0;
        
 
+       MONO_ENTER_GC_SAFE;
        fp = setmntent ("/etc/mtab", "rt");
+       MONO_EXIT_GC_SAFE;
        if (fp == NULL) {
+               MONO_ENTER_GC_SAFE;
                fp = setmntent ("/etc/mnttab", "rt");
+               MONO_EXIT_GC_SAFE;
                if (fp == NULL)
                        return;
        }
 
        ptr = buf;
-       while ((mnt = getmntent (fp)) != NULL) {
+       while (1) {
+               MONO_ENTER_GC_SAFE;
+               mnt = getmntent (fp);
+               MONO_EXIT_GC_SAFE;
+               if (mnt == NULL)
+                       break;
                g_print ("GOT %s\n", mnt->mnt_dir);
                dir = g_utf8_to_utf16 (mnt->mnt_dir, &len, NULL, NULL, NULL);
                if (total + len + 1 > len) {
+                       MONO_ENTER_GC_SAFE;
+                       endmntent (fp);
+                       MONO_EXIT_GC_SAFE;
                        return len * 2; /* guess */
                }
 
@@ -4319,7 +4499,9 @@ GetLogicalDriveStrings_Mtab (guint32 len, gunichar2 *buf)
                total += len + 1;
        }
 
+       MONO_ENTER_GC_SAFE;
        endmntent (fp);
+       MONO_EXIT_GC_SAFE;
        return total;
 }
 #endif
@@ -4359,11 +4541,15 @@ mono_w32file_get_disk_free_space (const gunichar2 *path_name, guint64 *free_byte
 
        do {
 #ifdef HAVE_STATVFS
+               MONO_ENTER_GC_SAFE;
                ret = statvfs (utf8_path_name, &fsstat);
+               MONO_EXIT_GC_SAFE;
                isreadonly = ((fsstat.f_flag & ST_RDONLY) == ST_RDONLY);
                block_size = fsstat.f_frsize;
 #elif defined(HAVE_STATFS)
+               MONO_ENTER_GC_SAFE;
                ret = statfs (utf8_path_name, &fsstat);
+               MONO_EXIT_GC_SAFE;
 #if defined (MNT_RDONLY)
                isreadonly = ((fsstat.f_flags & MNT_RDONLY) == MNT_RDONLY);
 #elif defined (MS_RDONLY)
@@ -4450,6 +4636,7 @@ static _wapi_drive_type _wapi_drive_types[] = {
        { DRIVE_RAMDISK, "fdesc" },
        { DRIVE_REMOTE, "ftp" },
        { DRIVE_FIXED, "hfs" },
+       { DRIVE_FIXED, "apfs" },
        { DRIVE_FIXED, "msdos" },
        { DRIVE_REMOTE, "nfs" },
        { DRIVE_FIXED, "ntfs" },
@@ -4601,8 +4788,12 @@ static guint32
 GetDriveTypeFromPath (const gchar *utf8_root_path_name)
 {
        struct statfs buf;
-       
-       if (statfs (utf8_root_path_name, &buf) == -1)
+       gint res;
+
+       MONO_ENTER_GC_SAFE;
+       res = statfs (utf8_root_path_name, &buf);
+       MONO_EXIT_GC_SAFE;
+       if (res == -1)
                return DRIVE_UNKNOWN;
 #if PLATFORM_MACOSX
        return _wapi_get_drive_type (buf.f_fstypename);
@@ -4619,15 +4810,25 @@ GetDriveTypeFromPath (const gchar *utf8_root_path_name)
        gchar buffer [512];
        gchar **splitted;
 
+       MONO_ENTER_GC_SAFE;
        fp = fopen ("/etc/mtab", "rt");
+       MONO_EXIT_GC_SAFE;
        if (fp == NULL) {
+               MONO_ENTER_GC_SAFE;
                fp = fopen ("/etc/mnttab", "rt");
+               MONO_EXIT_GC_SAFE;
                if (fp == NULL) 
                        return(DRIVE_UNKNOWN);
        }
 
        drive_type = DRIVE_NO_ROOT_DIR;
-       while (fgets (buffer, 512, fp) != NULL) {
+       while (1) {
+               gchar *fgets_res;
+               MONO_ENTER_GC_SAFE;
+               fgets_res = fgets (buffer, 512, fp);
+               MONO_EXIT_GC_SAFE;
+               if (fgets_res == NULL)
+                       break;
                splitted = g_strsplit (buffer, " ", 0);
                if (!*splitted || !*(splitted + 1) || !*(splitted + 2)) {
                        g_strfreev (splitted);
@@ -4650,7 +4851,9 @@ GetDriveTypeFromPath (const gchar *utf8_root_path_name)
                g_strfreev (splitted);
        }
 
+       MONO_ENTER_GC_SAFE;
        fclose (fp);
+       MONO_EXIT_GC_SAFE;
        return drive_type;
 }
 #endif
@@ -4685,7 +4888,7 @@ mono_w32file_get_drive_type(const gunichar2 *root_path_name)
        return (drive_type);
 }
 
-#if defined (PLATFORM_MACOSX) || defined (__linux__) || defined(PLATFORM_BSD) || defined(__native_client__) || defined(__FreeBSD_kernel__)
+#if defined (PLATFORM_MACOSX) || defined (__linux__) || defined(PLATFORM_BSD) || defined(__FreeBSD_kernel__) || defined(__HAIKU__)
 static gchar*
 get_fstypename (gchar *utfpath)
 {
@@ -4694,7 +4897,11 @@ get_fstypename (gchar *utfpath)
 #if __linux__
        _wapi_drive_type *current;
 #endif
-       if (statfs (utfpath, &stat) == -1)
+       gint statfs_res;
+       MONO_ENTER_GC_SAFE;
+       statfs_res = statfs (utfpath, &stat);
+       MONO_EXIT_GC_SAFE;
+       if (statfs_res == -1)
                return NULL;
 #if PLATFORM_MACOSX
        return g_strdup (stat.f_fstypename);
@@ -4764,7 +4971,8 @@ LockFile (gpointer handle, guint32 offset_low, guint32 offset_high, guint32 leng
        offset = ((gint64)offset_high << 32) | offset_low;
        length = ((gint64)length_high << 32) | length_low;
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Locking handle %p, offset %lld, length %lld", __func__, handle, offset, length);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Locking handle %p, offset %" G_GINT64_FORMAT ", length %" G_GINT64_FORMAT, __func__,
+                 handle, (gint64) offset, (gint64) length);
 #else
        if (offset_high > 0 || length_high > 0) {
                mono_w32error_set_last (ERROR_INVALID_PARAMETER);
@@ -4773,7 +4981,8 @@ LockFile (gpointer handle, guint32 offset_low, guint32 offset_high, guint32 leng
        offset = offset_low;
        length = length_low;
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Locking handle %p, offset %ld, length %ld", __func__, handle, offset, length);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Locking handle %p, offset %" G_GINT64_FORMAT ", length %" G_GINT64_FORMAT, __func__,
+                 handle, (gint64) offset, (gint64) length);
 #endif
 
        return _wapi_lock_file_region (GPOINTER_TO_UINT(handle), offset, length);
@@ -4801,12 +5010,13 @@ UnlockFile (gpointer handle, guint32 offset_low, guint32 offset_high, guint32 le
        offset = ((gint64)offset_high << 32) | offset_low;
        length = ((gint64)length_high << 32) | length_low;
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unlocking handle %p, offset %lld, length %lld", __func__, handle, offset, length);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unlocking handle %p, offset %" G_GINT64_FORMAT ", length %" G_GINT64_FORMAT, __func__,
+                 handle, (gint64) offset, (gint64) length);
 #else
        offset = offset_low;
        length = length_low;
 
-       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unlocking handle %p, offset %ld, length %ld", __func__, handle, offset, length);
+       mono_trace (G_LOG_LEVEL_DEBUG, MONO_TRACE_IO_LAYER, "%s: Unlocking handle %p, offset %" G_GINT64_FORMAT ", length %" G_GINT64_FORMAT, __func__, handle, (gint64) offset, (gint64) length);
 #endif
 
        return _wapi_unlock_file_region (GPOINTER_TO_UINT(handle), offset, length);
@@ -4815,8 +5025,8 @@ UnlockFile (gpointer handle, guint32 offset_low, guint32 offset_high, guint32 le
 void
 mono_w32file_init (void)
 {
-       mono_os_mutex_init (&stdhandle_mutex);
-       mono_os_mutex_init (&file_share_mutex);
+       mono_coop_mutex_init (&stdhandle_mutex);
+       mono_coop_mutex_init (&file_share_mutex);
 
        mono_w32handle_register_ops (MONO_W32HANDLE_FILE,    &_wapi_file_ops);
        mono_w32handle_register_ops (MONO_W32HANDLE_CONSOLE, &_wapi_console_ops);
@@ -4828,14 +5038,14 @@ mono_w32file_init (void)
 /*     mono_w32handle_register_capabilities (MONO_W32HANDLE_CONSOLE, */
 /*                                         MONO_W32HANDLE_CAP_WAIT); */
 
-       if (g_getenv ("MONO_STRICT_IO_EMULATION"))
+       if (g_hasenv ("MONO_STRICT_IO_EMULATION"))
                lock_while_writing = TRUE;
 }
 
 void
 mono_w32file_cleanup (void)
 {
-       mono_os_mutex_destroy (&file_share_mutex);
+       mono_coop_mutex_destroy (&file_share_mutex);
 
        if (file_share_table)
                g_hash_table_destroy (file_share_table);
@@ -4846,14 +5056,9 @@ mono_w32file_move (gunichar2 *path, gunichar2 *dest, gint32 *error)
 {
        gboolean result;
 
-       MONO_ENTER_GC_SAFE;
-
        result = MoveFile (path, dest);
        if (!result)
                *error = mono_w32error_get_last ();
-
-       MONO_EXIT_GC_SAFE;
-
        return result;
 }
 
@@ -4862,14 +5067,10 @@ mono_w32file_copy (gunichar2 *path, gunichar2 *dest, gboolean overwrite, gint32
 {
        gboolean result;
 
-       MONO_ENTER_GC_SAFE;
-
        result = CopyFile (path, dest, !overwrite);
        if (!result)
                *error = mono_w32error_get_last ();
 
-       MONO_EXIT_GC_SAFE;
-
        return result;
 }
 
@@ -4878,14 +5079,9 @@ mono_w32file_replace (gunichar2 *destinationFileName, gunichar2 *sourceFileName,
 {
        gboolean result;
 
-       MONO_ENTER_GC_SAFE;
-
        result = ReplaceFile (destinationFileName, sourceFileName, destinationBackupFileName, flags, NULL, NULL);
        if (!result)
                *error = mono_w32error_get_last ();
-
-       MONO_EXIT_GC_SAFE;
-
        return result;
 }
 
@@ -4895,15 +5091,11 @@ mono_w32file_get_file_size (gpointer handle, gint32 *error)
        gint64 length;
        guint32 length_hi;
 
-       MONO_ENTER_GC_SAFE;
-
        length = GetFileSize (handle, &length_hi);
        if(length==INVALID_FILE_SIZE) {
                *error=mono_w32error_get_last ();
        }
 
-       MONO_EXIT_GC_SAFE;
-
        return length | ((gint64)length_hi << 32);
 }
 
@@ -4912,14 +5104,9 @@ mono_w32file_lock (gpointer handle, gint64 position, gint64 length, gint32 *erro
 {
        gboolean result;
 
-       MONO_ENTER_GC_SAFE;
-
        result = LockFile (handle, position & 0xFFFFFFFF, position >> 32, length & 0xFFFFFFFF, length >> 32);
        if (!result)
                *error = mono_w32error_get_last ();
-
-       MONO_EXIT_GC_SAFE;
-
        return result;
 }
 
@@ -4928,49 +5115,26 @@ mono_w32file_unlock (gpointer handle, gint64 position, gint64 length, gint32 *er
 {
        gboolean result;
 
-       MONO_ENTER_GC_SAFE;
-
        result = UnlockFile (handle, position & 0xFFFFFFFF, position >> 32, length & 0xFFFFFFFF, length >> 32);
        if (!result)
                *error = mono_w32error_get_last ();
-
-       MONO_EXIT_GC_SAFE;
-
        return result;
 }
 
 gpointer
 mono_w32file_get_console_input (void)
 {
-       gpointer handle;
-
-       MONO_ENTER_GC_SAFE;
-       handle = mono_w32file_get_std_handle (STD_INPUT_HANDLE);
-       MONO_EXIT_GC_SAFE;
-
-       return handle;
+       return mono_w32file_get_std_handle (STD_INPUT_HANDLE);
 }
 
 gpointer
 mono_w32file_get_console_output (void)
 {
-       gpointer handle;
-
-       MONO_ENTER_GC_SAFE;
-       handle = mono_w32file_get_std_handle (STD_OUTPUT_HANDLE);
-       MONO_EXIT_GC_SAFE;
-
-       return handle;
+       return mono_w32file_get_std_handle (STD_OUTPUT_HANDLE);
 }
 
 gpointer
 mono_w32file_get_console_error (void)
 {
-       gpointer handle;
-
-       MONO_ENTER_GC_SAFE;
-       handle = mono_w32file_get_std_handle (STD_ERROR_HANDLE);
-       MONO_EXIT_GC_SAFE;
-
-       return handle;
+       return mono_w32file_get_std_handle (STD_ERROR_HANDLE);
 }