@@ -65,7 +65,7 @@ serializeBC n bc = indent n ++
65 "OP " ++ serializeReg a ++ " " ++ show b ++ " [" ++ interMap c ", " serializeReg ++ "]"
65 "OP " ++ serializeReg a ++ " " ++ show b ++ " [" ++ interMap c ", " serializeReg ++ "]"
66 NULL r -> "NULL " ++ serializeReg r
66 NULL r -> "NULL " ++ serializeReg r
67 ERROR s -> "ERROR \"" ++ s ++ "\"" -- FIXME: s may contain quotes
67 ERROR s -> "ERROR \"" ++ s ++ "\"" -- FIXME: s may contain quotes
69serialize :: [(Name, [BC])] -> String
69serialize :: [(Name, [BC])] -> String
70serialize decls =
70serialize decls =
71 interMap decls "\n\n" serializeDecl
71 interMap decls "\n\n" serializeDecl