Update of /cvsroot/hoc/hoc/InterfaceGenerator
In directory sc8-pr-cvs5.sourceforge.net:/tmp/cvs-serv3820/InterfaceGenerator
Modified Files:
Parser.hs
Log Message:
Fix parsing of some C primitive integer types
Index: Parser.hs
===================================================================
RCS file: /cvsroot/hoc/hoc/InterfaceGenerator/Parser.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Parser.hs 27 Sep 2005 11:55:22 -0000 1.3
+++ Parser.hs 5 Feb 2007 16:12:49 -0000 1.4
@@ -146,7 +146,7 @@
<|> (reserved objc "short" >> return (Just Short))
<|> return Nothing
key <- if isJust signedness || isJust length
- then option "int" simple_builtin
+ then option "int" (try simple_builtin)
else simple_builtin
return $ CTBuiltin signedness length key
|
