1*45760Sbostic /*- 2*45760Sbostic * Copyright (c) 1986 The Regents of the University of California. 3*45760Sbostic * All rights reserved. 4*45760Sbostic * 5*45760Sbostic * This code is derived from software contributed to Berkeley by 6*45760Sbostic * Computer Consoles Inc. 7*45760Sbostic * 8*45760Sbostic * %sccs.include.redist.c% 9*45760Sbostic * 10*45760Sbostic * @(#)Adivd.c 7.1 (Berkeley) 12/06/90 11*45760Sbostic */ 1229604Ssam 1345699Sbostic #include "align.h" divd(infop)1429604Ssamdivd(infop) process_info *infop; 1529604Ssam /* 1629604Ssam /* Divide accumulator by operand to accumulator (double). 1729604Ssam /* 1829604Ssam /*******************************************************************/ 1929604Ssam { 2029604Ssam register double *operand_pnt; 2129604Ssam register double *acc_pnt; 2229604Ssam 2329604Ssam operand_pnt = (double *)&operand(infop,0)->data; 2429604Ssam acc_pnt = (double *) &acc_high; 2529604Ssam *acc_pnt = *acc_pnt / *operand_pnt; 2629604Ssam } 27