Browse Source

m68k: use the Amiga-specific atomic ops on Amiga

git-svn-id: trunk@30903 -
Károly Balogh 10 years ago
parent
commit
846dd6b57b
2 changed files with 3 additions and 1 deletions
  1. 1 0
      rtl/amiga/system.pp
  2. 2 1
      rtl/m68k/m68k.inc

+ 1 - 0
rtl/amiga/system.pp

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

+ 2 - 1
rtl/m68k/m68k.inc

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