mirror of
https://github.com/SDL-Hercules-390/hyperion.git
synced 2026-07-30 20:39:52 +02:00
Fish (David B. Trout)
74e6b23786
Move selected functionality out of the Hercules proper and into separate externally built and maintained External Packages, keeping only the resulting static libs. This is an initial proof-of-concept commit that moves decNumber and SoftFloat out of Hercules and into separate externally maintained repositories. Hercules now only links with the resulting static lib files, thereby reducing Hercules's overall code footprint making it easier to build and maintain (i.e. making it more "nimble"). Other functionality is envisioned to eventually be moved out of Hercules and into separate "External Package" repositories as well (such as the channel subsystem and device emulation for example), eventually reducing Hercules down to its core functionality: accurate emulation of the core architectural instruction set.
86 lines
4.2 KiB
C
86 lines
4.2 KiB
C
/* ------------------------------------------------------------------ */
|
|
/* Decimal 128-bit format module header */
|
|
/* ------------------------------------------------------------------ */
|
|
/* Copyright (c) IBM Corporation, 2000, 2005. All rights reserved. */
|
|
/* */
|
|
/* This software is made available under the terms of the */
|
|
/* ICU License -- ICU 1.8.1 and later. */
|
|
/* */
|
|
/* The description and User's Guide ("The decNumber C Library") for */
|
|
/* this software is called decNumber.pdf. This document is */
|
|
/* available, together with arithmetic and format specifications, */
|
|
/* testcases, and Web links, on the General Decimal Arithmetic page. */
|
|
/* */
|
|
/* Please send comments, suggestions, and corrections to the author: */
|
|
/* mfc@uk.ibm.com */
|
|
/* Mike Cowlishaw, IBM Fellow */
|
|
/* IBM UK, PO Box 31, Birmingham Road, Warwick CV34 5JL, UK */
|
|
/* ------------------------------------------------------------------ */
|
|
|
|
#if !defined(DECIMAL128)
|
|
#define DECIMAL128
|
|
#define DEC128NAME "decimal128" /* Short name */
|
|
#define DEC128FULLNAME "Decimal 128-bit Number" /* Verbose name */
|
|
#define DEC128AUTHOR "Mike Cowlishaw" /* Who to blame */
|
|
|
|
#ifdef HAVE_PLATFORM_H
|
|
#include "platform.h"
|
|
#endif
|
|
|
|
/* parameters for decimal128s */
|
|
#define DECIMAL128_Bytes 16 /* length */
|
|
#define DECIMAL128_Pmax 34 /* maximum precision (digits) */
|
|
#define DECIMAL128_Emax 6144 /* maximum adjusted exponent */
|
|
#define DECIMAL128_Emin -6143 /* minimum adjusted exponent */
|
|
#define DECIMAL128_Bias 6176 /* bias for the exponent */
|
|
#define DECIMAL128_String 43 /* maximum string length, +1 */
|
|
#define DECIMAL128_EconL 12 /* exp. continuation length */
|
|
/* highest biased exponent (Elimit-1) */
|
|
#define DECIMAL128_Ehigh (DECIMAL128_Emax+DECIMAL128_Bias-DECIMAL128_Pmax+1)
|
|
|
|
/* check enough digits, if pre-defined */
|
|
#if defined(DECNUMDIGITS)
|
|
#if (DECNUMDIGITS<DECIMAL128_Pmax)
|
|
#error decimal128.h needs pre-defined DECNUMDIGITS>=34 for safe use
|
|
#endif
|
|
#endif
|
|
|
|
#ifndef DECNUMDIGITS
|
|
#define DECNUMDIGITS DECIMAL128_Pmax /* size if not already defined*/
|
|
#endif
|
|
#ifndef DECNUMBER
|
|
#include "decNumber.h" /* context and number library */
|
|
#endif
|
|
|
|
/* Decimal 128-bit type, accessible by bytes */
|
|
typedef struct {
|
|
uint8_t bytes[DECIMAL128_Bytes]; /* decimal128: 1, 5, 12, 110 bits*/
|
|
} decimal128;
|
|
|
|
/* special values [top byte excluding sign bit; last two bits are */
|
|
/* don't-care for Infinity on input, last bit don't-care for NaN] */
|
|
#if !defined(DECIMAL_NaN)
|
|
#define DECIMAL_NaN 0x7c /* 0 11111 00 NaN */
|
|
#define DECIMAL_sNaN 0x7e /* 0 11111 10 sNaN */
|
|
#define DECIMAL_Inf 0x78 /* 0 11110 00 Infinity */
|
|
#endif
|
|
|
|
/* ---------------------------------------------------------------- */
|
|
/* Routines */
|
|
/* ---------------------------------------------------------------- */
|
|
/* String conversions */
|
|
decimal128 * decimal128FromString(decimal128 *, const char *, decContext *);
|
|
char * decimal128ToString(const decimal128 *, char *);
|
|
char * decimal128ToEngString(const decimal128 *, char *);
|
|
|
|
/* decNumber conversions */
|
|
decimal128 * decimal128FromNumber(decimal128 *, const decNumber *,
|
|
decContext *);
|
|
decNumber * decimal128ToNumber(const decimal128 *, decNumber *);
|
|
|
|
/* Format-dependent utilities */
|
|
uint32_t decimal128IsCanonical(const decimal128 *);
|
|
decimal128 * decimal128Canonical(decimal128 *, const decimal128 *);
|
|
|
|
#endif
|