paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 15:10:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

m68k: use the Amiga-specific atomic ops on Amiga

Browse Source 
git-svn-id: trunk@30903 -
This commit is contained in:
Károly Balogh 2015-05-24 21:44:51 +00:00
parent f52b039311
commit 846dd6b57b
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/amiga/system.pp
View File

@ -114,6 +114,7 @@ implementation
{$I system.inc} {$I system.inc}
{$I osdebug.inc} {$I osdebug.inc}
{$I m68kamiga.inc}
{$IFDEF AMIGAOS4} {$IFDEF AMIGAOS4}
// Required to allow opening of utility library interface... // Required to allow opening of utility library interface...

3
rtl/m68k/m68k.inc
View File

@ -384,7 +384,7 @@ asm
@LMEMSET3: @LMEMSET3:
end; end;
{$IFNDEF HASAMIGA}
function InterLockedDecrement (var Target: longint) : longint; function InterLockedDecrement (var Target: longint) : longint;
begin begin
{$warning FIX ME} {$warning FIX ME}
@ -424,6 +424,7 @@ function InterlockedCompareExchange(var Target: longint; NewValue: longint; Comp
if Target = Comperand then if Target = Comperand then
Target := NewValue; Target := NewValue;
end; end;
{$ENDIF HASAMIGA}
{$if defined(CPUM68K_HAS_BYTEREV) or defined(CPUM68K_HAS_ROLROR)} {$if defined(CPUM68K_HAS_BYTEREV) or defined(CPUM68K_HAS_ROLROR)}
{ Disabled for now, because not all cases below were tested. (KB) } { Disabled for now, because not all cases below were tested. (KB) }