mirror of
https://github.com/GaloisInc/cryptol.git
synced 2024-08-17 01:41:09 +03:00
Update reference semantics with the new compare* primitives.
This commit is contained in:
parent
716c338090
commit
cfaafdce89
Binary file not shown.
@ -895,6 +895,18 @@ by corresponding type classes:
|
|||||||
> do _ <- evalString s -- evaluate and ignore s
|
> do _ <- evalString s -- evaluate and ignore s
|
||||||
> _ <- x -- evaluate and ignore x
|
> _ <- x -- evaluate and ignore x
|
||||||
> y
|
> 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)
|
||||||
> ]
|
> ]
|
||||||
>
|
>
|
||||||
>
|
>
|
||||||
|
Loading…
Reference in New Issue
Block a user