/* -*-c-*-
*
- * $Id: primorial.c,v 1.3 2000/07/15 10:02:07 mdw Exp $
+ * $Id: primorial.c,v 1.4 2000/08/15 21:41:09 mdw Exp $
*
* Computes the product of the small primes
*
/*----- Revision history --------------------------------------------------*
*
* $Log: primorial.c,v $
+ * Revision 1.4 2000/08/15 21:41:09 mdw
+ * Bug fix: minimize the right thing.
+ *
* Revision 1.3 2000/07/15 10:02:07 mdw
* Include missing header file.
*
}
mp_drop(p);
primorial = mpmul_done(&mm);
- mp_minimize(p);
+ mp_minimize(primorial);
+ primorial->a->n--; /* Permanent allocation */
}
/*----- That's all, folks -------------------------------------------------*/