From bd57af5b19c7125e828b528d4c9fed92e47eca97 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Thu, 25 Jan 2018 20:02:16 +0000
Subject: [PATCH] * as Coldfire does not support ADD.W save the (original)
 lower word and restore it after D0 is swapped back (I hope the algorithm
 still works then O.o)

git-svn-id: trunk@38044 -
---
 rtl/m68k/int64p.inc | 22 ++++++++++++++++++++--
 1 file changed, 20 insertions(+), 2 deletions(-)

diff --git a/rtl/m68k/int64p.inc b/rtl/m68k/int64p.inc
index 6fbf7fde5e..fd9fb01969 100644
--- a/rtl/m68k/int64p.inc
+++ b/rtl/m68k/int64p.inc
@@ -27,7 +27,7 @@ asm
     movem.l  d2-d5,-(sp)
 {$else}
     tst.l    -(sp)
-    movem.l  d2-d5,(sp)
+    movem.l  d2-d6,(sp)
 {$endif}
     move.l   d0,d5
 
@@ -55,11 +55,25 @@ asm
     mulu.w   d4,d2
     mulu.w   d4,d3
 
+{$ifdef CPUCOLDFIRE}
+    { backup lo value of d0 }
+    clr.l    d6
+    move.w   d0,d6
+    clr.w    d0
+{$endif}
     swap     d0
     clr.l    d4
+{$ifndef CPUCOLDFIRE}
     add.w    d1,d0
+{$else}
+    add.l    d1,d0
+{$endif}
     addx.l   d4,d3
+{$ifndef CPUCOLDFIRE}
     add.w    d2,d0
+{$else}
+    add.l    d2,d0
+{$endif}
     addx.l   d4,d3
 
     clr.w    d1
@@ -69,6 +83,10 @@ asm
 
     add.l    d3,d1
     swap     d0
+{$ifdef CPUCOLDFIRE}
+    { restore lo value of d0 }
+    move.w   d6,d0
+{$endif}
     add.l    d2,d1
 
     tst.l    d5
@@ -85,7 +103,7 @@ asm
     move.l   d0,d2
     move.l   d1,d0
     move.l   d2,d1
-    movem.l  (sp),d2-d5
+    movem.l  (sp),d2-d6
     tst.l    (sp)+
 {$endif}
     rts