Misc changes.

3 files changed, 42 insertions, 9 deletions

diff --git a/tests/devel/addmul_1.c b/tests/devel/addmul_1.c
index 2b6a06de7..374c76c81 100644
--- a/tests/devel/addmul_1.c
+++ b/tests/devel/addmul_1.c
@@ -100,7 +100,7 @@ refmpn_addmul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
   register mp_limb_t prod_high, prod_low;
   register mp_limb_t x;
 
-  /* The loop counter and index J goes from -SIZE to -1.  This way
+  /* The loop counter and index J goes from -S1_SIZE to -1.  This way
      the loop becomes faster.  */
   j = -s1_size;
 
@@ -221,10 +221,22 @@ main (argc, argv)
 	  printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), cyy);
 	  mpn_print (dy+1, size);
 #endif
-	  printf ("TEST NUMBER %d\n", test);
+	  printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "DIFF:");
+	  for (i = size; i != 0; i--)
+	    {
+	      mp_limb_t diff = dy[i] - dx[i];
+	      if (diff != 0)
+		printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), diff);
+	      else
+		printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "");
+	    }
+	  printf ("\nTEST NUMBER %d\n", test);
 	  abort();
 	}
 #endif
+#ifdef ONE
+      return 0;
+#endif
     }
 }
 
diff --git a/tests/devel/mul_1.c b/tests/devel/mul_1.c
index 246ab1579..0b02308c2 100644
--- a/tests/devel/mul_1.c
+++ b/tests/devel/mul_1.c
@@ -104,8 +104,8 @@ refmpn_mul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
   j = -s1_size;
 
   /* Offset the base pointers to compensate for the negative indices.  */
-  s1_ptr -= j;
   res_ptr -= j;
+  s1_ptr -= j;
 
   cy_limb = 0;
   do
@@ -210,19 +210,28 @@ main (argc, argv)
       if (cyx != cyy || mpn_cmp (dx, dy, size+2) != 0
 	  || dx[size+1] != 0x12345678 || dx[0] != 0x87654321)
 	{
-#if ! (defined (PRINT) || defined (XPRINT))
-	  printf ("xlimb=%*lX\n", (int) (2 * sizeof(mp_limb_t)), xlimb);
-#endif
 #ifndef PRINT
 	  printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), cyx);
 	  mpn_print (dx+1, size);
 	  printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), cyy);
 	  mpn_print (dy+1, size);
 #endif
-	  printf ("TEST NUMBER %d\n", test);
+	  printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "DIFF:");
+	  for (i = size; i != 0; i--)
+	    {
+	      mp_limb_t diff = dy[i] - dx[i];
+	      if (diff != 0)
+		printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), diff);
+	      else
+		printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "");
+	    }
+	  printf ("\nTEST NUMBER %d\n", test);
 	  abort();
 	}
 #endif
+#ifdef ONE
+      return 0;
+#endif
     }
 }
 
diff --git a/tests/devel/submul_1.c b/tests/devel/submul_1.c
index ec3218391..6a848bd57 100644
--- a/tests/devel/submul_1.c
+++ b/tests/devel/submul_1.c
@@ -100,7 +100,7 @@ refmpn_submul_1 (res_ptr, s1_ptr, s1_size, s2_limb)
   register mp_limb_t prod_high, prod_low;
   register mp_limb_t x;
 
-  /* The loop counter and index J goes from -SIZE to -1.  This way
+  /* The loop counter and index J goes from -S1_SIZE to -1.  This way
      the loop becomes faster.  */
   j = -s1_size;
 
@@ -221,10 +221,22 @@ main (argc, argv)
 	  printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), cyy);
 	  mpn_print (dy+1, size);
 #endif
-	  printf ("TEST NUMBER %d\n", test);
+	  printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "DIFF:");
+	  for (i = size; i != 0; i--)
+	    {
+	      mp_limb_t diff = dy[i] - dx[i];
+	      if (diff != 0)
+		printf ("%*lX ", (int) (2 * sizeof(mp_limb_t)), diff);
+	      else
+		printf ("%*s ", (int) (2 * sizeof(mp_limb_t)), "");
+	    }
+	  printf ("\nTEST NUMBER %d\n", test);
 	  abort();
 	}
 #endif
+#ifdef ONE
+      return 0;
+#endif
     }
 }