Skip to content
Browse files

Represent floats as doubles internally

  • Loading branch information...
1 parent 77f65ca commit abcf35d3934e67e3bcf5885ec5417e70b276ca0b Edwin Brady committed
Showing with 5 additions and 5 deletions.
  1. +1 −1 Epic/Bytecode.lhs
  2. +1 −1 Epic/Epic.lhs
  3. +1 −1 Epic/Language.lhs
  4. +1 −1 Epic/Lexer.lhs
  5. +1 −1 Epic/Stackcode.lhs
View
2 Epic/Bytecode.lhs
@@ -32,7 +32,7 @@ at this stage.
> | UNUSED TmpVar
> | INT TmpVar Int
> | BIGINT TmpVar Integer
-> | FLOAT TmpVar Float
+> | FLOAT TmpVar Double
> | BIGFLOAT TmpVar Double
> | STRING TmpVar StrVar
> | PROJ TmpVar TmpVar Int -- project into a register
View
2 Epic/Epic.lhs
@@ -368,7 +368,7 @@ Remaining expression constructs
> int x = term $ Const (MkInt x)
> -- | Constant float
-> float :: Float -> Term
+> float :: Double -> Term
> float x = term $ Const (MkFloat x)
> -- | Constant character
View
2 Epic/Language.lhs
@@ -63,7 +63,7 @@ Raw data types. Int, Char, Bool are unboxed.
> data Const = MkInt Int
> | MkBigInt Integer
> | MkChar Char
-> | MkFloat Float
+> | MkFloat Double
> | MkBigFloat Double
> | MkString String
> | MkBool Bool
View
2 Epic/Lexer.lhs
@@ -47,7 +47,7 @@
> = TokenName Name
> | TokenString String
> | TokenInt Int
-> | TokenFloat Float
+> | TokenFloat Double
> | TokenBigInt Integer
> | TokenBigFloat Double
> | TokenChar Char
View
2 Epic/Stackcode.lhs
@@ -21,7 +21,7 @@ locally bound name V n is referred to by stack location (<loc>-n)
> | PUSH Loc
> | INT Int
> | BIGINT Integer
-> | FLOAT Float
+> | FLOAT Double
> | STRING Int -- reference to string pool
> | CON Tag Int
> | UNIT

0 comments on commit abcf35d

Please sign in to comment.
Something went wrong with that request. Please try again.