parisc/math-emu/fcnvfx.c

1 // SPDX-License-Identifier: GPL-2.0-or-later
3  * Linux/PA-RISC Project (http://www.parisc-linux.org/)
5  * Floating-point emulation code
6  *  Copyright (C) 2001 Hewlett-Packard (Paul Bame) <bame@debian.org>
15  *	Single Floating-point to Single Fixed-point
16  *	Single Floating-point to Double Fixed-point
17  *	Double Floating-point to Single Fixed-point
18  *	Double Floating-point to Double Fixed-point
41  *  Single Floating-point to Single Fixed-point
56 	src_exponent = Sgl_exponent(src) - SGL_BIAS;  in sgl_to_sgl_fcnvfx()
83 		if (Sgl_isone_sign(src))  result = -Sgl_all(temp);  in sgl_to_sgl_fcnvfx()
95 			     if (Sgl_isone_sign(src)) result--;  in sgl_to_sgl_fcnvfx()
102 			           else result--;  in sgl_to_sgl_fcnvfx()
119 			     if (Sgl_isone_sign(src)) result--;  in sgl_to_sgl_fcnvfx()
122 			     if (src_exponent == -1)  in sgl_to_sgl_fcnvfx()
125 			           else result--;  in sgl_to_sgl_fcnvfx()
138  *  Single Floating-point to Double Fixed-point
153 	src_exponent = Sgl_exponent(src) - SGL_BIAS;  in sgl_to_dbl_fcnvfx()
239                              if (src_exponent == -1)  in sgl_to_dbl_fcnvfx()
259  *  Double Floating-point to Single Fixed-point
274 	src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;  in dbl_to_sgl_fcnvfx()
302 			result = -Dbl_allp1(tempp1);  in dbl_to_sgl_fcnvfx()
314                              if (Dbl_isone_sign(srcp1)) result--;  in dbl_to_sgl_fcnvfx()
321                                    else result--;  in dbl_to_sgl_fcnvfx()
351                              if (Dbl_isone_sign(srcp1)) result--;  in dbl_to_sgl_fcnvfx()
354                              if (src_exponent == -1)  in dbl_to_sgl_fcnvfx()
357                                    else result--;  in dbl_to_sgl_fcnvfx()
370  *  Double Floating-point to Double Fixed-point
385 	src_exponent = Dbl_exponent(srcp1) - DBL_BIAS;  in dbl_to_dbl_fcnvfx()
471                              if (src_exponent == -1)  in dbl_to_dbl_fcnvfx()