Lines Matching refs:srn
115 * returns the integer product of the "floating point" an and srn
122 int srn)
128 return ((srn >= 0) ?
129 ((srn & 077) + 1) >> (18 - (srn >> 6)) :
130 -(((srn & 077) + 1) >> (2 - (srn >> 6))));
134 if (srn >= 0) {
135 wanexp = anexp + (srn >> 6) - 7;
137 (_fmultwanmant[(srn & 077) + anmant] << wanexp)
139 _fmultwanmant[(srn & 077) + anmant] >> -wanexp);
141 wanexp = anexp + (srn >> 6) - 0xFFF7;
143 -((_fmultwanmant[(srn & 077) + anmant] << wanexp)
145 -(_fmultwanmant[(srn & 077) + anmant] >> -wanexp));
152 if (srn >= 0) {
153 wanexp = anexp + (srn >> 6) - 7;
155 -((_fmultwanmant[(srn & 077) + anmant] << wanexp)
157 -(_fmultwanmant[(srn & 077) + anmant] >> -wanexp));
159 wanexp = anexp + (srn >> 6) - 0xFFF7;
161 (_fmultwanmant[(srn & 077) + anmant] << wanexp)
163 _fmultwanmant[(srn & 077) + anmant] >> -wanexp);