paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 21:31:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga/m68k: made m68kamiga.inc to even compile, and maybe look like if it was Pascal code

Browse Source 
git-svn-id: trunk@30902 -
This commit is contained in:
Károly Balogh 2015-05-24 21:43:13 +00:00
parent 89aadb22c2
commit f52b039311
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
rtl/amiga/m68k/m68kamiga.inc
View File

@ -22,45 +22,45 @@
function InterLockedDecrement (var Target: longint) : longint;
begin
Forbid();
Forbid;
Dec(Target);
Result := Target;
Permit();
Permit;
end;
function InterLockedIncrement (var Target: longint) : longint;
begin
Forbid()
Forbid;
Inc(Target);
Result := Target;
Permit();
Permit;
end;
function InterLockedExchange (var Target: longint;Source : longint) : longint;
begin
Forbid();
Forbid;
Result := Target;
Target := Source;
Permit();
Permit;
end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
begin
Forbid();
Forbid;
Result := Target;
Target := Target + Source;
Permit();
Permit;
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin
Forbid();
Forbid;
Result := Target;
if Target = Comperand then
Target := NewValue;
Permit();
Permit;
end;