From ed7137d197d7a0e06c29bedb21b450a8d334b6eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sat, 11 Nov 2023 17:57:53 +0100
Subject: [PATCH] * Correctly close IFDEF block

---
 packages/fcl-base/src/syncobjs.pp | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/packages/fcl-base/src/syncobjs.pp b/packages/fcl-base/src/syncobjs.pp
index ef7efd2f5a..840218f027 100644
--- a/packages/fcl-base/src/syncobjs.pp
+++ b/packages/fcl-base/src/syncobjs.pp
@@ -636,6 +636,19 @@ begin
 end; 
 {$ENDIF WAITLOOP}
 
+procedure MSecsFromNow (tNow : Timeval; aTimeout : Integer; out tfuture: TTimespec);
+
+var
+  td,tm : integer;
+
+begin
+  td:=aTimeout div 1000;
+  tm:=aTimeout mod 1000;
+  tfuture.tv_sec:=tnow.tv_sec+td;
+  tfuture.tv_nsec:=tnow.tv_usec*1000+(tm*1000*1000);
+end;
+{$ENDIF UNIX}
+
 { ---------------------------------------------------------------------
   TSemaphore
   ---------------------------------------------------------------------}
@@ -709,19 +722,6 @@ begin
 end;
 
 
-procedure MSecsFromNow (tNow : Timeval; aTimeout : Integer; out tfuture: TTimespec);
-
-var
-  td,tm : integer;
-
-begin
-  td:=aTimeout div 1000;
-  tm:=aTimeout mod 1000;
-  tfuture.tv_sec:=tnow.tv_sec+td;
-  tfuture.tv_nsec:=tnow.tv_usec*1000+(tm*1000*1000);
-end;
-{$ENDIF UNIX}
-
 
 function TSemaphore.WaitFor(aTimeout: Cardinal = INFINITE): TWaitResult;