suzanne.soy/macrotypes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rosette2: support more bv operations

Browse Source
This commit is contained in:
AlexKnauth 2016-08-25 11:59:17 -04:00
parent 6ee48d12a5
commit e07f912cf7
2 changed files with 17 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
turnstile/examples/rosette/rosette2.rkt
View File

@ -213,14 +213,18 @@
(define-rosette-primop bvnot : (C→ BV BV))
;; TODO: bvand, bvor, bvxor
(define-rosette-primop bvand : (C→ BV BV BV))
(define-rosette-primop bvor : (C→ BV BV BV))
(define-rosette-primop bvxor : (C→ BV BV BV))
(define-rosette-primop bvshl : (C→ BV BV BV))
(define-rosette-primop bvlshr : (C→ BV BV BV))
(define-rosette-primop bvashr : (C→ BV BV BV))
(define-rosette-primop bvneg : (C→ BV BV))
;; TODO: bvadd, bvsub, bvmul
(define-rosette-primop bvadd : (C→ BV BV BV))
(define-rosette-primop bvsub : (C→ BV BV BV))
(define-rosette-primop bvmul : (C→ BV BV BV))
(define-rosette-primop bvsdiv : (C→ BV BV BV))
(define-rosette-primop bvudiv : (C→ BV BV BV))

22
turnstile/examples/tests/rosette/rosette2-tests.rkt
View File

@ -124,18 +124,18 @@
(check-type (bveq (bv 1 2) (bv 1 3)) : Bool) ; -> runtime exn
(check-runtime-exn (bveq (bv 1 2) (bv 1 3)))
;; ;; non-primop bvops
;; (check-type (bvand (bv -1 (bvpred 4)) (bv 2 (bvpred 4))) : BV
;; -> (bv 2 (bvpred 4)))
;; (check-type (bvor (bv 0 (bvpred 3)) (bv 1 (bvpred 3))) : BV
;; -> (bv 1 (bvpred 3)))
;; (check-type (bvxor (bv -1 (bvpred 5)) (bv 1 (bvpred 5))) : BV
;; -> (bv -2 (bvpred 5)))
;; ;; examples from rosette guide
;; (check-type (bvand (bv -1 4) (bv 2 4)) : BV -> (bv 2 4))
;; (check-type (bvor (bv 0 3) (bv 1 3)) : BV -> (bv 1 3))
;; (check-type (bvxor (bv -1 5) (bv 1 5)) : BV -> (bv -2 5))
(check-type (bvand (bv -1 4) (bv 2 4)) : BV
-> (bv 2 4))
(check-type (bvor (bv 0 3) (bv 1 3)) : BV
-> (bv 1 3))
(check-type (bvxor (bv -1 5) (bv 1 5)) : BV
-> (bv -2 5))
;; examples from rosette guide
(check-type (bvand (bv -1 4) (bv 2 4)) : BV -> (bv 2 4))
(check-type (bvor (bv 0 3) (bv 1 3)) : BV -> (bv 1 3))
(check-type (bvxor (bv -1 5) (bv 1 5)) : BV -> (bv -2 5))
;; (define-symbolic b boolean? : Bool)
;; (check-type (bvand (bv -1 4) (if b (bv 3 4) (bv 2 4))) : BV