From: kvigor <kvigor@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Fri, 26 Jul 2002 17:56:35 +0000 (+0000)
Subject: Bug 580443 fix
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=4b8a566420666aa7a68ace5830ce443e24fa3060;p=fw%2Fsdcc

Bug 580443 fix


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

diff --git a/src/ds390/gen.c b/src/ds390/gen.c
index effd7cf8..d5c29aa6 100644
--- a/src/ds390/gen.c
+++ b/src/ds390/gen.c
@@ -4156,7 +4156,8 @@ genMinus (iCode * ic)
   aopOp (IC_RIGHT (ic), ic, FALSE, 
 	 (AOP_INDPTRn(IC_LEFT(ic)) ? FALSE : (AOP_USESDPTR(IC_LEFT(ic)) ? TRUE : FALSE)));
   if ((AOP_TYPE (IC_LEFT (ic)) == AOP_DPTR) &&
-      (AOP_TYPE (IC_RIGHT (ic)) == AOP_DPTR2))
+      ((AOP_TYPE (IC_RIGHT (ic)) == AOP_DPTR2)
+       || OP_SYMBOL(IC_RESULT(ic))->ruonly))
     {
       pushResult = TRUE;
     }