- C8D53B2A0E90EC081C6E0BDB4D1DE6FCF02ABA4AB34D1EB83271DF34CC3CB1FBB29B103551335477314F2A5DB544B91943CCAAE1DCA05676AA096420D59F9D84
+ 1A74EE33F52E9CABC886BE4C6FEFD3E861A6196B937FF207C2A711D0945424CBFB607205DB86DB8B835D813F910C4D1ABCF406FDF361AF28FA729568A059B620
ffa/libffa/fz_shift.adb
(42 . 7)(42 . 6)
1956       end loop;
1957       Overflow := Carry;
1958    end FZ_ShiftRight_O_I;
1959    pragma Inline_Always(FZ_ShiftRight_O_I);
1960    
1961    
1962    -- ShiftedN := N >> Count (with Overflow Output only)
(53 . 7)(52 . 6)
1964    begin
1965       FZ_ShiftRight_O_I(N, ShiftedN, Count, Overflow, 0);
1966    end FZ_ShiftRight_O;
1967    pragma Inline_Always(FZ_ShiftRight_O);
1968    
1969    
1970    -- ShiftedN := N >> Count (no Overflow output or input)
(65 . 7)(63 . 6)
1972    begin
1973       FZ_ShiftRight_O_I(N, ShiftedN, Count, Overflow, 0);
1974    end FZ_ShiftRight;
1975    pragma Inline_Always(FZ_ShiftRight);
1976    
1977    --------------------------------------------------------------
1978    -- Shift Left
(87 . 7)(84 . 6)
1980       end loop;
1981       Overflow := Carry;
1982    end FZ_ShiftLeft_O_I;
1983    pragma Inline_Always(FZ_ShiftLeft_O_I);
1984    
1985    
1986    -- ShiftedN := N << Count (with Overflow Output only)
(98 . 7)(94 . 6)
1988    begin
1989       FZ_ShiftLeft_O_I(N, ShiftedN, Count, Overflow, 0);
1990    end FZ_ShiftLeft_O;
1991    pragma Inline_Always(FZ_ShiftLeft_O);
1992    
1993    
1994    -- ShiftedN := N << Count (no Overflow output or input)
(110 . 6)(105 . 5)
1996    begin
1997       FZ_ShiftLeft_O_I(N, ShiftedN, Count, Overflow, 0);
1998    end FZ_ShiftLeft;
1999    pragma Inline_Always(FZ_ShiftLeft);
2000    
2001 end FZ_Shift;