tools/pas2c/Pas2C.hs
changeset 13892 5988e73080a3
parent 13883 0ce8aad17c24
child 14233 b01770d42517
--- a/tools/pas2c/Pas2C.hs	Sat Oct 13 18:32:41 2018 +0200
+++ b/tools/pas2c/Pas2C.hs	Sat Oct 13 22:38:51 2018 +0200
@@ -186,6 +186,7 @@
 toCFiles _ _ (_, Redo _) = return ()
 toCFiles outputPath ns pu@(fileName, _) = do
     hPutStrLn stdout $ "Rendering '" ++ fileName ++ "'..."
+    --let (fn, p) = pu in writeFile (outputPath ++ fn ++ ".dump") $ show p
     toCFiles' pu
     where
     toCFiles' (fn, p@(Program {})) = writeFile (outputPath ++ fn ++ ".c") $ "#include \"fpcrtl.h\"\n" ++ (render2C initialState . pascal2C) p