Add strings to type system and parser/lexer

[snipe.git] / codegen / liveness.sml

diff --git a/codegen/liveness.sml b/codegen/liveness.sml
index 97037cb28db16d3a39bfa4924f7bad2c40ed8fa5..6a7d89b5f65bfbf1c53e0b8054da92dabcddee4c 100644 (file)
--- a/codegen/liveness.sml
+++ b/codegen/liveness.sml
@@ -99,8 +99,8 @@ struct
       (* val gendef : ident * X.insn -> ident * pred list
        * generates the def/use/succ predicates for a single insn
        *)
-      fun gendef (n, X.DIRECTIVE(_))           = (nil)
-        | gendef (n, X.COMMENT(_))             = (nil)
+      fun gendef (n, X.DIRECTIVE(_))           = ([SUCC (n+1)])
+        | gendef (n, X.COMMENT(_))             = ([SUCC (n+1)])
         | gendef (n, X.LIVEIGN (_))            = ([SUCC (n+1)])
         | gendef (n, X.LABEL l)                = ([SUCC (n+1)])
         | gendef (n, X.INSN(X.NV, _))          = ([SUCC (n+1)])