Movatterモバイル変換


[0]ホーム

URL:


Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

Sign up
Appearance settings

Commit8076475

Browse files
fix FCS netstandard compilation
1 parent59103f7 commit8076475

File tree

2 files changed

+14
-0
lines changed

2 files changed

+14
-0
lines changed

‎src/fsharp/symbols/SymbolPatterns.fs‎

Lines changed: 10 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -89,10 +89,16 @@ module Symbol =
8989
if e.IsEnum|| e.IsValueType|| hasAttribute<MeasureAnnotatedAbbreviationAttribute> e.Attributesthen Some()
9090
else None
9191

92+
#if EXTENSIONTYPING
9293
let(|Class|_|)(original:FSharpEntity,abbreviated:FSharpEntity,_)=
9394
if abbreviated.IsClass
9495
&&(not abbreviated.IsStaticInstantiation|| original.IsFSharpAbbreviation)then Some()
96+
else None
97+
#else
98+
let(|Class|_|)(original:FSharpEntity,abbreviated:FSharpEntity,_)=
99+
if abbreviated.IsClass&& original.IsFSharpAbbreviationthen Some()
95100
else None
101+
#endif
96102

97103
let(|Record|_|)(e:FSharpEntity)=if e.IsFSharpRecordthen Some()else None
98104
let(|UnionType|_|)(e:FSharpEntity)=if e.IsFSharpUnionthen Some()else None
@@ -108,17 +114,21 @@ module Symbol =
108114
||(e.IsFSharp&& e.IsOpaque&&not e.IsFSharpModule&&not e.IsNamespace)then Some()
109115
else None
110116

117+
#if EXTENSIONTYPING
111118
let(|ProvidedType|_|)(e:FSharpEntity)=
112119
if(e.IsProvided|| e.IsProvidedAndErased|| e.IsProvidedAndGenerated)&& e.CompiledName= e.DisplayNamethen
113120
Some()
114121
else None
122+
#endif
115123

116124
let(|ByRef|_|)(e:FSharpEntity)=if e.IsByRefthen Some()else None
117125
let(|Array|_|)(e:FSharpEntity)=if e.IsArrayTypethen Some()else None
118126
let(|FSharpModule|_|)(entity:FSharpEntity)=if entity.IsFSharpModulethen Some()else None
119127

120128
let(|Namespace|_|)(entity:FSharpEntity)=if entity.IsNamespacethen Some()else None
129+
#if EXTENSIONTYPING
121130
let(|ProvidedAndErasedType|_|)(entity:FSharpEntity)=if entity.IsProvidedAndErasedthen Some()else None
131+
#endif
122132
let(|Enum|_|)(entity:FSharpEntity)=if entity.IsEnumthen Some()else None
123133

124134
let(|Tuple|_|)(ty:FSharpType option)=

‎src/fsharp/symbols/SymbolPatterns.fsi‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -31,12 +31,16 @@ module internal Symbol =
3131
val(|Interface|_|): FSharpEntity-> unit option
3232
val(|AbstractClass|_|): FSharpEntity-> unit option
3333
val(|FSharpType|_|): FSharpEntity-> unit option
34+
#if EXTENSIONTYPING
3435
val(|ProvidedType|_|): FSharpEntity-> unit option
36+
#endif
3537
val(|ByRef|_|): FSharpEntity-> unit option
3638
val(|Array|_|): FSharpEntity-> unit option
3739
val(|FSharpModule|_|): FSharpEntity-> unit option
3840
val(|Namespace|_|): FSharpEntity-> unit option
41+
#if EXTENSIONTYPING
3942
val(|ProvidedAndErasedType|_|): FSharpEntity-> unit option
43+
#endif
4044
val(|Enum|_|): FSharpEntity-> unit option
4145
val(|Tuple|_|): FSharpType option-> unit option
4246
val(|RefCell|_|): FSharpType-> unit option

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp