Skip to content

Commit 78ecbf9

Browse files
committed
Reject older checkpoint versions
We actually document that we reject older checkpoint versions but this was not reflected in the code. Fix this.
1 parent 7a2de5a commit 78ecbf9

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

Diff for: tools/gnatcov/checkpoints.adb

+1-1
Original file line numberDiff line numberDiff line change
@@ -573,7 +573,7 @@ package body Checkpoints is
573573
if CP_Header.Magic /= Checkpoint_Magic then
574574
Fatal_Error ("invalid checkpoint file " & Filename);
575575

576-
elsif CP_Header.Version not in Checkpoint_Version then
576+
elsif CP_Header.Version /= Checkpoint_Version'Last then
577577
Fatal_Error
578578
("invalid checkpoint version" & CP_Header.Version'Img);
579579

0 commit comments

Comments
 (0)