Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* m68k: fix an instruction which doesn't exist on ColdFire

Karoly Balogh 3 years ago
parent
14289173bb
commit
ecef61e9c5
1 changed files with 2 additions and 1 deletions
Unified View Show Diff Stats
  1. 2 1
      rtl/m68k/m68k.inc

+ 2 - 1
rtl/m68k/m68k.inc
View File 

@@ -483,7 +483,8 @@ end;
 
 
 
 procedure releaseSpinLock; assembler; nostackframe;
 
 procedure releaseSpinLock; assembler; nostackframe;
 
 asm
 
 asm
 
-  move.b #0,spinlock
 
+  moveq.l #0,d0
 
+  move.b d0,spinlock
 
 end;
 
 end;
 
 {$ENDIF}
 
 {$ENDIF}