@@ -61,7 +61,7 @@ serializeBC n bc = indent n ++
61 STOREOLD -> "STOREOLD"
61 STOREOLD -> "STOREOLD"
62 OP a b c ->
62 OP a b c ->
63 "OP " ++ serializeReg a ++ " " ++ show b ++ " [" ++ interMap c ", " serializeReg ++ "]"
63 "OP " ++ serializeReg a ++ " " ++ show b ++ " [" ++ interMap c ", " serializeReg ++ "]"
64− NULL r -> "NULL " ++ show r
64+ NULL r -> "NULL " ++ serializeReg r
65 ERROR s -> "ERROR \"" ++ s ++ "\"" -- FIXME: s may contain quotes
65 ERROR s -> "ERROR \"" ++ s ++ "\"" -- FIXME: s may contain quotes
67serialize :: [(Name, [BC])] -> String
67serialize :: [(Name, [BC])] -> String