View | Details | Raw Unified | Return to bug 10768
Collapse All | Expand All | Context: (Patch / File /
)

(-)gcc-4_1-branch/gcc/ada/uintp.ads (-2 / +3 lines)
 Lines 407-413    Link Here 
407
   --  so that a directly represented number always fits in two digits when
407
   --  so that a directly represented number always fits in two digits when
408
   --  represented in base format.
408
   --  represented in base format.
409
409
410
   Min_Direct : constant Int := -(Base - 1);
410
   Min_Direct : constant Int := -(Base);
411
   Max_Direct : constant Int := (Base - 1) * (Base - 1);
411
   Max_Direct : constant Int := (Base - 1) * (Base - 1);
412
412
413
   --  The following values define the bias used to store Uint values which
413
   --  The following values define the bias used to store Uint values which
 Lines 418-424    Link Here 
418
418
419
   type Ctrl is range Int'First .. Int'Last;
419
   type Ctrl is range Int'First .. Int'Last;
420
420
421
   Uint_Direct_Bias  : constant Ctrl := Ctrl (Uint_Low_Bound) + Ctrl (Base);
421
   Uint_Direct_Bias  : constant Ctrl := Ctrl (Uint_Low_Bound) + Ctrl (Base)
422
     + 1;
422
   Uint_Direct_First : constant Ctrl := Uint_Direct_Bias + Ctrl (Min_Direct);
423
   Uint_Direct_First : constant Ctrl := Uint_Direct_Bias + Ctrl (Min_Direct);
423
   Uint_Direct_Last  : constant Ctrl := Uint_Direct_Bias + Ctrl (Max_Direct);
424
   Uint_Direct_Last  : constant Ctrl := Uint_Direct_Bias + Ctrl (Max_Direct);
424
425
(-)gcc-4_1-branch/gcc/ada/types.h (-2 / +2 lines)
 Lines 253-262    Link Here 
253
#define Base 32768
253
#define Base 32768
254
254
255
/* Minimum and maximum integers directly representable as Uint values */
255
/* Minimum and maximum integers directly representable as Uint values */
256
#define Min_Direct (-(Base - 1))
256
#define Min_Direct (-(Base))
257
#define Max_Direct ((Base - 1) * (Base - 1))
257
#define Max_Direct ((Base - 1) * (Base - 1))
258
258
259
#define Uint_Direct_Bias  (Uint_Low_Bound + Base)
259
#define Uint_Direct_Bias  (Uint_Low_Bound + Base + 1)
260
#define Uint_Direct_First (Uint_Direct_Bias + Min_Direct)
260
#define Uint_Direct_First (Uint_Direct_Bias + Min_Direct)
261
#define Uint_Direct_Last  (Uint_Direct_Bias + Max_Direct)
261
#define Uint_Direct_Last  (Uint_Direct_Bias + Max_Direct)
262
262

Return to bug 10768