pragma Loop_Invariant
(Big (Result) * Big (Factor) ** Exp = Big (Left) ** Right);
pragma Loop_Variant (Decreases => Exp);
- pragma Annotate
- (CodePeer, False_Positive,
- "validity check", "confusion on generated code");
if Exp rem 2 /= 0 then
declare
pragma Loop_Invariant
(Big (Result) * Big (Factor) ** Exp = Big (Left) ** Right);
pragma Loop_Variant (Decreases => Exp);
- pragma Annotate
- (CodePeer, False_Positive,
- "validity check", "confusion on generated code");
if Exp rem 2 /= 0 then
declare
pragma Loop_Invariant (Exp > 0);
pragma Loop_Invariant (Result * Factor ** Exp = Left ** Right);
pragma Loop_Variant (Decreases => Exp);
- pragma Annotate
- (CodePeer, False_Positive,
- "validity check", "confusion on generated code");
if Exp rem 2 /= 0 then
pragma Assert
pragma Loop_Invariant (Pow = Big_10 ** (W - 2));
pragma Loop_Invariant (Big (T) = Big (T_Init) / Pow);
pragma Loop_Variant (Decreases => T);
- pragma Annotate
- (CodePeer, False_Positive,
- "validity check", "confusion on generated code");
end loop;
declare
pragma Loop_Invariant (Pow = Big_10 ** (W - 2));
pragma Loop_Invariant (Big (T) = Big (T_Init) / Pow);
pragma Loop_Variant (Decreases => T);
- pragma Annotate
- (CodePeer, False_Positive,
- "validity check", "confusion on generated code");
end loop;
declare