Lines 407413
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 418424
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 
