NetBSD/sys/arch/pc532/fpu/ieee_internal.h

159 lines
4.6 KiB
C

/* $NetBSD: ieee_internal.h,v 1.1 1996/04/04 06:36:22 phil Exp $ */
/*
* IEEE floating point support for NS32081 and NS32381 fpus.
* Copyright (c) 1995 Ian Dall
* All Rights Reserved.
*
* Permission to use, copy, modify and distribute this software and its
* documentation is hereby granted, provided that both the copyright
* notice and this permission notice appear in all copies of the
* software, derivative works or modified versions, and any portions
* thereof, and that both notices appear in supporting documentation.
*
* IAN DALL ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS" CONDITION.
* IAN DALL DISCLAIMS ANY LIABILITY OF ANY KIND FOR ANY DAMAGES
* WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
*/
/*
* File: ieee_internal.h
* Author: Ian Dall
* Date: November 1995
*
* Prototypes and structure definitions internal to the ieee exception
* handling package.
*
*
* HISTORY
* 14-Dec-95 Ian Dall (Ian.Dall@dsto.defence.gov.au)
* First release.
*
*/
#ifndef _IEEE_INTERNAL_H_
#define _IEEE_INTERNAL_H_
#include "ieee_handler.h"
#include "fpu_status.h"
#ifdef DEBUG
extern int ieee_handler_debug;
#define DP(n, format, args...) if (ieee_handler_debug >= n) printf(format, ## args)
#else
#define DP(n, format, args...)
#endif
enum format { fmt9, fmt11, fmt12};
#define XOPCODE(fmt, opcode) ((opcode) << 2 | (fmt))
#define MOVF XOPCODE(fmt11, 1)
#define MOVLF XOPCODE(fmt9, 2)
#define MOVFL XOPCODE(fmt9, 3)
#define MOVIF XOPCODE(fmt9, 0)
#define ROUNDFI XOPCODE(fmt9, 4)
#define TRUNCFI XOPCODE(fmt9, 5)
#define FLOORFI XOPCODE(fmt9, 7)
#define ADDF XOPCODE(fmt11, 0)
#define SUBF XOPCODE(fmt11, 4)
#define MULF XOPCODE(fmt11, 12)
#define DIVF XOPCODE(fmt11, 8)
#define NEGF XOPCODE(fmt11, 5)
#define ABSF XOPCODE(fmt11, 13)
#define SCALBF XOPCODE(fmt12, 4)
#define LOGBF XOPCODE(fmt12, 5)
#define DOTF XOPCODE(fmt12, 3)
#define POLYF XOPCODE(fmt12, 2)
#define CMPF XOPCODE(fmt11, 2)
#define LFSR XOPCODE(fmt9, 1)
#define SFSR XOPCODE(fmt9, 6)
union t_conv {
double d;
float f;
struct {
unsigned int mantissa2:32;
unsigned int mantissa:20;
unsigned int exp:11;
unsigned int sign :1;
} d_bits;
struct {
unsigned int mantissa:23;
unsigned int exp:8;
unsigned int sign :1;
} f_bits;
signed char c;
short s;
int i;
};
/* These assume "double" interpretation of the union is valid */
#define ISNAN(data) ((data).d_bits.exp == 0x7ff && \
((data).d_bits.mantissa != 0 || (data).d_bits.mantissa2 != 0))
#define ISQNAN(data) ((data).d_bits.exp == 0x7ff && \
((data).d_bits.mantissa & 0x80000) != 0)
#define ISSNAN(data) ((data).d_bits.exp == 0x7ff && \
((data).d_bits.mantissa & 0x80000) == 0 && \
((data).d_bits.mantissa != 0 || (data).d_bits.mantissa2 != 0))
#define ISINFTY(data) ((data).d_bits.exp == 0x7ff && (data).d_bits.mantissa == 0 && \
(data).d_bits.mantissa2 == 0)
#define ISDENORM(data) ((data).d_bits.exp == 0 && ((data).d_bits.mantissa != 0 || (data).d_bits.mantissa2 != 0))
#define ISZERO(data) ((data).d_bits.exp == 0 && (data).d_bits.mantissa == 0 && (data).d_bits.mantissa2 == 0)
#define EXP_DBIAS 1023
#define EXP_FBIAS 127
enum op_type {op_type_float, op_type_int};
enum op_class {op_class_read, op_class_write, op_class_rmw, op_class_addr};
enum op_where_tag { op_where_register, op_where_memory, op_where_immediate };
static const union t_conv infty = {d_bits: { sign: 0, exp: 0x7ff, mantissa: 0, mantissa2: 0}};
static const union t_conv snan = {d_bits: { sign: 0, exp: 0x7ff, mantissa: 0x40000, mantissa2: 0}};
static const union t_conv qnan = {d_bits: { sign: 0, exp: 0x7ff, mantissa: 0x80000, mantissa2: 0}};
struct operand {
enum op_type type;
enum op_class class;
struct {
enum op_where_tag tag;
vm_offset_t addr;
} where;
char size;
union t_conv data;
};
int ieee_undfl(struct operand *op1, struct operand *op2,
struct operand *f0_op, int xopcode, state *state);
int ieee_ovfl(struct operand *op1, struct operand *op2,
struct operand *f0_op, int xopcode, state *state);
int ieee_dze(struct operand *op1, struct operand *op2,
struct operand *f0_op, int xopcode, state *state);
int ieee_invop(struct operand *op1, struct operand *op2,
struct operand *f0_op, int xopcode, state *state);
int ieee_add(double data1, double *data2);
int ieee_mul(double data1, double *data2);
int ieee_div(double data1, double *data2);
int ieee_dot(double data1, double data2, double *data3);
void ieee_cmp(double data1, double data2, state *status);
int ieee_normalize(union t_conv *data);
int ieee_scalb(double data1, double *data2);
#endif /* _IEEE_INTERNAL_H_ */