From 3665f75dcd3011e6367f5343b7a3f2cfbf50ecea Mon Sep 17 00:00:00 2001 From: epetrich Date: Mon, 21 Jul 2003 04:48:17 +0000 Subject: [PATCH] Fixed bug #759087 git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@2764 4a8a32a2-be11-0410-ad9d-d568d2c75423 --- ChangeLog | 1 + src/z80/gen.c | 9 ++++++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 95c7a756..b838bf25 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,6 +1,7 @@ 2003-07-20 Erik Petrich * src/mcs51/gen.c: fixed bug #771358 + * src/z80/gen.c: fixed bug #759087 2003-07-20 Bernhard Held 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); } } } -- 2.47.2