firemonkey linux compatibility unit

Quick.SyncObjs.Linux.Compatibility.pas

@@ -0,0 +1,41 @@
+unit Quick.SyncObjs.Linux.Compatibility;
+
+{i$ QuickLib.inc}
+
+interface
+
+uses
+  SyncObjs;
+
+type
+
+  TRTLCriticalSection = TCriticalSection;
+
+  procedure EnterCriticalSection(CS : TCriticalSection);
+  procedure LeaveCriticalSection(CS : TCriticalSection);
+  procedure InitializeCriticalSection(CS : TCriticalSection);
+  procedure DeleteCriticalSection(CS : TCriticalSection);
+
+implementation
+
+procedure EnterCriticalSection(CS : TCriticalSection);
+begin
+  CS.Enter;
+end;
+
+procedure LeaveCriticalSection(CS : TCriticalSection);
+begin
+  CS.Leave;
+end;
+
+procedure InitializeCriticalSection(CS : TCriticalSection);
+begin
+  CS := TCriticalSection.Create;
+end;
+
+procedure DeleteCriticalSection(CS : TCriticalSection);
+begin
+  CS.Free;
+end;
+
+end.