diff options
Diffstat (limited to 'cfrontend/Csharpminor.v')
| -rw-r--r-- | cfrontend/Csharpminor.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cfrontend/Csharpminor.v b/cfrontend/Csharpminor.v index 88eb3c7b..b4993e75 100644 --- a/cfrontend/Csharpminor.v +++ b/cfrontend/Csharpminor.v @@ -320,8 +320,8 @@ Inductive bind_parameters: env -> | bind_parameters_array: forall e m id sz al params v1 vl b m1 m2, PTree.get id e = Some (b, Varray sz al) -> - extcall_memcpy_sem sz (Zmin al 4) - ge (Vptr b Int.zero :: v1 :: nil) m E0 Vundef m1 -> + extcall_memcpy_sem sz al + ge (Vptr b Int.zero :: v1 :: nil) m E0 Vundef m1 -> bind_parameters e m1 params vl m2 -> bind_parameters e m ((id, Varray sz al) :: params) (v1 :: vl) m2. |