Commit | Line | Data |
---|---|---|
a118b782 SL |
1 | /* Asubf.c 1.1 86/07/20 */ |
2 | ||
3 | ||
4 | #include "../tahoealign/align.h" | |
5 | subf(infop) process_info *infop; | |
6 | /* | |
7 | /* Subtract operand from accumulator to accumulator (float). | |
8 | /* | |
9 | /*******************************************************************/ | |
10 | { | |
11 | register float *operand_pnt; | |
12 | register float *acc_pnt; | |
13 | ||
14 | operand_pnt = (float *)&operand(infop,0)->data; | |
15 | acc_pnt = (float *) &acc_high; | |
16 | *acc_pnt = *acc_pnt - *operand_pnt; | |
17 | } |