--- a/tools/pas2c/PascalPreprocessor.hs	Sun Nov 11 15:14:18 2012 +0100
+++ b/tools/pas2c/PascalPreprocessor.hs	Sun Nov 11 16:44:40 2012 +0100
@@ -15,9 +15,12 @@
         , (try $ string "//") >> manyTill anyChar (try newline) >> return "\n"
         ]
 
+
 initDefines = Map.fromList [
     ("FPC", "")
     , ("PAS2C", "")
+--    , ("WEBGL", "")
+--    , ("AI_MAINTHREAD", "")
     , ("ENDIAN_LITTLE", "")
     , ("S3D_DISABLED", "")
     ]