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

* m68k: some CPUs don't have TAS either (for example some CF)

Browse Source
This commit is contained in:
Karoly Balogh 2022-02-09 09:20:02 +01:00
parent 67d80d414b
commit 12ef9a4a22
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/m68k/m68k.inc
View File

@ -473,10 +473,12 @@ var
procedure getSpinLock; assembler; nostackframe; procedure getSpinLock; assembler; nostackframe;
asm asm
{$IFDEF CPUM68K_HAS_TAS}
lea.l spinlock,a0 lea.l spinlock,a0
@loop: @loop:
tas (a0) tas (a0)
bne @loop bne @loop
{$ENDIF}
end; end;
procedure releaseSpinLock; assembler; nostackframe; procedure releaseSpinLock; assembler; nostackframe;