Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
d0ad1d31
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,发现更多精彩内容 >>
未验证
提交
d0ad1d31
编写于
5月 29, 2020
作者:
S
Steffen Forkmann
提交者:
GitHub
5月 29, 2020
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Use IsNil instead of .Length (#9337)
上级
7dcfeee5
变更
4
隐藏空白更改
内联
并排
Showing
4 changed file
with
5 addition
and
5 deletion
+5
-5
src/fsharp/IlxGen.fs
src/fsharp/IlxGen.fs
+1
-1
src/fsharp/TypedTreeOps.fs
src/fsharp/TypedTreeOps.fs
+2
-2
src/fsharp/fsi/fsi.fs
src/fsharp/fsi/fsi.fs
+1
-1
src/fsharp/service/ServiceAnalysis.fs
src/fsharp/service/ServiceAnalysis.fs
+1
-1
未找到文件。
src/fsharp/IlxGen.fs
浏览文件 @
d0ad1d31
...
...
@@ -7645,7 +7645,7 @@ let CodegenAssembly cenv eenv mgbuf fileImpls =
// top-level initialization code.
let
extraBindings
=
mgbuf
.
GrabExtraBindingsToGenerate
()
//printfn "#extraBindings = %d" extraBindings.Length
if
extraBindings
.
Length
>
0
then
if
not
(
isNil
extraBindings
)
then
let
mexpr
=
TMDefs
[
for
b
in
extraBindings
->
TMDefLet
(
b
,
range0
)
]
let
_
emptyTopInstrs
,
_
emptyTopCode
=
CodeGenMethod
cenv
mgbuf
([],
"unused"
,
eenv
,
0
,
(
fun
cgbuf
eenv
->
...
...
src/fsharp/TypedTreeOps.fs
浏览文件 @
d0ad1d31
...
...
@@ -3887,8 +3887,8 @@ module DebugPrint =
and
appL
g
flayout
tys
args
=
let
z
=
flayout
let
z
=
if
tys
.
Length
>
0
then
z
^^
instL
typeL
tys
else
z
let
z
=
if
args
.
Length
>
0
then
z
---
spaceListL
(
List
.
map
(
atomL
g
)
args
)
else
z
let
z
=
if
isNil
tys
then
z
else
z
^^
instL
typeL
tys
let
z
=
if
isNil
args
then
z
else
z
---
spaceListL
(
List
.
map
(
atomL
g
)
args
)
z
and
implFileL
g
(
TImplFile
(_,
_,
mexpr
,
_,
_,
_))
=
...
...
src/fsharp/fsi/fsi.fs
浏览文件 @
d0ad1d31
...
...
@@ -1479,7 +1479,7 @@ type internal FsiDynamicCompiler
for
folder
in
result
.
Roots
do
tcConfigB
.
AddIncludePath
(
m
,
folder
,
""
)
let
scripts
=
result
.
SourceFiles
|>
Seq
.
toList
if
scripts
|>
Seq
.
length
>
0
then
if
not
(
isNil
scripts
)
then
fsiDynamicCompiler
.
EvalSourceFiles
(
ctok
,
istate
,
m
,
scripts
,
lexResourceManager
,
errorLogger
)
else
istate
with
_
->
...
...
src/fsharp/service/ServiceAnalysis.fs
浏览文件 @
d0ad1d31
...
...
@@ -181,7 +181,7 @@ module UnusedOpens =
|
true
,
scopes
->
openStatement
.
AppliedScope
::
scopes
|
_
->
[
openStatement
.
AppliedScope
]
usedModules
.[
openedModule
.
Entity
]
<-
scopes
n
ewlyOpenedModules
.
Length
>
0
n
ot
(
isNil
newlyOpenedModules
)
/// Incrementally filter out the open statements one by one. Filter those whose contents are referred to somewhere in the symbol uses.
/// Async to allow cancellation.
...
...
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录