From hui@fid.morgan.com Tue Nov  2 08:10 EST 1993
Received: from gateway.morgan.com by math.uwaterloo.ca with SMTP
	id <AA15671>; Tue, 2 Nov 93 08:10:36 -0500
Received: from ns1.fid.morgan.com ([138.20.58.11]) by gateway.morgan.com with SMTP id <41411>; Tue, 2 Nov 1993 08:10:20 -0500
Received: from tansy.Morgan.COM by ns1.fid.morgan.com (4.1/MS/FID-1.0)
	id AA17387; Tue, 2 Nov 93 08:10:12 EST
Date: 	Tue, 2 Nov 1993 08:10:12 -0500
From: hui@fid.morgan.com (Roger Hui)
Message-Id: <9311021310.AA17387@ns1.fid.morgan.com>
To: ljdickey@watmath.uwaterloo.ca
Subject: gcd
Cc: christopher.browne@canrem.com, reiterc@lafcol.lafayette.edu
Status: OR

A correction for the gcd bug is as follows.  File ve.c, function xdgcd:

Current:

  static D xdgcd(a,b)D a,b;{D a1,b1,t;
   if(!a)R b;
   a1=a; b1=b; if(a>b){t=a; a=a1=b; b=b1=t;}
   while(xdrem(a1/floor(0.5+a1/a),b1)){t=a; a=xdrem(a,b); b=t;}
   R a;
  } /* D.L. Forkes 1984; E.E. McDonnell 1992 */

Correction:

  static D xdgcd(a,b)D a,b;{D a1,b1,t;
   if(!a)R b;
   if(a>b)R xdgcd(b,a);
   a1=a; b1=b;
   while(xdrem(a1/floor(0.5+a1/a),b1)){t=a; a=xdrem(a,b); b=t;}
   R a;
  } /* D.L. Forkes 1984; E.E. McDonnell 1992 */