ecos: packages/hal/mips/arch/current/src/mipsfp.c annotate

annotate packages/hal/mips/arch/current/src/mipsfp.c @ 3292:7f8e529b4d82 default tip

Fix FREESCALE_EDMA_NBYTES_MLOFFYES_MLOFF() so it works with negative offsets.

author	vae
date	Wed, 29 Apr 2015 23:31:48 +0000
parents	74dbf4c3f2e1
children

rev	line source
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	1 //==========================================================================
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	2 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	3 // mipsfp.c
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	4 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	5 // HAL miscellaneous functions
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	6 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	7 //==========================================================================
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	8 // ####ECOSGPLCOPYRIGHTBEGIN####
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	9 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	10 // This file is part of eCos, the Embedded Configurable Operating System.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	11 // Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 92 diff changeset	12 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	13 // eCos is free software; you can redistribute it and/or modify it under
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	14 // the terms of the GNU General Public License as published by the Free
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	15 // Software Foundation; either version 2 or (at your option) any later
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	16 // version.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 92 diff changeset	17 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	18 // eCos is distributed in the hope that it will be useful, but WITHOUT
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	19 // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	20 // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	21 // for more details.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 92 diff changeset	22 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	23 // You should have received a copy of the GNU General Public License
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	24 // along with eCos; if not, write to the Free Software Foundation, Inc.,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	25 // 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 92 diff changeset	26 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	27 // As a special exception, if other files instantiate templates or use
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	28 // macros or inline functions from this file, or you compile this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	29 // and link it with other works to produce a work based on this file,
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	30 // this file does not by itself cause the resulting work to be covered by
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	31 // the GNU General Public License. However the source code for this file
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	32 // must still be made available in accordance with section (3) of the GNU
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	33 // General Public License v2.
208 e0c0827131d1 Merge from eCos master repository on 2002-05-20-20:11:54-BST jlarmour parents: 92 diff changeset	34 //
2729 74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	35 // This exception does not invalidate any other reasons why a work based
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	36 // on this file might be covered by the GNU General Public License.
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	37 // -------------------------------------------
74dbf4c3f2e1 Update all copyright banners to reflect FSF ownership; fix and improve licence text. jlarmour parents: 210 diff changeset	38 // ####ECOSGPLCOPYRIGHTEND####
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	39 //==========================================================================
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	40 //#####DESCRIPTIONBEGIN####
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	41 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	42 // Author(s): jlarmour
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	43 // Contributors: jlarmour
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	44 // Date: 1999-07-13
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	45 // Purpose: Emulate unimplemented FP operations on MIPS architectures
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	46 // Description: This catches the unimplemented operation excetion only,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	47 // and if possible deals with it so processing can continue
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	48 // as if the MIPS had a proper IEEE FPU
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	49 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	50 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	51 //####DESCRIPTIONEND####
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	52 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	53 //========================================================================*/
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	54
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	55 // CONFIGURATION
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	56
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	57 #include <pkgconf/hal.h>
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	58
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	59 #ifdef CYGHWR_HAL_MIPS_FPU
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	60
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	61 // INCLUDES
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	62
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	63 #include <cyg/infra/cyg_type.h> // Standard eCos types
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	64 #include <cyg/infra/cyg_ass.h> // Standard eCos assertion support
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	65 #include <cyg/infra/cyg_trac.h> // Standard eCos tracing support
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	66 #include <cyg/hal/hal_intr.h> // HAL interrupt vectors
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	67 #include <cyg/hal/hal_arch.h> // Architecture types such as
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	68 // HAL_SavedRegisters
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	69 #define CYGARC_HAL_COMMON_EXPORT_CPU_MACROS
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	70 #include <cyg/hal/mips-regs.h> // MIPS register and bitmask definitions
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	71
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	72 // TYPES
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	73
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	74 // The following types were taken from <sys/ieeefp.h> from libm.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	75
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	76 #if (CYG_BYTEORDER == CYG_MSBFIRST) // Big endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	77
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	78 typedef union
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	79 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	80 cyg_int32 asi32[2];
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	81
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	82 cyg_int64 asi64;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	83
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	84 double value;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	85
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	86 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	87 {
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	88 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST)
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	89 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	90 unsigned int exponent: 11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	91 unsigned int fraction0:4;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	92 unsigned int fraction1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	93 unsigned int fraction2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	94 unsigned int fraction3:16;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	95 #else
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	96 unsigned int fraction2:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	97 unsigned int fraction3:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	98 unsigned int sign : 1;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	99 unsigned int exponent: 11;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	100 unsigned int fraction0:4;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	101 unsigned int fraction1:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	102 #endif
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	103 } number;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	104
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	105 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	106 {
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	107 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST)
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	108 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	109 unsigned int exponent: 11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	110 unsigned int quiet:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	111 unsigned int function0:3;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	112 unsigned int function1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	113 unsigned int function2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	114 unsigned int function3:16;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	115 #else
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	116 unsigned int function2:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	117 unsigned int function3:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	118 unsigned int sign : 1;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	119 unsigned int exponent: 11;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	120 unsigned int quiet:1;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	121 unsigned int function0:3;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	122 unsigned int function1:16;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	123 #endif
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	124 } nan;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	125
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	126 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	127 {
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	128 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST)
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	129 cyg_uint32 msw;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	130 cyg_uint32 lsw;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	131 #else
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	132 cyg_uint32 lsw;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	133 cyg_uint32 msw;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	134 #endif
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	135 } parts;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	136
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	137
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	138 } Cyg_libm_ieee_double_shape_type;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	139
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	140
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	141 typedef union
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	142 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	143 cyg_int32 asi32;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	144
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	145 float value;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	146
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	147 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	148 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	149 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	150 unsigned int exponent: 8;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	151 unsigned int fraction0: 7;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	152 unsigned int fraction1: 16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	153 } number;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	154
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	155 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	156 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	157 unsigned int sign:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	158 unsigned int exponent:8;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	159 unsigned int quiet:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	160 unsigned int function0:6;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	161 unsigned int function1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	162 } nan;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	163
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	164 } Cyg_libm_ieee_float_shape_type;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	165
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	166
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	167 #else // Little endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	168
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	169 typedef union
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	170 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	171 cyg_int32 asi32[2];
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	172
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	173 cyg_int64 asi64;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	174
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	175 double value;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	176
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	177 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	178 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	179 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST) // Big endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	180 unsigned int fraction1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	181 unsigned int fraction0: 4;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	182 unsigned int exponent :11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	183 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	184 unsigned int fraction3:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	185 unsigned int fraction2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	186 #else
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	187 unsigned int fraction3:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	188 unsigned int fraction2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	189 unsigned int fraction1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	190 unsigned int fraction0: 4;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	191 unsigned int exponent :11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	192 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	193 #endif
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	194 } number;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	195
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	196 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	197 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	198 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST) // Big endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	199 unsigned int function1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	200 unsigned int function0:3;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	201 unsigned int quiet:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	202 unsigned int exponent: 11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	203 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	204 unsigned int function3:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	205 unsigned int function2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	206 #else
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	207 unsigned int function3:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	208 unsigned int function2:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	209 unsigned int function1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	210 unsigned int function0:3;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	211 unsigned int quiet:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	212 unsigned int exponent: 11;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	213 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	214 #endif
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	215 } nan;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	216
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	217 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	218 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	219 #if (CYG_DOUBLE_BYTEORDER == CYG_MSBFIRST) // Big endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	220 cyg_uint32 msw;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	221 cyg_uint32 lsw;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	222 #else
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	223 cyg_uint32 lsw;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	224 cyg_uint32 msw;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	225 #endif
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	226 } parts;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	227
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	228 } Cyg_libm_ieee_double_shape_type;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	229
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	230
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	231 typedef union
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	232 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	233 cyg_int32 asi32;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	234
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	235 float value;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	236
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	237 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	238 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	239 unsigned int fraction0: 7;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	240 unsigned int fraction1: 16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	241 unsigned int exponent: 8;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	242 unsigned int sign : 1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	243 } number;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	244
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	245 struct
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	246 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	247 unsigned int function1:16;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	248 unsigned int function0:6;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	249 unsigned int quiet:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	250 unsigned int exponent:8;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	251 unsigned int sign:1;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	252 } nan;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	253
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	254 } Cyg_libm_ieee_float_shape_type;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	255
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	256 #endif // little-endian
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	257
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	258 typedef enum {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	259 ADD_INSN=0, // 0
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	260 SUB_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	261 MUL_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	262 DIV_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	263 SQRT_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	264 ABS_INSN, // 5
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	265 MOV_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	266 NEG_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	267 ROUNDL_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	268 TRUNCL_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	269 CEILL_INSN, // 10
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	270 FLOORL_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	271 ROUNDW_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	272 TRUNCW_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	273 CEILW_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	274 FLOORW_INSN, // 15
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	275 // ...
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	276 CVTS_INSN=32,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	277 CVTD_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	278 // ...
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	279 CVTW_INSN=36,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	280 CVTL_INSN,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	281 // ...
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	282 //
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	283 // 48-63 are floating point compare - treated separately
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	284
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	285 } fp_operation;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	286
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	287 typedef enum {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	288 S_FORMAT=16,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	289 D_FORMAT=17,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	290 W_FORMAT=20,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	291 L_FORMAT=21
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	292 } fp_format;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	293
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	294 // FUNCTIONS
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	295
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	296 #define issubnormal(_x_) ((_x_).number.exponent == 0)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	297
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	298 // These functions convert between single precision floating point numbers
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	299 // represented in register or union form. This is required because endian-ness
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	300 // matters when a 32-bit float is in a 64-bit register.
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	301
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	302 static __inline__ void
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	303 reg2flt( CYG_HAL_FPU_REG fpu_reg_p, Cyg_libm_ieee_float_shape_type flt)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	304 {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	305 #if defined(CYGHWR_HAL_MIPS_FPU_32BIT) \|\| (CYG_BYTEORDER == CYG_LSBFIRST)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	306 flt->asi32 = (cyg_int32 )fpu_reg_p;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	307 #else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	308 flt->asi32 = ((cyg_int32 )fpu_reg_p + 1);
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	309 # endif
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	310 } // reg2flt()
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	311
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	312 static __inline__ void
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	313 flt2reg( Cyg_libm_ieee_float_shape_type flt, CYG_HAL_FPU_REG fpu_reg_p )
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	314 {
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	315 #if defined(CYGHWR_HAL_MIPS_FPU_32BIT) \|\| (CYG_BYTEORDER == CYG_LSBFIRST)
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	316 (cyg_int32 )fpu_reg_p = flt->asi32;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	317 #else
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	318 ((cyg_int32 )fpu_reg_p + 1) = flt->asi32;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	319 # endif
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	320 } // flt2reg()
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	321
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	322 static __inline__ void
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	323 reg2dbl( CYG_HAL_FPU_REG fpu_reg_p, Cyg_libm_ieee_double_shape_type flt)
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	324 {
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	325 flt->asi64 = (cyg_int64 )fpu_reg_p;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	326 } // reg2dbl()
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	327
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	328 static __inline__ void
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	329 dbl2reg( Cyg_libm_ieee_double_shape_type flt, CYG_HAL_FPU_REG fpu_reg_p )
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	330 {
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	331 (cyg_uint64)fpu_reg_p = flt->asi64;
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	332 } // dbl2reg()
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	333
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	334
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	335 // This function returns non-zero if the exception has been handled
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	336 // successfully.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	337
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	338 // FIXME: Arguably we should raise underflow exceptions in some of the cases
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	339 // below e.g. sqrt(subnormal). And perhaps we should round appropriately to
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	340 // +/- 2^^Emin if round to +/- infinity is enabled, as per the FS bit. Not sure.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	341
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	342 externC cyg_uint8
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	343 cyg_hal_mips_process_fpe( HAL_SavedRegisters *regs )
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	344 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	345 CYG_WORD insn;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	346 CYG_HAL_FPU_REG srcreg1, srcreg2, *dstreg;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	347 cyg_uint8 handled=0;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	348 fp_format format;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	349 cyg_uint8 fp64bit=0; // true if format is 64bit, false if 32bit
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	350 cyg_uint8 fixedpoint=0; // true if format is fixed point, false if
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	351 // floating point
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	352 cyg_uint8 computational_insn=1; // computational FP instruction
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	353 cyg_bool delay_slot; // did it happen in a delay slot
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	354
30 641b639be825 Merge from eCos master repository on 1999-08-16-22:01:37-BST jlarmour parents: 26 diff changeset	355 CYG_REPORT_FUNCNAMETYPE("cyg_hal_mips_process_fpe", "returning %d");
641b639be825 Merge from eCos master repository on 1999-08-16-22:01:37-BST jlarmour parents: 26 diff changeset	356
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	357 CYG_CHECK_DATA_PTR( regs,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	358 "cyg_hal_mips_process_fpe() called with invalid regs ptr");
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	359
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	360 CYG_PRECONDITION( (regs->vector>>2) == CYGNUM_HAL_VECTOR_FPE,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	361 "Asked to process non-FPE exception");
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	362
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	363 // First of all, we only handle the unimplemented operation exception
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	364 // here, so if we don't have that, we just exit
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	365 if ((regs->fcr31 & FCR31_CAUSE_E) == 0) {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	366 CYG_REPORT_RETVAL(0);
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	367 return 0;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	368 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	369
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	370 // Get the contents of the instruction that caused the exception. This
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	371 // may have been in a branch delay slot however, so we have to check
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	372 // the BD bit in the cause register first.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	373 if (regs->cause & CAUSE_BD) {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	374 insn = (((CYG_WORD ) regs->pc) + 1);
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	375 delay_slot = true;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	376 } else {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	377 insn = (CYG_WORD ) regs->pc;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	378 delay_slot = false;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	379 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	380
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	381 CYG_TRACE2(true, "exception at pc %08x containing %08x", regs->pc, insn);
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	382
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	383 CYG_ASSERT( (insn>>26) == 0x11,
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	384 "Instruction at pc doesn't have expected opcode COP1");
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	385
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	386 // Determine the format
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	387 format = (insn >> 21) & 0x1f;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	388
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	389 switch (format)
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	390 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	391 case S_FORMAT:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	392 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	393 case D_FORMAT:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	394 fp64bit++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	395 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	396 case W_FORMAT:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	397 fixedpoint++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	398 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	399 case L_FORMAT:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	400 fixedpoint++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	401 fp64bit++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	402 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	403 default:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	404 computational_insn=0;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	405 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	406 } // switch
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	407
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	408 // This module only emulates computational floating point instructions
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	409 if (computational_insn && !fixedpoint) {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	410
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	411 // Decode the registers used
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	412 dstreg = &regs->f[ (insn >> 6) & 0x1f ];
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	413 srcreg1 = &regs->f[ (insn >> 11) & 0x1f ];
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	414 srcreg2 = &regs->f[ (insn >> 16) & 0x1f ];
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	415
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	416 // Determine the operation requested
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	417 switch (insn & 0x3f)
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	418 {
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	419 case ADD_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	420 case SUB_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	421 case MUL_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	422 case DIV_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	423
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	424 if (fp64bit) {
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	425 Cyg_libm_ieee_double_shape_type s1, s2;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	426
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	427 reg2dbl( srcreg1, &s1 );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	428 reg2dbl( srcreg2, &s2 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	429
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	430 if ( issubnormal( s1 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	431 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	432 if (s1.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	433 s1.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	434 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	435 s1.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	436 dbl2reg( &s1, srcreg1 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	437 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	438 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	439
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	440 // We could try flushing both to 0 at the same time, but
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	441 // that's inadvisable if both numbers are very small.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	442 // Particularly if this is DIV_INSN, when we could therefore
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	443 // get 0/0 even when the program explicitly checked for
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	444 // denominator != 0. That's also why we check s1 first.
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	445
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	446 else if ( issubnormal( s2 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	447 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	448 if (s2.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	449 s2.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	450 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	451 s2.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	452 dbl2reg( &s2, srcreg2 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	453 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	454 }
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	455
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	456 } else { // 32-bit
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	457 Cyg_libm_ieee_float_shape_type s1, s2;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	458
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	459 reg2flt( srcreg1, &s1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	460 reg2flt( srcreg2, &s2 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	461
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	462 if ( issubnormal( s1 )) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	463 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	464 if (s1.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	465 s1.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	466 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	467 s1.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	468 flt2reg( &s1, srcreg1 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	469 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	470 }
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	471 else if ( issubnormal( s2 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	472 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	473 if (s2.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	474 s2.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	475 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	476 s2.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	477 flt2reg( &s2, srcreg2 );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	478 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	479 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	480 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	481 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	482
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	483 case SQRT_INSN:
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	484 if ( fp64bit ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	485 Cyg_libm_ieee_double_shape_type d, s;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	486
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	487 reg2dbl( dstreg, &d );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	488 reg2dbl( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	489
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	490 if ( issubnormal( s ) ) { // Sqrt of something tiny is 0
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	491 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	492 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	493 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	494 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	495 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	496 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	497 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	498 s.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	499 dbl2reg( &s, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	500 } else {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	501 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	502 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	503 d.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	504 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	505 d.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	506 dbl2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	507 regs->pc += 4; // We've dealt with this so move on
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	508 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	509 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	510 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	511
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	512 } else { // 32-bit
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	513 Cyg_libm_ieee_float_shape_type d, s;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	514
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	515 reg2flt( dstreg, &d );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	516 reg2flt( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	517
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	518 if ( issubnormal( s ) ) { // Sqrt of something tiny is 0
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	519 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	520 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	521 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	522 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	523 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	524 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	525 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	526 s.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	527 flt2reg( &s, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	528 } else {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	529 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	530 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	531 d.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	532 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	533 d.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	534 flt2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	535 regs->pc += 4; // We've dealt with this so move on
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	536 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	537 handled++;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	538 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	539 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	540 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	541
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	542 case ABS_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	543 // We may as well do this right if we can
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	544 if ( fp64bit ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	545 Cyg_libm_ieee_double_shape_type d, s;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	546
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	547 reg2dbl( dstreg, &d );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	548 reg2dbl( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	549
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	550 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	551 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	552 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	553 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	554 // The sign is still important for abs in case
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	555 // there are any further operations on the same
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	556 // register
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	557 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	558 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	559 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	560 s.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	561 dbl2reg( &s, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	562 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	563 }
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	564 } else {
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	565 d.asi64 = s.asi64;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	566 d.number.sign = 0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	567 dbl2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	568 regs->pc += 4;
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	569 handled++;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	570 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	571 } else { // 32-bit
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	572 Cyg_libm_ieee_float_shape_type d, s;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	573
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	574 reg2flt( dstreg, &d );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	575 reg2flt( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	576
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	577 // if this is a delay slot, we can't restart properly
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	578 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	579 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	580 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	581 // The sign is still important for abs in case
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	582 // there are any further operations on the same
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	583 // register
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	584 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	585 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	586 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	587 s.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	588 flt2reg( &s, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	589 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	590 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	591 } else {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	592 d.asi32 = s.asi32;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	593 d.number.sign = 0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	594 flt2reg( &d, dstreg );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	595 regs->pc += 4;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	596 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	597 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	598 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	599 break;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	600
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	601 case MOV_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	602 // We may as well do this right if we can
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	603 if ( fp64bit ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	604 Cyg_libm_ieee_double_shape_type d, s;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	605
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	606 reg2dbl( dstreg, &d );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	607 reg2dbl( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	608
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	609 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	610 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	611 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	612 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	613 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	614 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	615 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	616 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	617 s.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	618 dbl2reg( &s, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	619 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	620 }
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	621 } else {
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	622 d.asi64 = s.asi64;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	623 dbl2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	624 regs->pc += 4;
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	625 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	626 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	627 } else { // 32-bit
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	628 Cyg_libm_ieee_float_shape_type d, s;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	629
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	630 reg2flt( dstreg, &d );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	631 reg2flt( srcreg1, &s );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	632
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	633 // if this is a delay slot, we can't restart properly
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	634 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	635 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	636 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	637 // The sign is still important for abs in case
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	638 // there are any further operations on the same
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	639 // register
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	640 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	641 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	642 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	643 s.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	644 flt2reg( &s, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	645 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	646 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	647 } else {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	648 d.asi32 = s.asi32;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	649 flt2reg( &d, dstreg );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	650 regs->pc += 4;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	651 handled++;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	652 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	653 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	654 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	655
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	656 case NEG_INSN:
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	657 // We may as well do this right if we can
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	658 if ( fp64bit ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	659 Cyg_libm_ieee_double_shape_type d, s;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	660
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	661 reg2dbl( dstreg, &d );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	662 reg2dbl( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	663
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	664 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	665 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	666 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	667 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	668 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	669 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	670 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	671 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	672 s.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	673 dbl2reg( &s, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	674 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	675 }
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	676 } else {
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	677 d.asi64 = s.asi64;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	678 d.number.sign = s.number.sign ? 0 : 1;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	679 dbl2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	680 regs->pc += 4;
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	681 handled++;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	682 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	683 } else { // 32-bit
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	684 Cyg_libm_ieee_float_shape_type d, s;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	685
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	686 reg2flt( dstreg, &d );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	687 reg2flt( srcreg1, &s );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	688
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	689 // if this is a delay slot, we can't restart properly
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	690 // so if it is subnormal, clear the source register instead
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	691 if ( delay_slot ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	692 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	693 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	694 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	695 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	696 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	697 s.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	698 flt2reg( &s, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	699 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	700 }
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	701 } else {
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	702 d.asi32 = s.asi32;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	703 d.number.sign = s.number.sign ? 0 : 1;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	704 flt2reg( &d, dstreg );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	705 regs->pc += 4;
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	706 handled++;
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	707 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	708 }
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	709 break;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	710
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	711 // We can't do much about floating-point to fixed-point arithmetic
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	712 // without emulating the FPU here ourselves!
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	713 // So simply zero denormalized numbers
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	714 case ROUNDL_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	715 case TRUNCL_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	716 case CEILL_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	717 case FLOORL_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	718 case ROUNDW_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	719 case TRUNCW_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	720 case CEILW_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	721 case FLOORW_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	722 case CVTS_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	723 case CVTD_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	724 case CVTW_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	725 case CVTL_INSN:
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	726
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	727 if ( fp64bit ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	728 Cyg_libm_ieee_double_shape_type s;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	729
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	730 reg2dbl( srcreg1, &s );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	731
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	732 // just try and 0 the source register if it is subnormal
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	733 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	734 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	735 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	736 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	737 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	738 s.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	739 dbl2reg( &s, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	740 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	741 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	742 } else { // 32-bit
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	743 Cyg_libm_ieee_float_shape_type s;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	744
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	745 reg2flt( srcreg1, &s );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	746
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	747 // just try and 0 the source register if it is subnormal
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	748 if ( issubnormal( s ) ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	749 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	750 if (s.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	751 s.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	752 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	753 s.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	754 flt2reg( &s, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	755 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	756 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	757 }
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	758 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	759
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	760 default:
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	761 // check for floating-point compare (C.cond.fmt)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	762 if ( (insn & 0x30) == 0x30 ) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	763 if (fp64bit) {
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	764 Cyg_libm_ieee_double_shape_type s1, s2;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	765
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	766 reg2dbl( srcreg1, &s1 );
08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	767 reg2dbl( srcreg2, &s2 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	768
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	769 if ( issubnormal( s1 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	770 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	771 if (s1.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	772 s1.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	773 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	774 s1.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	775 dbl2reg( &s1, srcreg1 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	776 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	777 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	778
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	779 if ( issubnormal( s2 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	780 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	781 if (s2.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	782 s2.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	783 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	784 s2.value = 0.0;
92 08ffab08d2ee Merge from eCos master repository on 2000-05-26-07:47:03-BST jlarmour parents: 66 diff changeset	785 dbl2reg( &s2, srcreg2 );
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	786 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	787 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	788
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	789 } else { // 32-bit
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	790 Cyg_libm_ieee_float_shape_type s1, s2;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	791
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	792 reg2flt( srcreg1, &s1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	793 reg2flt( srcreg2, &s2 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	794
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	795 if ( issubnormal( s1 )) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	796 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	797 if (s1.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	798 s1.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	799 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	800 s1.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	801 flt2reg( &s1, srcreg1 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	802 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	803 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	804 if ( issubnormal( s2 ) ) { // flush to 0 and restart
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	805 // but preserve sign
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	806 if (s2.number.sign)
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	807 s2.value = -0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	808 else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	809 s2.value = 0.0;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	810 flt2reg( &s2, srcreg2 );
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	811 handled++;
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	812 }
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	813 } // else
7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	814 } // if
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	815 break;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	816 } // switch
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	817 } // if (computational_insn && !fixedpoint)
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	818
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	819 if ( handled != 0) {
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	820 // We must clear the cause and flag bits before restoring FPCR31
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	821 regs->fcr31 &= ~(FCR31_CAUSE_E \| FCR31_CAUSE_V \| FCR31_CAUSE_Z \|
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	822 FCR31_CAUSE_O \| FCR31_CAUSE_U \| FCR31_CAUSE_I \|
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	823 FCR31_FLAGS_V \| FCR31_FLAGS_Z \|
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	824 FCR31_FLAGS_O \| FCR31_FLAGS_U \| FCR31_FLAGS_I);
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	825
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	826 }
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	827
62 7a6ac9edc838 Merge from eCos master repository on 2000-01-24-19:43:49-GMT jlarmour parents: 30 diff changeset	828 CYG_REPORT_RETVAL( handled );
26 4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	829 return handled;
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	830 } // cyg_hal_mips_process_fpe()
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	831
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	832 #endif // ifdef CYGHWR_HAL_MIPS_FPU
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	833
4741a3c3496a Merge from eCos master repository on 1999-07-23-05:47:06-BST jlarmour parents: diff changeset	834 // EOF mipsfp.c

Mercurial > ecos

annotate packages/hal/mips/arch/current/src/mipsfp.c @ 3292:7f8e529b4d82 default tip