diff options
author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
---|---|---|
committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2015-10-11 09:56:49 +0200 |
commit | f8bc6863f72948b8041289e200ff1d8b1f63a342 (patch) | |
tree | b0c0d0713140069f6a5da2cce1296c6e275e9b4d /flocq/Flocq_version.v | |
parent | b0c47e12f2bbff0905ad853b90169df16d87f6be (diff) | |
parent | 0af966a42eb60e9af43f9a450d924758a83946c6 (diff) | |
download | compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.tar.gz compcert-f8bc6863f72948b8041289e200ff1d8b1f63a342.zip |
Merge pull request #55 from silene/master
Upgrade to Flocq 2.5.0.
Diffstat (limited to 'flocq/Flocq_version.v')
-rw-r--r-- | flocq/Flocq_version.v | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/flocq/Flocq_version.v b/flocq/Flocq_version.v index d2d9d3fb..c391f590 100644 --- a/flocq/Flocq_version.v +++ b/flocq/Flocq_version.v @@ -25,7 +25,8 @@ Definition Flocq_version := Eval vm_compute in let fix parse s major minor := match s with | String "."%char t => parse t (major * 100 + minor)%N N0 - | String h t => parse t major (minor + N_of_ascii h - N_of_ascii "0"%char)%N + | String h t => + parse t major (minor * 10 + N_of_ascii h - N_of_ascii "0"%char)%N | Empty_string => (major * 100 + minor)%N end in - parse "2.4.0"%string N0 N0. + parse "2.5.0"%string N0 N0. |