--- a/tools/PascalParser.hs Thu Mar 29 01:01:29 2012 +0400
+++ b/tools/PascalParser.hs Thu Mar 29 17:27:01 2012 +0400
@@ -288,7 +288,7 @@
comments
return ret
else
- return UnknownType
+ return VoidType
char ';'
comments
forward <- liftM isJust $ optionMaybe (try (string "forward;") >> comments)