disable packRegsForOneuse until I can make it safe

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

diff --git a/src/ds390/gen.c b/src/ds390/gen.c
index 7d3ccf893dd94dc4d5297c95acfefd41bb557371..bc8cd0a2b48ce8bdc6f86bfe8642271aab06538a 100644 (file)
--- a/src/ds390/gen.c
+++ b/src/ds390/gen.c
@@ -712,6 +712,15 @@ static void aopOp (operand *op, iCode *ic, bool result, bool useDP2)
 
         if (sym->ruonly ) {
             int i;
+            
+            if (useDP2)
+            {
+                /* a AOP_STR uses DPTR, but DPTR is already in use; 
+                 * we're just hosed.
+                 */
+                fprintf(stderr, "*** Internal error: AOP_STR with DPTR in use!\n");
+            }
+            
             aop = op->aop = sym->aop = newAsmop(AOP_STR);
             aop->size = getSize(sym->type);
             for ( i = 0 ; i < fReturnSize_390 ; i++ )

diff --git a/src/ds390/ralloc.c b/src/ds390/ralloc.c
index 9d12c973d1c0609d175dc38cb595f9352daa03de..96da72af7f7c8dd03343cb98ead589ce4bd947c5 100644 (file)
--- a/src/ds390/ralloc.c
+++ b/src/ds390/ralloc.c
@@ -1720,6 +1720,14 @@ static int packRegsForSupport (iCode *ic, eBBlock *ebp)
 /*-----------------------------------------------------------------*/
 static iCode *packRegsForOneuse (iCode *ic, operand *op , eBBlock *ebp)
 {
+#if 1
+    
+    /* I can't figure out how to make this safe yet. */
+    ic; op; ebp;
+    return NULL;
+    
+    
+#else
     bitVect *uses ;
     iCode *dic, *sic;
 
@@ -1836,7 +1844,7 @@ static iCode *packRegsForOneuse (iCode *ic, operand *op , eBBlock *ebp)
                
     OP_SYMBOL(op)->ruonly = 1;
     return sic;
-       
+#endif 
 }
 
 /*-----------------------------------------------------------------*/