From: johanknol <johanknol@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Sun, 11 Feb 2001 18:23:14 +0000 (+0000)
Subject: fixed the missing rtype to ltype cast
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=13a8006492069c8dddcc99b3d49b47c8fa22ce7e;p=fw%2Fsdcc

fixed the missing rtype to ltype cast


git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@610 4a8a32a2-be11-0410-ad9d-d568d2c75423
---

diff --git a/device/lib/_mululong.c b/device/lib/_mululong.c
index b98138c0..12d58246 100644
--- a/device/lib/_mululong.c
+++ b/device/lib/_mululong.c
@@ -60,24 +60,24 @@ unsigned long _mululong (unsigned long a, unsigned long b)
 {
         union bil t;
 
-        t.i.hi = bcast(a)->b.b0 * bcast(b)->b.b2;       // A
-        t.i.lo = bcast(a)->b.b0 * bcast(b)->b.b0;       // A
+        t.i.hi = (unsigned int)bcast(a)->b.b0 * bcast(b)->b.b2;       // A
+        t.i.lo = (unsigned int)bcast(a)->b.b0 * bcast(b)->b.b0;       // A
         t.b.b3 += (unsigned char)(bcast(a)->b.b3 *
                                   bcast(b)->b.b0);      // G
         t.b.b3 += (unsigned char)(bcast(a)->b.b2 *
                                   bcast(b)->b.b1);      // F
-        t.i.hi += (unsigned int)(bcast(a)->b.b2 * bcast(b)->b.b0);      // E <- b lost in .lst
+        t.i.hi += (unsigned int)bcast(a)->b.b2 * bcast(b)->b.b0;      // E <- b lost in .lst
         // bcast(a)->i.hi is free !
-        t.i.hi += (unsigned int)(bcast(a)->b.b1 * bcast(b)->b.b1);      // D <- b lost in .lst
+        t.i.hi += (unsigned int)bcast(a)->b.b1 * bcast(b)->b.b1;      // D <- b lost in .lst
 
         bcast(a)->bi.b3 = (unsigned char)(bcast(a)->b.b1 *
                                           bcast(b)->b.b2);
-        bcast(a)->bi.i12 = bcast(a)->b.b1 *
+        bcast(a)->bi.i12 = (unsigned int)bcast(a)->b.b1 *
                            bcast(b)->b.b0;              // C
 
         bcast(b)->bi.b3 = (unsigned char)(bcast(a)->b.b0 *
                                           bcast(b)->b.b3);
-        bcast(b)->bi.i12 = bcast(a)->b.b0 *
+        bcast(b)->bi.i12 = (unsigned int)bcast(a)->b.b0 *
                            bcast(b)->b.b1;              // B
         bcast(b)->bi.b0 = 0;                            // B
         bcast(a)->bi.b0 = 0;                            // C