math/mpmont.c: Fix comment title for `mulcore'.

[catacomb] / math / mpmont.c

diff --git a/math/mpmont.c b/math/mpmont.c
index 094ac40..3edb58f 100644 (file)
--- a/math/mpmont.c
+++ b/math/mpmont.c
@@ -115,7 +115,7 @@ static redccore__functype *pick_redccore(void)
   DISPATCH_PICK_FALLBACK(mpmont_reduce, simple_redccore);
 }
 
-/* --- @redccore@ --- *
+/* --- @mulcore@ --- *
  *
  * Arguments:  @mpw *dv, *dvl@ = base and limit of source/destination
  *             @const mpw *av, *avl@ = base and limit of first multiplicand
@@ -444,6 +444,10 @@ mp *mpmont_mul(const mpmont *mm, mp *d, mp *a, mp *b)
 
 #ifdef TEST_RIG
 
+#ifdef ENABLE_ASM_DEBUG
+#  include "regdump.h"
+#endif
+
 static int tcreate(dstr *v)
 {
   mp *m = *(mp **)v[0].buf;
@@ -539,7 +543,6 @@ static int tmul(dstr *v)
     mp_drop(mr);
   }
 
-
   MP_DROP(m);
   MP_DROP(a);
   MP_DROP(b);
@@ -558,6 +561,9 @@ static test_chunk tests[] = {
 int main(int argc, char *argv[])
 {
   sub_init();
+#ifdef ENABLE_ASM_DEBUG
+  regdump_init();
+#endif
   test_run(argc, argv, tests, SRCDIR "/t/mpmont");
   return (0);
 }