* Implemented inclocked and declocked for arm.

git-svn-id: trunk@4534 -

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;