From: sandeep <sandeep@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Sun, 9 Sep 2001 15:01:32 +0000 (+0000)
Subject: improved code generation for RLC & RRC
X-Git-Url: https://git.gag.com/?a=commitdiff_plain;h=5efbd810e2cf3c65b3f005e529a6091c951e3ea7;p=fw%2Fsdcc

improved code generation for RLC & RRC


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

diff --git a/src/mcs51/gen.c b/src/mcs51/gen.c
index ac2e391e..7f2c239e 100644
--- a/src/mcs51/gen.c
+++ b/src/mcs51/gen.c
@@ -5262,6 +5262,12 @@ genRRC (iCode * ic)
   /* move it to the result */
   size = AOP_SIZE (result);
   offset = size - 1;
+  if (size == 1) { /* special case for 1 byte */
+      l = aopGet (AOP (left), offset, FALSE, FALSE);
+      MOVA (l);
+      emitcode ("rr", "a");
+      goto release;
+  }
   CLRC;
   while (size--)
     {
@@ -5279,6 +5285,7 @@ genRRC (iCode * ic)
       MOVA (l);
     }
   emitcode ("mov", "acc.7,c");
+ release:
   aopPut (AOP (result), "a", AOP_SIZE (result) - 1);
   freeAsmop (left, NULL, ic, TRUE);
   freeAsmop (result, NULL, ic, TRUE);
@@ -5307,6 +5314,10 @@ genRLC (iCode * ic)
     {
       l = aopGet (AOP (left), offset, FALSE, FALSE);
       MOVA (l);
+      if (size == 0) { /* special case for 1 byte */
+	      emitcode("rl","a");
+	      goto release;
+      }
       emitcode ("add", "a,acc");
       if (AOP_SIZE (result) > 1)
 	aopPut (AOP (result), "a", offset++);
@@ -5327,6 +5338,7 @@ genRLC (iCode * ic)
       MOVA (l);
     }
   emitcode ("mov", "acc.0,c");
+ release:
   aopPut (AOP (result), "a", 0);
   freeAsmop (left, NULL, ic, TRUE);
   freeAsmop (result, NULL, ic, TRUE);