aboutsummaryrefslogtreecommitdiff
path: root/src/main
diff options
context:
space:
mode:
authorazidar2015-04-24 16:58:06 -0700
committerazidar2015-04-24 16:58:06 -0700
commit5a2a495ce88eec9e2e79cfbfe7f5548cede25874 (patch)
treee4a30a42f8ff9563a16f213b8ac0e1cda9ffc24a /src/main
parent2006198a53328e3898bcbe69429b751c065ea802 (diff)
Updated TODO. Added backwards with prop for as and bits
Diffstat (limited to 'src/main')
-rw-r--r--src/main/stanza/primop.stanza19
1 files changed, 11 insertions, 8 deletions
diff --git a/src/main/stanza/primop.stanza b/src/main/stanza/primop.stanza
index a6b42e7c..e88a6b8e 100644
--- a/src/main/stanza/primop.stanza
+++ b/src/main/stanza/primop.stanza
@@ -329,20 +329,12 @@ public defn primop-gen-constraints (e:DoPrim,v:Vector<WGeq>) -> Type :
PAD-S-OP : IntWidth(consts(e)[0])
NEG-U-OP : IntWidth(1)
NEG-S-OP : IntWidth(1)
- AS-UINT-U-OP : max-args-w
- AS-UINT-S-OP : max-args-w
- AS-SINT-U-OP : max-args-w
- AS-SINT-S-OP : max-args-w
SHIFT-LEFT-U-OP : PlusWidth(max-args-w,IntWidth(consts(e)[0]))
SHIFT-LEFT-S-OP : PlusWidth(max-args-w,IntWidth(consts(e)[0]))
SHIFT-RIGHT-U-OP : MinusWidth(max-args-w,IntWidth(consts(e)[0]))
SHIFT-RIGHT-S-OP : MinusWidth(max-args-w,IntWidth(consts(e)[0]))
CONVERT-U-OP : PlusWidth(max-args-w,IntWidth(1))
CONVERT-S-OP : max-args-w
- BIT-NOT-OP : max-args-w
- BIT-AND-OP : max-args-w
- BIT-OR-OP : max-args-w
- BIT-XOR-OP : max-args-w
BIT-SELECT-OP : IntWidth(1)
BITS-SELECT-OP : IntWidth(consts(e)[0] - consts(e)[1])
else :
@@ -355,6 +347,17 @@ public defn primop-gen-constraints (e:DoPrim,v:Vector<WGeq>) -> Type :
all-equal(List(w-var,tail(map(width!,args(e)))))
CONCAT-OP :
PlusWidth(width!(args(e)[0]),width!(args(e)[1]))
+ BIT-NOT-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-AND-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-OR-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-XOR-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-AND-REDUCE-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-OR-REDUCE-OP : all-equal(List(w-var,map(width!,args(e))))
+ BIT-XOR-REDUCE-OP : all-equal(List(w-var,map(width!,args(e))))
+ AS-UINT-U-OP : all-equal(List(w-var,map(width!,args(e))))
+ AS-UINT-S-OP : all-equal(List(w-var,map(width!,args(e))))
+ AS-SINT-U-OP : all-equal(List(w-var,map(width!,args(e))))
+ AS-SINT-S-OP : all-equal(List(w-var,map(width!,args(e))))
add(v,WGeq(w-var,w*))
match(type(e)) :