-/* @(#)gcd.c 4.1 12/25/82 */
+#ifndef lint
+static char sccsid[] = "@(#)gcd.c 5.3 (Berkeley) 3/2/87";
+#endif not lint
#include <mp.h>
gcd(a,b,c) MINT *a,*b,*c;
int i = 0;
x.len = y.len = z.len = w.len = Aold.len = 0;
Anew.len = 1;
- Anew.val = xalloc(1);
+ Anew.val = xalloc(1, "invert");
*Anew.val = 1;
move(b, &x);
move(a, &y);