projects / deliverable / binutils-gdb.git / blobdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
oops - toplevel changelog entry for previous delta.
[deliverable/binutils-gdb.git] / libdecnumber / decContext.c
diff --git a/libdecnumber/decContext.c b/libdecnumber/decContext.c
index d2e3bed439750c1c845efab12b87004a4866c1da..5553c02af7348f1fd39c8365f3bf644f8cfbb517 100644 (file)
--- a/libdecnumber/decContext.c
+++ b/libdecnumber/decContext.c
@@ -1,32 +1,27 @@
 /* Decimal context module for the decNumber C Library.
 /* Decimal context module for the decNumber C Library.
-   Copyright (C) 2005, 2007 Free Software Foundation, Inc.
+   Copyright (C) 2005-2018 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
    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
+   Software Foundation; either version 3, or (at your option) any later
    version.
 
    version.
 
-   In addition to the permissions in the GNU General Public License,
-   the Free Software Foundation gives you unlimited permission to link
-   the compiled version of this file into combinations with other
-   programs, and to distribute those combinations without any
-   restriction coming from the use of this file.  (The General Public
-   License restrictions do apply in other respects; for example, they
-   cover modification of the file, and distribution when not linked
-   into a combine executable.)
-
    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.
 
    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, 51 Franklin Street, Fifth Floor, Boston, MA
-   02110-1301, USA.  */
+Under Section 7 of GPL version 3, you are granted additional
+permissions described in the GCC Runtime Library Exception, version
+3.1, as published by the Free Software Foundation.
+
+You should have received a copy of the GNU General Public License and
+a copy of the GCC Runtime Library Exception along with this program;
+see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
+<http://www.gnu.org/licenses/>.  */
 
 /* ------------------------------------------------------------------ */
 /* Decimal Context module                                            */
 
 /* ------------------------------------------------------------------ */
 /* Decimal Context module                                            */
@@ -36,17 +31,17 @@
 /* ------------------------------------------------------------------ */
 
 #include <string.h>          /* for strcmp */
 /* ------------------------------------------------------------------ */
 
 #include <string.h>          /* for strcmp */
+#ifdef DECCHECK
 #include <stdio.h>           /* for printf if DECCHECK */
 #include <stdio.h>           /* for printf if DECCHECK */
+#endif
 #include "dconfig.h"         /* for GCC definitions */
 #include "dconfig.h"         /* for GCC definitions */
-#include "decContext.h"              /* context and base types */
+#include "decContext.h"       /* context and base types */
 #include "decNumberLocal.h"   /* decNumber local types, etc. */
 
 #include "decNumberLocal.h"   /* decNumber local types, etc. */
 
-#if DECCHECK
 /* compile-time endian tester [assumes sizeof(Int)>1] */
 static const  Int mfcone=1;                 /* constant 1 */
 /* compile-time endian tester [assumes sizeof(Int)>1] */
 static const  Int mfcone=1;                 /* constant 1 */
-static const  Flag *mfctop=(Flag *)&mfcone; /* -> top byte */
+static const  Flag *mfctop=(const Flag *)&mfcone; /* -> top byte */
 #define LITEND *mfctop            /* named flag; 1=little-endian */
 #define LITEND *mfctop            /* named flag; 1=little-endian */
-#endif
 
 /* ------------------------------------------------------------------ */
 /* round-for-reround digits                                          */
 
 /* ------------------------------------------------------------------ */
 /* round-for-reround digits                                          */
