Commit | Line | Data |
---|---|---|
7c27088c KB |
1 | /*- |
2 | * Copyright (c) 1986 The Regents of the University of California. | |
3 | * All rights reserved. | |
4 | * | |
5 | * This code is derived from software contributed to Berkeley by | |
6 | * Computer Consoles Inc. | |
7 | * | |
8 | * %sccs.include.redist.c% | |
9 | * | |
10 | * @(#)Adivd.c 7.1 (Berkeley) %G% | |
11 | */ | |
36d9ba6e | 12 | |
6499767c | 13 | #include "align.h" |
36d9ba6e SL |
14 | divd(infop) process_info *infop; |
15 | /* | |
16 | /* Divide accumulator by operand to accumulator (double). | |
17 | /* | |
18 | /*******************************************************************/ | |
19 | { | |
20 | register double *operand_pnt; | |
21 | register double *acc_pnt; | |
22 | ||
23 | operand_pnt = (double *)&operand(infop,0)->data; | |
24 | acc_pnt = (double *) &acc_high; | |
25 | *acc_pnt = *acc_pnt / *operand_pnt; | |
26 | } |