mirror of
https://github.com/idris-lang/Idris2.git
synced 2024-12-22 11:13:36 +03:00
33 lines
869 B
Idris
33 lines
869 B
Idris
|
module Main
|
||
|
|
|
||
|
|
|
||
|
|
data SomePointer : Type where
|
||
|
|
|
||
|
|
%foreign "C:idris2_getNull, libidris2_support, idris_support.h"
|
||
|
|
getTypedPointer : PrimIO (Ptr SomePointer)
|
||
|
|
|
||
|
|
|
||
|
|
freeTypedPointer : Ptr SomePointer -> IO ()
|
||
|
|
freeTypedPointer ptr = do
|
||
|
|
putStrLn "allocated (Ptr t) freed"
|
||
|
|
-- we could free the pointer here. However, since ptr is the NULL pointer, we just simulate it
|
||
|
|
|
||
|
|
|
||
|
|
%foreign "C:idris2_getNull, libidris2_support, idris_support.h"
|
||
|
|
getSomeAnyPointer : PrimIO (AnyPtr)
|
||
|
|
|
||
|
|
freeAnyPointer : AnyPtr -> IO ()
|
||
|
|
freeAnyPointer ptr = do
|
||
|
|
putStrLn "allocated AnyPtr freed"
|
||
|
|
-- we could free the pointer here. However, since ptr is the NULL pointer, we just simulate it
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
main : IO ()
|
||
|
|
main = do
|
||
|
|
ptr <- primIO $ getTypedPointer
|
||
|
|
gcPtr <- onCollect ptr freeTypedPointer
|
||
|
|
anyptr <- primIO $ getSomeAnyPointer
|
||
|
|
gcAnyPtr <- onCollectAny anyptr freeAnyPointer
|
||
|
|
pure ()
|