Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
S
storebuffer
Manage
Activity
Members
Code
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Deploy
Model registry
Analyze
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
tacoq
storebuffer
Commits
e4a71034
Commit
e4a71034
authored
2 years ago
by
Alban Gruin
Browse files
Options
Downloads
Patches
Plain Diff
correct_store_buffer: add comments for clarity
Signed-off-by:
Alban Gruin
<
alban.gruin@irit.fr
>
parent
b5678f75
Branches
Branches containing commit
No related tags found
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/correct_store_buffer.v
+14
-3
14 additions, 3 deletions
src/correct_store_buffer.v
with
14 additions
and
3 deletions
src/correct_store_buffer.v
+
14
−
3
View file @
e4a71034
...
@@ -347,8 +347,11 @@ Section monotonicity.
...
@@ -347,8 +347,11 @@ Section monotonicity.
rewrite
Hst
'
in
Hsl
,
Hed
|-
*
.
rewrite
Hst
'
in
Hsl
,
Hed
|-
*
.
destruct
st
;
destruct
st
;
try
discriminate
.
try
discriminate
.
+
now
destruct
(
_
&&
_
).
+
(
*
st
=
Sp
.
In
this
case
,
the
next
stage
is
either
Sp
or
Lsu
,
which
are
+
destruct
(
_
&&
_
).
*
both
lower
than
Lu
.
*
)
now
destruct
(
_
&&
_
).
+
(
*
st
=
Lsu
.
In
this
case
,
the
next
stage
is
either
Lsu
or
Lu
.
*
)
destruct
(
_
&&
_
).
*
simpl
.
*
simpl
.
rewrite
Nat
.
leb_le
.
rewrite
Nat
.
leb_le
.
lia
.
lia
.
...
@@ -358,11 +361,19 @@ Section monotonicity.
...
@@ -358,11 +361,19 @@ Section monotonicity.
-
(
*
st
=
Lu
.
*
)
-
(
*
st
=
Lu
.
*
)
destruct
(
HvalidLdLat
n0
(
eq_refl
_
)
(
O_S
n
))
as
[
Hst
Hlat
].
destruct
(
HvalidLdLat
n0
(
eq_refl
_
)
(
O_S
n
))
as
[
Hst
Hlat
].
rewrite
Hst
in
Hsl
,
Hed
|-
*
.
rewrite
Hst
in
Hsl
,
Hed
|-
*
.
now
destruct
st
'
.
destruct
st
'
;
(
*
Sp
,
Lsu
:
impossible
since
e
'
would
be
lower
than
e
.
*
)
(
*
Su
:
impossible
since
loads
cannot
be
in
Su
.
*
)
discriminate
(
*
Lu
:
since
n
'
=
0
,
e
'
will
be
in
Sn
in
the
next
cycle
,
e
will
still
be
*
in
Lu
.
*
)
(
*
Sn
:
e
'
will
remain
in
Sn
,
e
will
still
be
in
Lu
.
*
)
||
reflexivity
.
(
*
n
and
n
'
<>
0.
*
)
(
*
n
and
n
'
<>
0.
*
)
-
destruct
(
HvalidLdLat
n0
(
eq_refl
_
)
(
O_S
n
))
as
[
Hst
Hlat
].
-
destruct
(
HvalidLdLat
n0
(
eq_refl
_
)
(
O_S
n
))
as
[
Hst
Hlat
].
rewrite
Hst
in
Hsl
,
Hed
|-
*
.
rewrite
Hst
in
Hsl
,
Hed
|-
*
.
(
*
e
is
lower
than
e
'
,
hence
n
>
n
'
.
*
)
now
destruct
(
HvalidLdLat
'
n0
(
eq_refl
_
)
(
O_S
n
'
)).
now
destruct
(
HvalidLdLat
'
n0
(
eq_refl
_
)
(
O_S
n
'
)).
Qed
.
Qed
.
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment