From 5d1e5895dd68ce7e5dc67b037392af924d0d5207 Mon Sep 17 00:00:00 2001
From: Martin <mautner@vrvis.at>
Date: Tue, 3 Sep 2024 19:02:59 +0200
Subject: [PATCH] [FSharp] Add pin, pinArr, and NativePtr.Address

---
 .../Utilities/Interop/FSLibExtensions.fs                  | 2 ++
 src/Aardvark.Base.FSharp/Utilities/Native.fs              | 8 ++++++++
 2 files changed, 10 insertions(+)

diff --git a/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs b/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs
index 206b1425..cd4fc62c 100644
--- a/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs
+++ b/src/Aardvark.Base.FSharp/Utilities/Interop/FSLibExtensions.fs
@@ -214,6 +214,8 @@ module Prelude =
         let inline sndv (struct (_, y)) = y
 
     type nativeptr<'T when 'T : unmanaged> with
+        member inline ptr.Address = NativePtr.toNativeInt ptr
+
         member ptr.Value
             with inline get () = NativePtr.read ptr
             and  inline set (value : 'T) = NativePtr.write ptr value
diff --git a/src/Aardvark.Base.FSharp/Utilities/Native.fs b/src/Aardvark.Base.FSharp/Utilities/Native.fs
index 30a225e2..2e09818b 100644
--- a/src/Aardvark.Base.FSharp/Utilities/Native.fs
+++ b/src/Aardvark.Base.FSharp/Utilities/Native.fs
@@ -182,6 +182,14 @@ module NativeUtilities =
         finally
             gc.Free()
 
+    let inline pin ([<InlineIfLambda>] f: nativeptr<'T> -> 'U) (value: 'T) =
+        use ptr = fixed &value
+        f ptr
+
+    let inline pinArr ([<InlineIfLambda>] f: nativeptr<'T> -> 'U) (array: 'T[])  =
+        use ptr = fixed array
+        f ptr
+
 [<AutoOpen>]
 module MarshalDelegateExtensions =
     open System.Collections.Concurrent