diff options
| author | Kathy Gray | 2014-11-25 23:36:31 +0000 |
|---|---|---|
| committer | Kathy Gray | 2014-11-25 23:36:31 +0000 |
| commit | 4a2a8ca472b591d88bb9841de5bb9a7a465e447c (patch) | |
| tree | dd0048a3fd69a7355ea0da16f9fc7f2734740f2a /src/lem_interp | |
| parent | 34c14e403a45e082c673783820719bced883bb93 (diff) | |
more changes to quot and mod
Diffstat (limited to 'src/lem_interp')
| -rw-r--r-- | src/lem_interp/interp_lib.lem | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/lem_interp/interp_lib.lem b/src/lem_interp/interp_lib.lem index 513e1b78..c58e9351 100644 --- a/src/lem_interp/interp_lib.lem +++ b/src/lem_interp/interp_lib.lem @@ -10,14 +10,14 @@ open import Bool let hardware_mod (a: integer) (b:integer) : integer = if a < 0 && b < 0 then (abs a) mod (abs b) - else if (a < 0 && b >= 0) || (a >= 0 && b < 0) + else if (a < 0 && b >= 0) then (a mod b) - b else a mod b let hardware_quot (a:integer) (b:integer) : integer = if a < 0 && b < 0 then (abs a) / (abs b) - else if (a < 0 && b >= 0) || (a >= 0 && b < 0) + else if (a < 0 && b > 0) then (a/b) + 1 else a/b |