diff options
| author | Alasdair Armstrong | 2017-08-14 17:11:16 +0100 |
|---|---|---|
| committer | Alasdair Armstrong | 2017-08-14 17:11:16 +0100 |
| commit | f05423c1947df0432362172ba9cfd00c4b8680c0 (patch) | |
| tree | b86d71669731f2f02aa6d2a752ac9d474ede1cab /src/gen_lib/sail_values.lem | |
| parent | 96642bd568bd76d79ab3cc82aa66288e022467ab (diff) | |
| parent | 1a94f80b5d518e9d79daf9b253331d5b7936761f (diff) | |
Merge remote-tracking branch 'origin/master' into experiments
Diffstat (limited to 'src/gen_lib/sail_values.lem')
| -rw-r--r-- | src/gen_lib/sail_values.lem | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/gen_lib/sail_values.lem b/src/gen_lib/sail_values.lem index b4a15432..53a74d05 100644 --- a/src/gen_lib/sail_values.lem +++ b/src/gen_lib/sail_values.lem @@ -378,7 +378,7 @@ let hardware_quot (a:integer) (b:integer) : integer = if ((a<0) = (b<0)) then q (* same sign -- result positive *) else - ~q (* different sign -- result negative *) + integerNegate q (* different sign -- result negative *) let quot_signed = hardware_quot |