darwin-support-fixmes

docs/devlog.md

@@ -1,4 +1,17 @@
 
+## 2023-03-26
+
+FIXME: macos-support-clock
+    -- CPP
+    -- | Use coarse clock timer. This timer has 1ms resolution but is much
+    -- faster comparing to the ordinary one. Is used on linux, on macos
+    -- provides ordinary one.
+    getTimeCoarse :: IO TimeSpec
+#ifdef linux_HOST_OS
+    getTimeCoarse = getTime MonotonicCoarse
+#else
+    getTimeCoarse = getTime Monotonic
+#endif
 
 ## 2023-03-24
 

hbs2-peer/app/BlockDownload.hs

@@ -312,6 +312,7 @@ instance HasPeerLocator e m => HasPeerLocator e (BlockDownloadM e m) where
 updatePeerInfo :: MonadIO m => Bool -> PeerInfo e -> m ()
 updatePeerInfo onError pinfo = do
 
+  -- FIXME: macos-support-3
   t1 <- liftIO $ getTime MonotonicCoarse
 
   void $ liftIO $ atomically $ do

hbs2-peer/app/PeerTypes.hs

@@ -204,6 +204,7 @@ fetchBlockState :: MonadIO m => Hash HbSync -> BlockDownloadM e m BlockState
 fetchBlockState h = do
   sh <- asks (view blockState)
   liftIO do
+    -- FIXME: macos-support-2
     now     <- getTime MonotonicCoarse
     tvlast  <- newTVarIO now
     tvreq   <- newTVarIO 0
@@ -231,6 +232,7 @@ delBlockState h = do
 incBlockSizeReqCount :: MonadIO m => Hash HbSync -> BlockDownloadM e m ()
 incBlockSizeReqCount h = do
   blk  <- fetchBlockState h
+  -- FIXME: macos-support-4
   now  <- liftIO $ getTime MonotonicCoarse
   seen <- liftIO $ readTVarIO (view bsLastSeen blk)
   let elapsed = realToFrac (toNanoSecs (now - seen))  / 1e9

hbs2-storage-simple/lib/HBS2/Storage/Simple.hs

@@ -104,6 +104,10 @@ touchForRead ss k  = liftIO $ do
     Nothing -> do
 
       bsmm <- unsafeMMapFile (simpleBlockFileName ss k)
+
+      -- FIXME: macos-support-1
+      --  вынести функцию в библиотеку
+      --  обернуть в CPP
       tick <- getTime MonotonicCoarse
 
       atomically $ do