From 0acb09468b2ce6a756947f939cde43e86b9377cb Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Wed, 17 Jun 1998 13:59:08 +0000
Subject: [PATCH]   * bugfix of set_in_byte, long must be used at start, same
 is true for another routine

---
 rtl/m68k/set.inc | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/rtl/m68k/set.inc b/rtl/m68k/set.inc
index be70e9e9a6..1afd2f95e6 100644
--- a/rtl/m68k/set.inc
+++ b/rtl/m68k/set.inc
@@ -34,7 +34,7 @@
   procedure do_set;assembler;
   asm
     XDEF SET_SET_BYTE
-          move.b  d0,d6
+          move.l  d0,d6
           { correct long position: }
           {   -> (value div 32)*4 = longint }
           {       (value shr 5)*shl 2       }
@@ -69,7 +69,7 @@
   {         (D0)                                                 }
   asm
        XDEF SET_IN_BYTE
-          move.b  d0,d6
+          move.l  d0,d6
           { correct long position: }
           {   -> (value div 32)*4 = longint }
           {       (value shr 5)*shl 2       }
@@ -427,7 +427,11 @@
 
 {
   $Log$
-  Revision 1.3  1998-06-05 12:32:07  carl
+  Revision 1.4  1998-06-17 13:59:08  carl
+    * bugfix of set_in_byte, long must be used at start, same is true for
+  another routine
+
+  Revision 1.3  1998/06/05 12:32:07  carl
     * calculating sets is COMPLETELY different from the intel in
   determining the bit number
     * new passing parameters conventions