File tree Expand file tree Collapse file tree 4 files changed +6
-6
lines changed Expand file tree Collapse file tree 4 files changed +6
-6
lines changed Original file line number Diff line number Diff line change 28
28
--
29
29
--- TODO ----------------------------------------------------------------------
30
30
--
31
- -- * `defObjOrErr': currently, repeated declarations are completely ignored;
31
+ -- * `defObjOrErr': currently, repeated declarations are completely ignored;
32
32
-- eventually, the consistency of the declarations should be checked
33
33
--
34
34
Original file line number Diff line number Diff line change 54
54
--
55
55
--- TODO ----------------------------------------------------------------------
56
56
--
57
- -- * `extractStruct' doesn't account for forward declarations that have no
57
+ -- * `extractStruct' doesn't account for forward declarations that have no
58
58
-- full declaration yet; if `extractStruct' is called on such a declaration,
59
59
-- we have a user error, but currently an internal error is raised
60
60
--
Original file line number Diff line number Diff line change @@ -1500,7 +1500,7 @@ accessPath (CHSRoot _ ide) = -- t
1500
1500
do
1501
1501
decl <- findAndChaseDecl ide False True
1502
1502
return (ide `simplifyDecl` decl, [BitSize 0 0 ])
1503
- accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
1503
+ accessPath (CHSDeref (CHSRoot _ ide) _) = -- *t
1504
1504
do
1505
1505
decl <- findAndChaseDecl ide True True
1506
1506
return (ide `simplifyDecl` decl, [BitSize 0 0 ])
@@ -1529,7 +1529,7 @@ accessPath (CHSRef path ide) = -- a.m
1529
1529
case declr of
1530
1530
(Just (CDeclr _ [] _ _ _), _, _) -> return ()
1531
1531
_ -> structExpectedErr ide'
1532
- accessPath (CHSDeref path _pos) = -- *a
1532
+ accessPath (CHSDeref path _pos) = -- *a
1533
1533
do
1534
1534
(decl, offsets) <- accessPath path
1535
1535
decl' <- derefOrErr decl
@@ -3142,7 +3142,7 @@ cCompiler = unsafePerformIO $ do
3142
3142
let mungedCc = mungePath topDir cc
3143
3143
writeIORef cCompilerRef $ Just mungedCc
3144
3144
return mungedCc
3145
- _ -> error " Failed to determine C compiler from 'ghc --info'!"
3145
+ _ -> error " Failed to determine C compiler from 'ghc --info'!"
3146
3146
3147
3147
where
3148
3148
-- adapted from ghc/compiler/main/Packages.hs
Original file line number Diff line number Diff line change 39
39
--
40
40
--- TODO ----------------------------------------------------------------------
41
41
--
42
- -- * Ideally, `ghFrag[s]' should be tail recursive
42
+ -- * Ideally, `ghFrag[s]' should be tail recursive
43
43
44
44
module C2HS.Gen.Header (
45
45
genHeader
You can’t perform that action at this time.
0 commit comments