mono/metadata/pal-icalls.c

   1 /**
   2  * \file
   3  * System.Native PAL internal calls
   4  * Adapter code between the Mono runtime and the CoreFX Platform Abstraction Layer (PAL)
   5  * Copyright 2018 Microsoft
   6  * Licensed under the MIT license. See LICENSE file in the project root for full license information.
   7 */
   8
   9 #include <config.h>
  10 #include <glib.h>
  11 #include "pal_io.h"
  12 #include "mono/utils/mono-threads-api.h"
  13 #include "mono/utils/atomic.h"
  14
  15 #include "pal-icalls.h"
  16
  17 /*
  18  * mono_pal_init:
  19  *
  20  *      Initializes Mono's usage of the PAL (probably just by registering the necessary internal calls).
  21  *      This is called only from managed code, by any Interop.* classes that need to use the code here.
  22  *      The function may be called multiple times.
  23  *
  24  */
  25 void
  26 mono_pal_init (void)
  27 {
  28         volatile static gboolean module_initialized = FALSE;
  29         if (mono_atomic_cas_i32 (&module_initialized, TRUE, FALSE) == FALSE) {
  30                 mono_add_internal_call ("Interop/Sys::Read", ves_icall_Interop_Sys_Read);
  31
  32 #if defined(__APPLE__)
  33                 mono_add_internal_call ("Interop/RunLoop::CFRunLoopRun", ves_icall_Interop_RunLoop_CFRunLoopRun);
  34 #endif
  35         }
  36
  37 }
  38
  39 gint32
  40 ves_icall_Interop_Sys_Read (intptr_t fd, gchar* buffer, gint32 count)
  41 {
  42         gint32 result;
  43         MONO_ENTER_GC_SAFE;
  44         result = SystemNative_Read (fd, buffer, count);
  45         mono_marshal_set_last_error ();
  46         MONO_EXIT_GC_SAFE;
  47         return result;
  48 }
  49
  50 #if defined(__APPLE__)
  51
  52 #include <CoreFoundation/CFRunLoop.h>
  53
  54 static void
  55 interrupt_CFRunLoop (gpointer data)
  56 {
  57         g_assert (data);
  58         CFRunLoopStop (data);
  59 }
  60
  61 void
  62 ves_icall_Interop_RunLoop_CFRunLoopRun (void)
  63 {
  64         gpointer runloop_ref = CFRunLoopGetCurrent ();
  65         gboolean interrupted;
  66         mono_thread_info_install_interrupt (interrupt_CFRunLoop, runloop_ref, &interrupted);
  67
  68         if (interrupted)
  69                 return;
  70
  71         MONO_ENTER_GC_SAFE;
  72         CFRunLoopRun ();
  73         MONO_EXIT_GC_SAFE;
  74
  75         mono_thread_info_uninstall_interrupt (&interrupted);
  76 }
  77
  78 #endif