added constructor for declaration with default value

[proglang.git] / Abssyntax.hs

diff --git a/Abssyntax.hs b/Abssyntax.hs
index ec85c8d619730b34e85d5e00a39f4a562e995d06..d9fc3445b15970a66b0ac32ce0d1ca796c5648a8 100644 (file)
--- a/Abssyntax.hs
+++ b/Abssyntax.hs
@@ -16,11 +16,12 @@ data Stms =
 data Stm =
    SExp Exp
  | SBlock [Stm]
+ | SDecl Type Ident Exp
+ | SDeclD Type Ident
  | SWhile Exp Stm
  | SIf Exp Stm Stm
  | SPrint Exp
  | SNoop
- | SDecl Type Ident Exp
   deriving (Eq,Ord,Show)
 
 data Exp =