From ba21edb0fdc2393ceaeca93bfe3c570710f822c8 Mon Sep 17 00:00:00 2001
From: yury <jura@cp-lab.com>
Date: Sat, 2 Sep 2006 09:38:18 +0000
Subject: [PATCH] * Implemented inclocked and declocked for arm.

git-svn-id: trunk@4534 -
---
 rtl/arm/arm.inc | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/rtl/arm/arm.inc b/rtl/arm/arm.inc
index 0ecb5e8b22..33b944f4b2 100644
--- a/rtl/arm/arm.inc
+++ b/rtl/arm/arm.inc
@@ -282,3 +282,15 @@ asm
 .Lfpc_system_lock:
   .long fpc_system_lock
 end;
+
+{$define FPC_SYSTEM_HAS_DECLOCKED_LONGINT}
+function declocked(var l: longint) : boolean; inline;
+begin
+  Result:=InterLockedDecrement(l) = 0;
+end;
+
+{$define FPC_SYSTEM_HAS_INCLOCKED_LONGINT}
+procedure inclocked(var l: longint); inline;
+begin
+  InterLockedIncrement(l);
+end;