GaloisInc/cryptol
1
1
Fork 0
mirror of https://github.com/GaloisInc/cryptol.git synced 2024-07-14 17:20:35 +03:00
Code Issues Projects Releases Wiki Activity

Update reference semantics with the new compare* primitives.

Browse Source
This commit is contained in:
Rob Dockins 2021-08-20 13:29:31 -07:00
parent 716c338090
commit cfaafdce89
2 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
docs/Semantics.pdf
View File

Binary file not shown.

12
src/Cryptol/Eval/Reference.lhs
View File

@ -895,6 +895,18 @@ by corresponding type classes:
> do _ <- evalString s -- evaluate and ignore s
> _ <- x -- evaluate and ignore x
> y
>
> , "compareEq" ~> VNumPoly $ \m -> pure $
> VNumPoly $ \n -> pure $
> VBit (m == n)
>
> , "compareLt" ~> VNumPoly $ \m -> pure $
> VNumPoly $ \n -> pure $
> VBit (m < n)
>
> , "compareLeq" ~> VNumPoly $ \m -> pure $
> VNumPoly $ \n -> pure $
> VBit (m <= n)
> ]
>
>