diff options
Diffstat (limited to 'src/cljcc/schema.clj')
| -rw-r--r-- | src/cljcc/schema.clj | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/src/cljcc/schema.clj b/src/cljcc/schema.clj index dd3e729..ebddad4 100644 --- a/src/cljcc/schema.clj +++ b/src/cljcc/schema.clj @@ -399,6 +399,30 @@ [:src #'TackyVal] [:dst #'TackyVal]]) +(def TackyDoubleToInt + [:map + [:type [:= :double-to-int]] + [:src #'TackyVal] + [:dst #'TackyVal]]) + +(def TackyDoubleToUInt + [:map + [:type [:= :double-to-uint]] + [:src #'TackyVal] + [:dst #'TackyVal]]) + +(def TackyIntToDouble + [:map + [:type [:= :int-to-double]] + [:src #'TackyVal] + [:dst #'TackyVal]]) + +(def TackyUIntToDouble + [:map + [:type [:= :uint-to-double]] + [:src #'TackyVal] + [:dst #'TackyVal]]) + (def TackyUnary [:map [:type [:= :unary]] |
