diff options
Diffstat (limited to 'src/AST')
| -rw-r--r-- | src/AST/Pretty.hs | 3 | ||||
| -rw-r--r-- | src/AST/Types.hs | 7 |
2 files changed, 10 insertions, 0 deletions
diff --git a/src/AST/Pretty.hs b/src/AST/Pretty.hs index 4d9aeec..63742ad 100644 --- a/src/AST/Pretty.hs +++ b/src/AST/Pretty.hs @@ -275,6 +275,9 @@ operator OOr = (Infix, "||") operator OIf = (Prefix, "ifB") operator ORound64 = (Prefix, "round") operator OToFl64 = (Prefix, "toFl64") +operator ORecip{} = (Prefix, "recip") +operator OExp{} = (Prefix, "exp") +operator OLog{} = (Prefix, "log") ppTy :: Int -> STy t -> String ppTy d ty = ppTys d ty "" diff --git a/src/AST/Types.hs b/src/AST/Types.hs index a3e5080..5688277 100644 --- a/src/AST/Types.hs +++ b/src/AST/Types.hs @@ -93,3 +93,10 @@ type family ScalIsNumeric t where ScalIsNumeric TF32 = True ScalIsNumeric TF64 = True ScalIsNumeric TBool = False + +type family ScalIsFloating t where + ScalIsFloating TI32 = False + ScalIsFloating TI64 = False + ScalIsFloating TF32 = True + ScalIsFloating TF64 = True + ScalIsFloating TBool = False |