[FSharp] Add pin, pinArr, and NativePtr.Address

aardvark-platform · Sep 3, 2024 · 4181ea5 · 4181ea5
1 parent bc07532
commit 4181ea5
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git 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
@@ -182,6 +182,14 @@ module NativeUtilities =
         finally
             gc.Free()
 
+    let inline pin (value: 'T) ([<InlineIfLambda>] f: nativeptr<'T> -> 'U) =
+        use ptr = fixed &value
+        f ptr
+
+    let inline pinArr (value: 'T[]) ([<InlineIfLambda>] f: nativeptr<'T> -> 'U) =
+        use ptr = fixed value
+        f ptr
+
 [<AutoOpen>]
 module MarshalDelegateExtensions =
     open System.Collections.Concurrent