* libdecnumber: Import decNumber sources from the dfp-branch.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107629 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 127 insertions, 0 deletions

diff --git a/libdecnumber/decNumberLocal.h b/libdecnumber/decNumberLocal.h
new file mode 100644
index 00000000000..928551445b7
--- /dev/null
+++ b/libdecnumber/decNumberLocal.h
@@ -0,0 +1,127 @@
+/* decNumber package local type, tuning, and macro definitions.
+   Copyright (C) 2005 Free Software Foundation, Inc.
+   Contributed by IBM Corporation.  Author Mike Cowlishaw.
+
+   This file is part of GCC.
+
+   GCC is free software; you can redistribute it and/or modify it under
+   the terms of the GNU General Public License as published by the Free
+   Software Foundation; either version 2, or (at your option) any later
+   version.
+
+   GCC is distributed in the hope that it will be useful, but WITHOUT ANY
+   WARRANTY; without even the implied warranty of MERCHANTABILITY or
+   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+   for more details.
+
+   You should have received a copy of the GNU General Public License
+   along with GCC; see the file COPYING.  If not, write to the Free
+   Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+   02111-1307, USA.  */
+
+/* ------------------------------------------------------------------ */
+/* This header file is included by all modules in the decNumber       */
+/* library, and contains local type definitions, tuning parameters,   */
+/* etc.  It must only be included once, and should not need to be     */
+/* used by application programs.  decNumber.h must be included first. */
+/* ------------------------------------------------------------------ */
+
+#if !defined(DECNUMBERLOC)
+#define DECNUMBERLOC
+#define DECNLAUTHOR   "Mike Cowlishaw"	/* Who to blame */
+
+  /* Local names for common types -- decNumber modules do not use int or
+     long directly */
+#define Flag   uint8_t
+#define Byte   int8_t
+#define uByte  uint8_t
+#define Short  int16_t
+#define uShort uint16_t
+#define Int    int32_t
+#define uInt   uint32_t
+#define Unit   decNumberUnit
+
+
+  /* Tuning parameter */
+#define DECBUFFER 36		/* Maximum size basis for local buffers. */
+			      /* Should be a common maximum precision */
+			      /* rounded up to a multiple of 4; must */
+			      /* be non-negative. */
+
+  /* Conditional code flags -- set these to 0 for best performance */
+#define DECCHECK  0		/* 1 to enable robust checking */
+#define DECALLOC  0		/* 1 to enable memory allocation accounting */
+#define DECTRACE  0		/* 1 to trace critical intermediates, etc. */
+
+
+  /* Development use defines */
+#if DECALLOC
+     /* if these interfere with your C includes, just comment them out */
+#define  int ?			/* enable to ensure we do not use plain C */
+#define  long ??		/* .. 'int' or 'long' types from here on */
+#endif
+
+  /* Limits and constants */
+#define DECNUMMAXP 999999999	/* maximum precision we can handle (9 digits) */
+#define DECNUMMAXE 999999999	/* maximum adjusted exponent ditto (9 digits) */
+#define DECNUMMINE -999999999	/* minimum adjusted exponent ditto (9 digits) */
+#if (DECNUMMAXP != DEC_MAX_DIGITS)
+#error Maximum digits mismatch
+#endif
+#if (DECNUMMAXE != DEC_MAX_EMAX)
+#error Maximum exponent mismatch
+#endif
+#if (DECNUMMINE != DEC_MIN_EMIN)
+#error Minimum exponent mismatch
+#endif
+
+  /* Set DECDPUNMAX -- the maximum integer that fits in DECDPUN digits */
+#if   DECDPUN==1
+#define DECDPUNMAX 9
+#elif DECDPUN==2
+#define DECDPUNMAX 99
+#elif DECDPUN==3
+#define DECDPUNMAX 999
+#elif DECDPUN==4
+#define DECDPUNMAX 9999
+#elif DECDPUN==5
+#define DECDPUNMAX 99999
+#elif DECDPUN==6
+#define DECDPUNMAX 999999
+#elif DECDPUN==7
+#define DECDPUNMAX 9999999
+#elif DECDPUN==8
+#define DECDPUNMAX 99999999
+#elif DECDPUN==9
+#define DECDPUNMAX 999999999
+#elif defined(DECDPUN)
+#error DECDPUN must be in the range 1-9
+#endif
+
+
+  /* ----- Shared data ----- */
+  /* The powers of of ten array (powers[n]==10**n, 0<=n<=10) */
+extern const uInt powers[];
+
+  /* ----- Macros ----- */
+  /* ISZERO -- return true if decNumber dn is a zero */
+  /* [performance-critical in some situations] */
+#define ISZERO(dn) decNumberIsZero(dn)	/* now just a local name */
+
+  /* X10 and X100 -- multiply integer i by 10 or 100 */
+  /* [shifts are usually faster than multiply; could be conditional] */
+#define X10(i)  (((i)<<1)+((i)<<3))
+#define X100(i) (((i)<<2)+((i)<<5)+((i)<<6))
+
+  /* D2U -- return the number of Units needed to hold d digits */
+#if DECDPUN==8
+#define D2U(d) ((unsigned)((d)+7)>>3)
+#elif DECDPUN==4
+#define D2U(d) ((unsigned)((d)+3)>>2)
+#else
+#define D2U(d) (((d)+DECDPUN-1)/DECDPUN)
+#endif
+
+#else
+#error decNumberLocal included more than once
+#endif