diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2019-09-11 15:13:12 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-09-11 15:13:12 +0200 |
| commit | 7601fb5e792a5305336e5cda9794c4041d053b95 (patch) | |
| tree | f0dc0acd7bb5ad6dae80e4389fb165fa93eb3cb8 /common/Errors.v | |
| parent | d3eba50731c23546c6e9ccb14230460fc1da592e (diff) | |
| parent | c243b565ab0744086e10efcfee16768f6c3cf880 (diff) | |
| download | compcert-7601fb5e792a5305336e5cda9794c4041d053b95.tar.gz compcert-7601fb5e792a5305336e5cda9794c4041d053b95.zip | |
Merge pull request #313 from AbsInt/aarch64
Support target architecture AArch64 (ARMv8 in 64-bit mode)
Diffstat (limited to 'common/Errors.v')
| -rw-r--r-- | common/Errors.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/common/Errors.v b/common/Errors.v index 28933313..6807735a 100644 --- a/common/Errors.v +++ b/common/Errors.v @@ -164,7 +164,7 @@ Ltac monadInv1 H := | (match ?X with left _ => _ | right _ => assertion_failed end = OK _) => destruct X; [try (monadInv1 H) | discriminate] | (match (negb ?X) with true => _ | false => assertion_failed end = OK _) => - destruct X as [] eqn:?; [discriminate | try (monadInv1 H)] + destruct X as [] eqn:?; simpl negb in H; [discriminate | try (monadInv1 H)] | (match ?X with true => _ | false => assertion_failed end = OK _) => destruct X as [] eqn:?; [try (monadInv1 H) | discriminate] | (mmap ?F ?L = OK ?M) => |