Permalink
Browse files

add __builtin_va_list builtin type support

  • Loading branch information...
bblum committed Dec 5, 2011
1 parent 7613089 commit a488de05a539b61c49f04e1341d4958fc6a1de8d
Showing with 5 additions and 2 deletions.
  1. +5 −2 Check.hs
View
@@ -10,7 +10,7 @@ import qualified Data.Map as Map
import Data.List (intercalate)
import qualified Data.Foldable as F (any)
import Data.Maybe (mapMaybe,catMaybes,fromMaybe,isNothing,fromJust)
-import Language.C.Data.Ident (Ident)
+import Language.C.Data.Ident (Ident,builtinIdent)
import Language.C.Data.Node (NodeInfo,fileOfNode,posOfNode)
import Language.C.Data.Position (posRow,posColumn)
import Language.C.Syntax.AST
@@ -52,7 +52,10 @@ data Checker = Checker {
switches :: [[Context]]
}
-defaultChecker = Checker undefined Map.empty [] Map.empty [] [] []
+builtinTypes = Map.fromList
+ [(TypedefName $ builtinIdent "__builtin_va_list", Base)]
+
+defaultChecker = Checker undefined builtinTypes [] Map.empty [] [] []
--
-- Instants.

0 comments on commit a488de0

Please sign in to comment.