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 95c7a756e2bf9e5f3aaf11a9d5fd9448305f4447..b838bf25b6d93514dd4ca91f5148e78cff0e631f 100644 (file)
--- 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 f855a0e2228ed7e778bf9e0faef3f5514d86ce23..63b547861e840edfcc949892e862068359c0e87b 100644 (file)
--- 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);
         }
     }
 }