Compare commits
2 Commits
25b2b677cd
...
733863da2f
| Author | SHA1 | Date |
|---|---|---|
|
|
733863da2f | |
|
|
68163584e6 |
|
|
@ -15,7 +15,7 @@
|
|||
@bvnot @bvor @bvand @bvxor @bvshl @bvlshr @bvashr
|
||||
@bvneg @bvadd @bvmul @bvudiv @bvsdiv @bvurem @bvsrem @bvsmod
|
||||
@z3_ext_rotate_left @z3_ext_rotate_right
|
||||
@concat @extract @sign-extend @zero-extend))
|
||||
@concat @extract))
|
||||
|
||||
|
||||
(provide decode-model)
|
||||
|
|
@ -132,10 +132,6 @@
|
|||
(bv n (bitvector len))]
|
||||
[(list (list (== '_) (== 'extract) i j) s)
|
||||
`(, @extract ,(inline i sol ~env) ,(inline j sol ~env) ,(inline s sol ~env))]
|
||||
[(list (list (== '_) (== 'sign_extend) i) s)
|
||||
`(, @sign-extend ,(inline i sol ~env) ,(inline s sol ~env))]
|
||||
[(list (list (== '_) (== 'zero_extend) i) s)
|
||||
`(, @zero-extend ,(inline i sol ~env) ,(inline s sol ~env))]
|
||||
[(list (== 'let) binds body)
|
||||
(substitute (inline body sol ~env)
|
||||
(for/hash ([id:expr binds])
|
||||
|
|
|
|||
Loading…
Reference in New Issue