paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 03:59:13 +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; function InterLockedDecrement (var Target: longint) : longint;
begin begin
Forbid(); Forbid;
Dec(Target); Dec(Target);
Result := Target; Result := Target;
Permit(); Permit;
end; end;
function InterLockedIncrement (var Target: longint) : longint; function InterLockedIncrement (var Target: longint) : longint;
begin begin
Forbid() Forbid;
Inc(Target); Inc(Target);
Result := Target; Result := Target;
Permit(); Permit;
end; end;
function InterLockedExchange (var Target: longint;Source : longint) : longint; function InterLockedExchange (var Target: longint;Source : longint) : longint;
begin begin
Forbid(); Forbid;
Result := Target; Result := Target;
Target := Source; Target := Source;
Permit(); Permit;
end; end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint; function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
begin begin
Forbid(); Forbid;
Result := Target; Result := Target;
Target := Target + Source; Target := Target + Source;
Permit(); Permit;
end; end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint; function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin begin
Forbid(); Forbid;
Result := Target; Result := Target;
if Target = Comperand then if Target = Comperand then
Target := NewValue; Target := NewValue;
Permit(); Permit;
end; end;