From: epetrich <epetrich@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Mon, 21 Jul 2003 04:48:17 +0000 (+0000)
Subject: Fixed bug #759087
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=3665f75dcd3011e6367f5343b7a3f2cfbf50ecea;p=fw%2Fsdcc

Fixed bug #759087


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

diff --git a/ChangeLog b/ChangeLog
index 95c7a756..b838bf25 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2003-07-20  Erik Petrich <epetrich@ivorytower.norman.ok.us>
 
 	* src/mcs51/gen.c: fixed bug #771358
+	* src/z80/gen.c: fixed bug #759087
 
 2003-07-20  Bernhard Held <bernhard@bernhardheld.de>
 
diff --git a/src/z80/gen.c b/src/z80/gen.c
index f855a0e2..63b54786 100644
--- a/src/z80/gen.c
+++ b/src/z80/gen.c
@@ -1832,9 +1832,11 @@ commitPair (asmop * aop, PAIR_ID id)
   if (id == PAIR_HL && requiresHL (aop) && IS_GB)
     {
       emit2 ("ld a,l");
-      emit2 ("ld d,h");
+      if (aop->size>1)
+        emit2 ("ld d,h");
       aopPut (aop, "a", 0);
-      aopPut (aop, "d", 1);
+      if (aop->size>1)
+        aopPut (aop, "d", 1);
     }
   else
     {
@@ -1849,7 +1851,8 @@ commitPair (asmop * aop, PAIR_ID id)
       else
         {
           aopPut (aop, _pairs[id].l, 0);
-          aopPut (aop, _pairs[id].h, 1);
+          if (aop->size>1)
+            aopPut (aop, _pairs[id].h, 1);
         }
     }
 }