Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
41fe3f5a
Commit
41fe3f5a
authored
Oct 18, 2018
by
Andrei Paskevich
Committed by
Guillaume Melquiond
Oct 19, 2018
Browse files
Pmodule: fix a type error in cloning. Fixes
#214
parent
dda5aa3c
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/mlw/pmodule.ml
View file @
41fe3f5a
...
...
@@ -793,8 +793,8 @@ let rec clone_expr cl sm e = e_attr_copy e (match e.e_node with
e_for
v'
(
e_var
(
sm_find_pv
sm
f
))
dir
(
e_var
(
sm_find_pv
sm
t
))
i'
(
clone_invl
cl
ism
invl
)
(
clone_expr
cl
ism
e
)
|
Eraise
(
xs
,
e
)
->
e_raise
(
sm_find_xs
sm
xs
)
(
clone_expr
cl
sm
e
)
(
clone_ity
cl
e
.
e_ity
)
|
Eraise
(
xs
,
e
1
)
->
e_raise
(
sm_find_xs
sm
xs
)
(
clone_expr
cl
sm
e
1
)
(
clone_ity
cl
e
.
e_ity
)
|
Eexn
({
xs_name
=
id
;
xs_mask
=
mask
;
xs_ity
=
ity
}
as
xs
,
e
)
->
let
xs'
=
create_xsymbol
(
id_clone
id
)
~
mask
(
clone_ity
cl
ity
)
in
e_exn
xs'
(
clone_expr
cl
(
sm_save_xs
sm
xs
xs'
)
e
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment