X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fds390%2Fralloc.c;h=d9b7eab364741b80ae8642484ea8d0e18f6a66f3;hb=4003d2e5cf40e2060187b66cef7b0348be59a2f0;hp=735e460719c60774837c7e1a0b4eefa204f08e4c;hpb=e22f6d1857f1ddb6db1bd6c8c54806a984e852f5;p=fw%2Fsdcc

diff --git a/src/ds390/ralloc.c b/src/ds390/ralloc.c
index 735e4607..d9b7eab3 100644
--- a/src/ds390/ralloc.c
+++ b/src/ds390/ralloc.c
@@ -1614,7 +1614,7 @@ packRegsForAssign (iCode * ic, eBBlock * ebp)
      we cannot */
   for (dic = ic->prev; dic; dic = dic->prev)
     {
-
+#if 0 // jwk 20010410, the JanVanBelle case
       /* if there is a function call and this is
          a parameter & not my parameter then don't pack it */
       if ((dic->op == CALL || dic->op == PCALL) &&
@@ -1624,6 +1624,14 @@ packRegsForAssign (iCode * ic, eBBlock * ebp)
 	  dic = NULL;
 	  break;
 	}
+#else
+      /* if there is a function call then don't pack it */
+      if ((dic->op == CALL || dic->op == PCALL))
+	{
+	  dic = NULL;
+	  break;
+	}
+#endif
 
       if (SKIP_IC2 (dic))
 	continue;