Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
3092ace7
Commit
3092ace7
authored
Jul 09, 2007
by
Ian Lynagh
Browse files
Add -XUnliftedFFITypes flag
parent
cdd7fdac
Changes
2
Hide whitespace changes
Inline
Side-by-side
compiler/main/DynFlags.hs
View file @
3092ace7
...
...
@@ -168,6 +168,7 @@ data DynFlag
|
Opt_ExtendedDefaultRules
-- Use GHC's extended rules for defaulting
|
Opt_GlasgowExts
|
Opt_FFI
|
Opt_UnliftedFFITypes
|
Opt_PArr
-- Syntactic support for parallel arrays
|
Opt_Arrows
-- Arrow-notation syntax
|
Opt_TH
...
...
@@ -1131,6 +1132,7 @@ xFlags = [
(
"FI"
,
Opt_FFI
),
-- support `-ffi'...
(
"FFI"
,
Opt_FFI
),
-- ...and also `-fffi'
(
"ForeignFunctionInterface"
,
Opt_FFI
),
(
"UnliftedFFITypes"
,
Opt_UnliftedFFITypes
),
(
"PartiallyAppliedClosedTypeSynonyms"
,
Opt_PartiallyAppliedClosedTypeSynonyms
),
(
"Rank2Types"
,
Opt_Rank2Types
),
...
...
@@ -1183,6 +1185,7 @@ impliedFlags = [
glasgowExtsFlags
=
[
Opt_GlasgowExts
,
Opt_PrintExplicitForalls
,
Opt_FFI
,
Opt_UnliftedFFITypes
,
Opt_GADTs
,
Opt_ImplicitParams
,
Opt_ScopedTypeVariables
...
...
compiler/typecheck/TcType.lhs
View file @
3092ace7
...
...
@@ -1253,7 +1253,7 @@ legalFFITyCon tc
= isUnLiftedTyCon tc || boxedMarshalableTyCon tc || tc == unitTyCon
marshalableTyCon dflags tc
= (dopt Opt_
GlasgowExt
s dflags && isUnLiftedTyCon tc)
= (dopt Opt_
UnliftedFFIType
s dflags && isUnLiftedTyCon tc)
|| boxedMarshalableTyCon tc
boxedMarshalableTyCon tc
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment