* Copyright (c) 1986 The Regents of the University of California.
* This code is derived from software contributed to Berkeley by
* %sccs.include.redist.c%
* @(#)Adivd.c 7.1 (Berkeley) %G%
divd(infop
) process_info
*infop
;
/* Divide accumulator by operand to accumulator (double).
/*******************************************************************/
register double *operand_pnt
;
register double *acc_pnt
;
operand_pnt
= (double *)&operand(infop
,0)->data
;
acc_pnt
= (double *) &acc_high
;
*acc_pnt
= *acc_pnt
/ *operand_pnt
;