paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 07:06:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Implemented inclocked and declocked for arm.

Browse Source 
git-svn-id: trunk@4534 -
This commit is contained in:
yury 2006-09-02 09:38:18 +00:00
parent 4e9ca8c0f0
commit ba21edb0fd
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
rtl/arm/arm.inc
View File

@ -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;