You signed in with another tab or window.Reload to refresh your session.You signed out in another tab or window.Reload to refresh your session.You switched accounts on another tab or window.Reload to refresh your session.Dismiss alert
Copy file name to clipboardExpand all lines: src/fsharp/build.fs
+28-16Lines changed: 28 additions & 16 deletions
Original file line number
Diff line number
Diff line change
@@ -1749,9 +1749,14 @@ type AvailableImportedAssembly =
1749
1749
// For .NETCore everything is not so obvious because fundamental types now reside in different assemblies and this makes initialization more tricky:
1750
1750
// - read system runtime -> create ILGlobals that is partially initialized (*) -> use ILGlobals to read remaining assemblies -> finish the initialization of ILGlobals using data from the previous step
Copy file name to clipboardExpand all lines: src/fsharp/tastops.fs
+4-1Lines changed: 4 additions & 1 deletion
Original file line number
Diff line number
Diff line change
@@ -2514,6 +2514,7 @@ let IsMatchingFSharpAttribute g (AttribInfo(_,tcref)) (Attrib(tcref2,_,_,_,_,_,_
2514
2514
letHasFSharpAttribute g tref attrs= List.exists(IsMatchingFSharpAttribute g tref) attrs
2515
2515
letfindAttrib g tref attrs= List.find(IsMatchingFSharpAttribute g tref) attrs
2516
2516
letTryFindFSharpAttribute g tref attrs= List.tryFind(IsMatchingFSharpAttribute g tref) attrs
2517
+
letTryFindFSharpAttributeOpt g tref attrs=match trefwith None-> None| Some tref-> List.tryFind(IsMatchingFSharpAttribute g tref) attrs
2517
2518
2518
2519
letHasFSharpAttributeOpt g trefOpt attrs=match trefOptwith Some tref-> List.exists(IsMatchingFSharpAttribute g tref) attrs|_->false
2519
2520
letIsMatchingFSharpAttributeOpt g attrOpt(Attrib(tcref2,_,_,_,_,_,_))=match attrOptwith Some((AttribInfo(_,tcref)))-> tyconRefEq g tcref tcref2|_->false
@@ -7003,7 +7004,9 @@ let isSealedTy g ty =
7003
7004
7004
7005
letisComInteropTy g ty=
7005
7006
lettcr,_= destAppTy g ty
7006
-
TryFindFSharpBoolAttribute g g.attrib_ComImportAttribute tcr.Attribs= Some(true)
7007
+
match g.attrib_ComImportAttributewith
7008
+
| None->false
7009
+
| Some attr-> TryFindFSharpBoolAttribute g attr tcr.Attribs= Some(true)