@@ -64,7 +59,7 @@ const uInt DECPOWERS[10]={1, 10, 100, 1000, 10000, 100000, 1000000,
 /*                                                                   */
 /*  context is the context structure to be queried                   */
 /*  mask indicates the bits to be cleared (the status bit that       */
 /*                                                                   */
 /*  context is the context structure to be queried                   */
 /*  mask indicates the bits to be cleared (the status bit that       */
-/*    corresponds to each 1 bit in the mask is cleared)                      */
+/*    corresponds to each 1 bit in the mask is cleared)              */
 /*  returns context                                                  */
 /*                                                                   */
 /* No error is possible.                                             */
 /*  returns context                                                  */
 /*                                                                   */
 /* No error is possible.                                             */
@@ -80,9 +75,9 @@ decContext *decContextClearStatus(decContext *context, uInt mask) {
 /*  context is the structure to be initialized                       */
 /*  kind selects the required set of default values, one of:         */
 /*     DEC_INIT_BASE       -- select ANSI X3-274 defaults            */
 /*  context is the structure to be initialized                       */
 /*  kind selects the required set of default values, one of:         */
 /*     DEC_INIT_BASE       -- select ANSI X3-274 defaults            */
-/*     DEC_INIT_DECIMAL32  -- select IEEE 754r defaults, 32-bit      */
-/*     DEC_INIT_DECIMAL64  -- select IEEE 754r defaults, 64-bit      */
-/*     DEC_INIT_DECIMAL128 -- select IEEE 754r defaults, 128-bit     */
+/*     DEC_INIT_DECIMAL32  -- select IEEE 754 defaults, 32-bit       */
+/*     DEC_INIT_DECIMAL64  -- select IEEE 754 defaults, 64-bit       */
+/*     DEC_INIT_DECIMAL128 -- select IEEE 754 defaults, 128-bit      */
 /*     For any other value a valid context is returned, but with     */
 /*     Invalid_operation set in the status field.                    */
 /*  returns a context structure with the appropriate initial values.  */
 /*     For any other value a valid context is returned, but with     */
 /*     Invalid_operation set in the status field.                    */
 /*  returns a context structure with the appropriate initial values.  */
@@ -105,11 +100,11 @@ decContext * decContextDefault(decContext *context, Int kind) {
       break;
     case DEC_INIT_DECIMAL32:
       context->digits=7;                    /* digits */
       break;
     case DEC_INIT_DECIMAL32:
       context->digits=7;                    /* digits */
-      context->emax=96;                             /* Emax */
+      context->emax=96;                     /* Emax */
       context->emin=-95;                    /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
       context->emin=-95;                    /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
-      context->traps=0;                             /* no traps set */
-      context->clamp=1;                             /* clamp exponents */
+      context->traps=0;                     /* no traps set */
+      context->clamp=1;                     /* clamp exponents */
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
@@ -119,8 +114,8 @@ decContext * decContextDefault(decContext *context, Int kind) {
       context->emax=384;                    /* Emax */
       context->emin=-383;                   /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
       context->emax=384;                    /* Emax */
       context->emin=-383;                   /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
-      context->traps=0;                             /* no traps set */
-      context->clamp=1;                             /* clamp exponents */
+      context->traps=0;                     /* no traps set */
+      context->clamp=1;                     /* clamp exponents */
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
@@ -130,8 +125,8 @@ decContext * decContextDefault(decContext *context, Int kind) {
       context->emax=6144;                   /* Emax */
       context->emin=-6143;                  /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
       context->emax=6144;                   /* Emax */
       context->emin=-6143;                  /* Emin */
       context->round=DEC_ROUND_HALF_EVEN;    /* 0.5 to nearest even */
-      context->traps=0;                             /* no traps set */
-      context->clamp=1;                             /* clamp exponents */
+      context->traps=0;                     /* no traps set */
+      context->clamp=1;                     /* clamp exponents */
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
       #if DECSUBSET
       context->extended=1;                  /* set */
       #endif
@@ -142,15 +137,6 @@ decContext * decContextDefault(decContext *context, Int kind) {
       decContextSetStatus(context, DEC_Invalid_operation); /* trap */
     }
 
       decContextSetStatus(context, DEC_Invalid_operation); /* trap */
     }
 
-  #if DECCHECK
-  if (LITEND!=DECLITEND) {
-    const char *adj;
-    if (LITEND) adj="little";
-          else adj="big";
-    printf("Warning: DECLITEND is set to %d, but this computer appears to be %s-endian\n",
-          DECLITEND, adj);
-    }
-  #endif
   return context;} /* decContextDefault */
 
 /* ------------------------------------------------------------------ */
   return context;} /* decContextDefault */
 
 /* ------------------------------------------------------------------ */
@@ -166,7 +152,7 @@ enum rounding decContextGetRounding(decContext *context) {
   } /* decContextGetRounding */
 
 /* ------------------------------------------------------------------ */
   } /* decContextGetRounding */
 
 /* ------------------------------------------------------------------ */
-/* decContextGetStatus -- return current status                              */
+/* decContextGetStatus -- return current status                      */
 /*                                                                   */
 /*  context is the context structure to be queried                   */
 /*  returns status                                                   */
 /*                                                                   */
 /*  context is the context structure to be queried                   */
 /*  returns status                                                   */
@@ -181,8 +167,8 @@ uInt decContextGetStatus(decContext *context) {
 /* decContextRestoreStatus -- restore bits in current status         */
 /*                                                                   */
 /*  context is the context structure to be updated                   */
 /* decContextRestoreStatus -- restore bits in current status         */
 /*                                                                   */
 /*  context is the context structure to be updated                   */
-/*  newstatus is the source for the bits to be restored                      */
-/*  mask indicates the bits to be restored (the status bit that              */
+/*  newstatus is the source for the bits to be restored              */
+/*  mask indicates the bits to be restored (the status bit that       */
 /*    corresponds to each 1 bit in the mask is set to the value of    */
 /*    the correspnding bit in newstatus)                             */
 /*  returns context                                                  */
 /*    corresponds to each 1 bit in the mask is set to the value of    */
 /*    the correspnding bit in newstatus)                             */
 /*  returns context                                                  */
@@ -252,7 +238,7 @@ decContext * decContextSetStatus(decContext *context, uInt status) {
 /*                                                                   */
 /*  returns the context structure, unless the string is equal to      */
 /*    DEC_Condition_MU or is not recognized.  In these cases NULL is  */
 /*                                                                   */
 /*  returns the context structure, unless the string is equal to      */
 /*    DEC_Condition_MU or is not recognized.  In these cases NULL is  */
-/*    returned.                                                              */
+/*    returned.                                                      */
 /* ------------------------------------------------------------------ */
 decContext * decContextSetStatusFromString(decContext *context,
                                           const char *string) {
 /* ------------------------------------------------------------------ */
 decContext * decContextSetStatusFromString(decContext *context,
                                           const char *string) {
@@ -303,7 +289,7 @@ decContext * decContextSetStatusFromString(decContext *context,
 /*                                                                   */
 /*  returns the context structure, unless the string is equal to      */
 /*    DEC_Condition_MU or is not recognized.  In these cases NULL is  */
 /*                                                                   */
 /*  returns the context structure, unless the string is equal to      */
 /*    DEC_Condition_MU or is not recognized.  In these cases NULL is  */
-/*    returned.                                                              */
+/*    returned.                                                      */
 /* ------------------------------------------------------------------ */
 decContext * decContextSetStatusFromStringQuiet(decContext *context,
                                                const char *string) {
 /* ------------------------------------------------------------------ */
 decContext * decContextSetStatusFromStringQuiet(decContext *context,
                                                const char *string) {
@@ -356,11 +342,11 @@ decContext * decContextSetStatusQuiet(decContext *context, uInt status) {
   return context;} /* decContextSetStatusQuiet */
 
 /* ------------------------------------------------------------------ */
   return context;} /* decContextSetStatusQuiet */
 
 /* ------------------------------------------------------------------ */
-/* decContextStatusToString -- convert status flags to a string              */
+/* decContextStatusToString -- convert status flags to a string       */
 /*                                                                   */
 /*  context is a context with valid status field                     */
 /*                                                                   */
 /*                                                                   */
 /*  context is a context with valid status field                     */
 /*                                                                   */
-/*  returns a constant string describing the condition.         If multiple  */
+/*  returns a constant string describing the condition.  If multiple  */
 /*    (or no) flags are set, a generic constant message is returned.  */
 /* ------------------------------------------------------------------ */
 const char *decContextStatusToString(const decContext *context) {
 /*    (or no) flags are set, a generic constant message is returned.  */
 /* ------------------------------------------------------------------ */
 const char *decContextStatusToString(const decContext *context) {
@@ -385,10 +371,42 @@ const char *decContextStatusToString(const decContext *context) {
   #if DECSUBSET
   if (status==DEC_Lost_digits         ) return DEC_Condition_LD;
   #endif
   #if DECSUBSET
   if (status==DEC_Lost_digits         ) return DEC_Condition_LD;
   #endif
-  if (status==0                               ) return DEC_Condition_ZE;
+  if (status==0                       ) return DEC_Condition_ZE;
   return DEC_Condition_MU;  /* Multiple errors */
   } /* decContextStatusToString */
 
   return DEC_Condition_MU;  /* Multiple errors */
   } /* decContextStatusToString */
 
+/* ------------------------------------------------------------------ */
+/* decContextTestEndian -- test whether DECLITEND is set correctly    */
+/*                                                                   */
+/*  quiet is 1 to suppress message; 0 otherwise                      */
+/*  returns 0 if DECLITEND is correct                                */
+/*         1 if DECLITEND is incorrect and should be 1               */
+/*        -1 if DECLITEND is incorrect and should be 0               */
+/*                                                                   */
+/* A message is displayed if the return value is not 0 and quiet==0.  */
+/*                                                                   */
+/* No error is possible.                                             */
+/* ------------------------------------------------------------------ */
+Int decContextTestEndian(Flag quiet) {
+  Int res=0;                 /* optimist */
+  uInt dle=(uInt)DECLITEND;   /* unsign */
+  if (dle>1) dle=1;          /* ensure 0 or 1 */
+
+  if (LITEND!=DECLITEND) {
+    if (!quiet) {
+#if DECCHECK
+      const char *adj;
+      if (LITEND) adj="little";
+            else adj="big";
+      printf("Warning: DECLITEND is set to %d, but this computer appears to be %s-endian\n",
+            DECLITEND, adj);
+#endif
+      }
+    res=(Int)LITEND-dle;
+    }
+  return res;
+  } /* decContextTestEndian */
+
 /* ------------------------------------------------------------------ */
 /* decContextTestSavedStatus -- test bits in saved status            */
 /*                                                                   */
 /* ------------------------------------------------------------------ */
 /* decContextTestSavedStatus -- test bits in saved status            */
 /*                                                                   */
GDB Binutils - Deliverables
This page took 0.031821 seconds and 4 git commands to generate.