Add support for ARM FreeBSD and ARM64 (AArch64) FreeBSD.

MLton · Nov 6, 2019 · 0337571 · 0337571
1 parent 89891a4
commit 0337571
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/doc/guide/src/Features.adoc b/doc/guide/src/Features.adoc
@@ -9,6 +9,7 @@ MLton has the following features.
 
 ** <:RunningOnARM:ARM>:
 *** <:RunningOnLinux:Linux> (Debian)
+*** <:RunningOnFreeBSD:FreeBSD>
 
 ** <:RunningOnAlpha:Alpha>:
 *** <:RunningOnLinux:Linux> (Debian)

diff --git a/runtime/platform/freebsd.c b/runtime/platform/freebsd.c
@@ -21,6 +21,10 @@ static void catcher (__attribute__ ((unused)) int signo,
         GC_handleSigProf ((code_pointer) ucp->uc_mcontext.mc_rip);
 #elif (defined (__i386__))
         GC_handleSigProf ((code_pointer) ucp->uc_mcontext.mc_eip);
+#elif (defined (__arm__))
+        GC_handleSigProf ((code_pointer) ucp->uc_mcontext.__gregs[_REG_PC]);
+#elif (defined (__aarch64__))
+        GC_handleSigProf ((code_pointer) ucp->uc_mcontext.mc_gpregs.gp_elr);
 #else
 #error Profiling handler is missing for this architecture
 #endif