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.
9 #if !defined (HOST_WATCHOS) && !defined (HOST_TVOS) /* These platforms don't support async suspend and do not need this code for now */
13 #include "mono/utils/mono-threads-api.h"
14 #include "mono/utils/atomic.h"
15 #include "mono/metadata/icall-internals.h"
16 #include "pal-icalls.h"
22 * Initializes Mono's usage of the PAL (probably just by registering the necessary internal calls).
23 * This is called only from managed code, by any Interop.* classes that need to use the code here.
24 * The function may be called multiple times.
30 volatile static gboolean module_initialized
= FALSE
;
31 if (mono_atomic_cas_i32 (&module_initialized
, TRUE
, FALSE
) == FALSE
) {
32 mono_add_internal_call_with_flags ("Interop/Sys::Read", ves_icall_Interop_Sys_Read
, TRUE
);
34 #if defined(__APPLE__)
35 mono_add_internal_call_with_flags ("Interop/RunLoop::CFRunLoopRun", ves_icall_Interop_RunLoop_CFRunLoopRun
, TRUE
);
42 ves_icall_Interop_Sys_Read (intptr_t fd
, gchar
* buffer
, gint32 count
)
46 result
= SystemNative_Read (fd
, buffer
, count
);
47 mono_marshal_set_last_error ();
52 #if defined(__APPLE__)
54 #include <CoreFoundation/CFRunLoop.h>
57 interrupt_CFRunLoop (gpointer data
)
60 CFRunLoopStop ((CFRunLoopRef
)data
);
64 ves_icall_Interop_RunLoop_CFRunLoopRun (void)
66 gpointer runloop_ref
= CFRunLoopGetCurrent ();
68 mono_thread_info_install_interrupt (interrupt_CFRunLoop
, runloop_ref
, &interrupted
);
77 mono_thread_info_uninstall_interrupt (&interrupted
);
82 #endif /* !defined (HOST_WATCHOS) && !defined (HOST_TVOS) */