--- a/tools/PascalPreprocessor.hs	Sat Apr 14 23:50:14 2012 +0400
+++ b/tools/PascalPreprocessor.hs	Sun Apr 15 00:47:22 2012 +0400
@@ -15,7 +15,7 @@
         , (try $ string "//") >> manyTill anyChar (try newline) >> return "\n"
         ]
 
-initDefines = Map.fromList [("FPC", "")]
+initDefines = Map.fromList [("FPC", ""), ("PAS2C", "")]
         
 preprocess :: String -> IO String
 preprocess fn = do