paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-03 14:50:33 +01:00
Code Issues Packages Projects Releases Wiki Activity

rtl/m68k/m68k.inc:

Browse Source 
dummyplement Interlocked* functions; they are not locking in any way, but at least they do what they should

git-svn-id: trunk@22884 -
This commit is contained in:
svenbarth 2012-10-31 06:24:08 +00:00
parent f204f84f6a
commit fb873d6f02
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/m68k/m68k.inc
View File

@ -338,28 +338,39 @@ function abs(l : longint) : longint;
function InterLockedDecrement (var Target: longint) : longint;
begin
{$warning FIX ME}
Result := Target;
Dec(Target);
end;
function InterLockedIncrement (var Target: longint) : longint;
begin
{$warning FIX ME}
Result := Target;
Inc(Target);
end;
function InterLockedExchange (var Target: longint;Source : longint) : longint;
begin
{$warning FIX ME}
Result := Target;
Target := Source;
end;
function InterLockedExchangeAdd (var Target: longint;Source : longint) : longint;
begin
{$warning FIX ME}
Result := Target;
Target := Target + Source;
end;
function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comperand: longint): longint;
begin
{$warning FIX ME}
Result := Target;
if Target = Comperand then
Target := NewValue;
end;