Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
e902dde1
F
fsharp
项目概览
dotNET Platform
/
fsharp
11 个月 前同步成功
通知
0
Star
1
Fork
0
代码
文件
提交
分支
Tags
贡献者
分支图
Diff
Issue
0
列表
看板
标记
里程碑
合并请求
0
DevOps
流水线
流水线任务
计划
Wiki
0
Wiki
分析
仓库
DevOps
项目成员
Pages
F
fsharp
项目概览
项目概览
详情
发布
仓库
仓库
文件
提交
分支
标签
贡献者
分支图
比较
Issue
0
Issue
0
列表
看板
标记
里程碑
合并请求
0
合并请求
0
Pages
DevOps
DevOps
流水线
流水线任务
计划
分析
分析
仓库分析
DevOps
Wiki
0
Wiki
成员
成员
收起侧边栏
关闭侧边栏
动态
分支图
创建新Issue
流水线任务
提交
Issue看板
体验新版 GitCode,发现更多精彩内容 >>
未验证
提交
e902dde1
编写于
11月 30, 2022
作者:
K
Kevin Ransom (msft)
提交者:
GitHub
11月 30, 2022
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
cleanup (#14406)
上级
6df0babb
变更
3
隐藏空白更改
内联
并排
Showing
3 changed file
with
47 addition
and
56 deletion
+47
-56
src/Compiler/SyntaxTree/PrettyNaming.fs
src/Compiler/SyntaxTree/PrettyNaming.fs
+0
-7
src/Compiler/SyntaxTree/PrettyNaming.fsi
src/Compiler/SyntaxTree/PrettyNaming.fsi
+0
-6
src/Compiler/TypedTree/TcGlobals.fs
src/Compiler/TypedTree/TcGlobals.fs
+47
-43
未找到文件。
src/Compiler/SyntaxTree/PrettyNaming.fs
浏览文件 @
e902dde1
...
...
@@ -1074,13 +1074,6 @@ let mkExceptionFieldName =
/// The prefix of the names used for the fake namespace path added to all dynamic code entries in FSI.EXE
let
FsiDynamicModulePrefix
=
"FSI_"
[<
RequireQualifiedAccess
>]
module
FSharpLib
=
let
Root
=
"Microsoft.FSharp"
let
RootPath
=
IL
.
splitNamespace
Root
let
Core
=
Root
+
".Core"
let
CorePath
=
IL
.
splitNamespace
Core
[<
RequireQualifiedAccess
>]
module
CustomOperations
=
[<
Literal
>]
...
...
src/Compiler/SyntaxTree/PrettyNaming.fsi
浏览文件 @
e902dde1
...
...
@@ -255,12 +255,6 @@ val internal mkExceptionFieldName: (int -> string)
/// The prefix of the names used for the fake namespace path added to all dynamic code entries in FSI.EXE
val
FsiDynamicModulePrefix
:
string
module
internal
FSharpLib
=
val
Root
:
string
val
RootPath
:
string
list
val
Core
:
string
val
CorePath
:
string
list
module
internal
CustomOperations
=
[<
Literal
>]
val
Into
:
string
=
"into"
...
...
src/Compiler/TypedTree/TcGlobals.fs
浏览文件 @
e902dde1
...
...
@@ -51,33 +51,37 @@ let ValRefForIntrinsic (IntrinsicValRef(mvr, _, _, _, key)) = mkNonLocalValRef
[<
AutoOpen
>]
module
FSharpLib
=
let
CoreOperatorsCheckedName
=
FSharpLib
.
Root
+
".Core.Operators.Checked"
let
ControlName
=
FSharpLib
.
Root
+
".Control"
let
LinqName
=
FSharpLib
.
Root
+
".Linq"
let
CollectionsName
=
FSharpLib
.
Root
+
".Collections"
let
LanguagePrimitivesName
=
FSharpLib
.
Root
+
".Core.LanguagePrimitives"
let
CompilerServicesName
=
FSharpLib
.
Root
+
".Core.CompilerServices"
let
LinqRuntimeHelpersName
=
FSharpLib
.
Root
+
".Linq.RuntimeHelpers"
let
RuntimeHelpersName
=
FSharpLib
.
Root
+
".Core.CompilerServices.RuntimeHelpers"
let
ExtraTopLevelOperatorsName
=
FSharpLib
.
Root
+
".Core.ExtraTopLevelOperators"
let
NativeInteropName
=
FSharpLib
.
Root
+
".NativeInterop"
let
QuotationsName
=
FSharpLib
.
Root
+
".Quotations"
let
ControlPath
=
splitNamespace
ControlName
let
LinqPath
=
splitNamespace
LinqName
let
CollectionsPath
=
splitNamespace
CollectionsName
let
NativeInteropPath
=
splitNamespace
NativeInteropName
|>
Array
.
ofList
let
CompilerServicesPath
=
splitNamespace
CompilerServicesName
|>
Array
.
ofList
let
LinqRuntimeHelpersPath
=
splitNamespace
LinqRuntimeHelpersName
|>
Array
.
ofList
let
RuntimeHelpersPath
=
splitNamespace
RuntimeHelpersName
|>
Array
.
ofList
let
QuotationsPath
=
splitNamespace
QuotationsName
|>
Array
.
ofList
let
RootPathArray
=
FSharpLib
.
RootPath
|>
Array
.
ofList
let
CorePathArray
=
FSharpLib
.
CorePath
|>
Array
.
ofList
let
LinqPathArray
=
LinqPath
|>
Array
.
ofList
let
ControlPathArray
=
ControlPath
|>
Array
.
ofList
let
CollectionsPathArray
=
CollectionsPath
|>
Array
.
ofList
let
Root
=
"Microsoft.FSharp"
let
RootPath
=
splitNamespace
Root
let
Core
=
Root
+
".Core"
let
CorePath
=
splitNamespace
Core
let
CoreOperatorsCheckedName
=
Root
+
".Core.Operators.Checked"
let
ControlName
=
Root
+
".Control"
let
LinqName
=
Root
+
".Linq"
let
CollectionsName
=
Root
+
".Collections"
let
LanguagePrimitivesName
=
Root
+
".Core.LanguagePrimitives"
let
CompilerServicesName
=
Root
+
".Core.CompilerServices"
let
LinqRuntimeHelpersName
=
Root
+
".Linq.RuntimeHelpers"
let
RuntimeHelpersName
=
Root
+
".Core.CompilerServices.RuntimeHelpers"
let
ExtraTopLevelOperatorsName
=
Root
+
".Core.ExtraTopLevelOperators"
let
NativeInteropName
=
Root
+
".NativeInterop"
let
QuotationsName
=
Root
+
".Quotations"
let
ControlPath
=
splitNamespace
ControlName
let
LinqPath
=
splitNamespace
LinqName
let
CollectionsPath
=
splitNamespace
CollectionsName
let
NativeInteropPath
=
splitNamespace
NativeInteropName
|>
Array
.
ofList
let
CompilerServicesPath
=
splitNamespace
CompilerServicesName
|>
Array
.
ofList
let
LinqRuntimeHelpersPath
=
splitNamespace
LinqRuntimeHelpersName
|>
Array
.
ofList
let
RuntimeHelpersPath
=
splitNamespace
RuntimeHelpersName
|>
Array
.
ofList
let
QuotationsPath
=
splitNamespace
QuotationsName
|>
Array
.
ofList
let
RootPathArray
=
RootPath
|>
Array
.
ofList
let
CorePathArray
=
CorePath
|>
Array
.
ofList
let
LinqPathArray
=
LinqPath
|>
Array
.
ofList
let
ControlPathArray
=
ControlPath
|>
Array
.
ofList
let
CollectionsPathArray
=
CollectionsPath
|>
Array
.
ofList
//-------------------------------------------------------------------------
// Access the initial environment: helpers to build references
...
...
@@ -90,13 +94,13 @@ let private mkNonGenericTy tcref = TType_app(tcref, [], v_knownWithoutNull)
let
mkNonLocalTyconRef2
ccu
path
n
=
mkNonLocalTyconRef
(
mkNonLocalEntityRef
ccu
path
)
n
let
mk_MFCore_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
CorePathArray
n
let
mk_MFQuotations_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
QuotationsPath
n
let
mk_MFCore_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
CorePathArray
n
let
mk_MFQuotations_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
QuotationsPath
n
let
mk_MFLinq_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
LinqPathArray
n
let
mk_MFCollections_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
CollectionsPathArray
n
let
mk_MFCompilerServices_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
CompilerServicesPath
n
let
mk_MFRuntimeHelpers_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
RuntimeHelpersPath
n
let
mk_MFControl_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
FSharpLib
.
ControlPathArray
n
let
mk_MFCollections_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
CollectionsPathArray
n
let
mk_MFCompilerServices_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
CompilerServicesPath
n
let
mk_MFRuntimeHelpers_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
RuntimeHelpersPath
n
let
mk_MFControl_tcref
ccu
n
=
mkNonLocalTyconRef2
ccu
ControlPathArray
n
type
...
...
@@ -456,14 +460,14 @@ type TcGlobals(
let
v_nil_ucref
=
mkUnionCaseRef
v_list_tcr_canon
"op_Nil"
let
fslib_MF_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
RootPathArray
let
fslib_MFCore_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
CorePathArray
let
fslib_MFLinq_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
LinqPathArray
let
fslib_MFCollections_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
CollectionsPathArray
let
fslib_MFCompilerServices_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
CompilerServicesPath
let
fslib_MFLinqRuntimeHelpers_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
LinqRuntimeHelpersPath
let
fslib_MFControl_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
ControlPathArray
let
fslib_MFNativeInterop_nleref
=
mkNonLocalEntityRef
fslibCcu
FSharpLib
.
NativeInteropPath
let
fslib_MF_nleref
=
mkNonLocalEntityRef
fslibCcu
RootPathArray
let
fslib_MFCore_nleref
=
mkNonLocalEntityRef
fslibCcu
CorePathArray
let
fslib_MFLinq_nleref
=
mkNonLocalEntityRef
fslibCcu
LinqPathArray
let
fslib_MFCollections_nleref
=
mkNonLocalEntityRef
fslibCcu
CollectionsPathArray
let
fslib_MFCompilerServices_nleref
=
mkNonLocalEntityRef
fslibCcu
CompilerServicesPath
let
fslib_MFLinqRuntimeHelpers_nleref
=
mkNonLocalEntityRef
fslibCcu
LinqRuntimeHelpersPath
let
fslib_MFControl_nleref
=
mkNonLocalEntityRef
fslibCcu
ControlPathArray
let
fslib_MFNativeInterop_nleref
=
mkNonLocalEntityRef
fslibCcu
NativeInteropPath
let
fslib_MFLanguagePrimitives_nleref
=
mkNestedNonLocalEntityRef
fslib_MFCore_nleref
"LanguagePrimitives"
let
fslib_MFIntrinsicOperators_nleref
=
mkNestedNonLocalEntityRef
fslib_MFLanguagePrimitives_nleref
"IntrinsicOperators"
...
...
@@ -587,10 +591,10 @@ type TcGlobals(
|
None
->
TType_app
(
tcref
,
l
,
v_knownWithoutNull
)
let
mk_MFCore_attrib
nm
:
BuiltinAttribInfo
=
AttribInfo
(
mkILTyRef
(
ilg
.
fsharpCoreAssemblyScopeRef
,
FSharpLib
.
Core
+
"."
+
nm
),
mk_MFCore_tcref
fslibCcu
nm
)
AttribInfo
(
mkILTyRef
(
ilg
.
fsharpCoreAssemblyScopeRef
,
Core
+
"."
+
nm
),
mk_MFCore_tcref
fslibCcu
nm
)
let
mk_MFCompilerServices_attrib
nm
:
BuiltinAttribInfo
=
AttribInfo
(
mkILTyRef
(
ilg
.
fsharpCoreAssemblyScopeRef
,
FSharpLib
.
Core
+
"."
+
nm
),
mk_MFCompilerServices_tcref
fslibCcu
nm
)
AttribInfo
(
mkILTyRef
(
ilg
.
fsharpCoreAssemblyScopeRef
,
Core
+
"."
+
nm
),
mk_MFCompilerServices_tcref
fslibCcu
nm
)
let
mkSourceDoc
fileName
=
ILSourceDocument
.
Create
(
language
=
None
,
vendor
=
None
,
documentType
=
None
,
file
=
fileName
)
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录