projects
/
u
/
mdw
/
catacomb
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
dce3fb0
)
Bug fix: minimize the right thing.
author
mdw
<mdw>
Tue, 15 Aug 2000 21:41:09 +0000
(21:41 +0000)
committer
mdw
<mdw>
Tue, 15 Aug 2000 21:41:09 +0000
(21:41 +0000)
primorial.c
patch
|
blob
|
blame
|
history
diff --git
a/primorial.c
b/primorial.c
index
2ad2014
..
68c45ad
100644
(file)
--- a/
primorial.c
+++ b/
primorial.c
@@
-1,6
+1,6
@@
/* -*-c-*-
*
/* -*-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
*
*
* Computes the product of the small primes
*
@@
-30,6
+30,9
@@
/*----- Revision history --------------------------------------------------*
*
* $Log: primorial.c,v $
/*----- 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.
*
* Revision 1.3 2000/07/15 10:02:07 mdw
* Include missing header file.
*
@@
-79,7
+82,8
@@
void primorial_setup(void)
}
mp_drop(p);
primorial = mpmul_done(&mm);
}
mp_drop(p);
primorial = mpmul_done(&mm);
- mp_minimize(p);
+ mp_minimize(primorial);
+ primorial->a->n--; /* Permanent allocation */
}
/*----- That's all, folks -------------------------------------------------*/
}
/*----- That's all, folks -------------------------------------------------*/