Skip to content
体验新版
项目
组织
正在加载...
登录
切换导航
打开侧边栏
dotNET Platform
fsharp
提交
3d5e7007
F
fsharp
项目概览
dotNET Platform
/
fsharp
9 个月 前同步成功
通知
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,体验更适合开发者的 AI 搜索 >>
未验证
提交
3d5e7007
编写于
9月 01, 2023
作者:
E
Eugene Auduchinok
提交者:
GitHub
9月 01, 2023
浏览文件
操作
浏览文件
下载
电子邮件补丁
差异文件
Parser: fix tree for missing item in top tuple type (#15909)
上级
d1ed6306
变更
5
隐藏空白更改
内联
并排
Showing
5 changed file
with
39 addition
and
2 deletion
+39
-2
src/Compiler/SyntaxTree/SyntaxTreeOps.fs
src/Compiler/SyntaxTree/SyntaxTreeOps.fs
+2
-0
src/Compiler/SyntaxTree/SyntaxTreeOps.fsi
src/Compiler/SyntaxTree/SyntaxTreeOps.fsi
+2
-0
src/Compiler/pars.fsy
src/Compiler/pars.fsy
+2
-2
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi
+3
-0
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi.bsl
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi.bsl
+30
-0
未找到文件。
src/Compiler/SyntaxTree/SyntaxTreeOps.fs
浏览文件 @
3d5e7007
...
...
@@ -663,6 +663,8 @@ module SynInfo =
let
emptySynValData
=
SynValData
(
None
,
emptySynValInfo
,
None
,
None
)
let
emptySynArgInfo
=
SynArgInfo
([],
false
,
None
)
/// Infer the syntactic information for a 'let' or 'member' definition, based on the argument pattern,
/// any declared return information (e.g. .NET attributes on the return element), and the r.h.s. expression
/// in the case of 'let' definitions.
...
...
src/Compiler/SyntaxTree/SyntaxTreeOps.fsi
浏览文件 @
3d5e7007
...
...
@@ -257,6 +257,8 @@ module SynInfo =
val
emptySynValData
:
SynValData
val
emptySynArgInfo
:
SynArgInfo
/// Infer the syntactic information for a 'let' or 'member' definition, based on the argument pattern,
/// any declared return information (e.g. .NET attributes on the return element), and the r.h.s. expression
/// in the case of 'let' definitions.
...
...
src/Compiler/pars.fsy
浏览文件 @
3d5e7007
...
...
@@ -5690,7 +5690,7 @@ topTupleType:
let mStar = rhs parseState 2
let ty2 = SynType.FromParseError(mStar.EndRange)
let path = [SynTupleTypeSegment.Type ty1; SynTupleTypeSegment.Star mStar; SynTupleTypeSegment.Type ty2]
mkSynTypeTuple path, [argInfo] }
mkSynTypeTuple path, [argInfo
; SynInfo.emptySynArgInfo
] }
| STAR topTupleTypeElements
{ let mStar = rhs parseState 1
...
...
@@ -5713,7 +5713,7 @@ topTupleTypeElements:
{ let ty1, argInfo = $1
let mStar = rhs parseState 2
let ty2 = SynType.FromParseError(mStar.EndRange)
[
(SynTupleTypeSegment.Type ty1, Some argInfo); (SynTupleTypeSegment.Star mStar, None); (SynTupleTypeSegment.Type ty2, None)
] }
[
SynTupleTypeSegment.Type ty1, Some argInfo; SynTupleTypeSegment.Star mStar, None; SynTupleTypeSegment.Type ty2, Some SynInfo.emptySynArgInfo
] }
| STAR topTupleTypeElements
{ let mStar = rhs parseState 1
...
...
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi
0 → 100644
浏览文件 @
3d5e7007
module
Module
val
f
:
int
*
->
unit
tests/service/data/SyntaxTree/ModuleMember/Val 01.fsi.bsl
0 → 100644
浏览文件 @
3d5e7007
SigFile
(
ParsedSigFileInput
(
"/root/ModuleMember/Val 01.fsi"
,
QualifiedNameOfFile
Module
,
[],
[],
[
SynModuleOrNamespaceSig
([
Module
],
false
,
NamedModule
,
[
Val
(
SynValSig
([],
SynIdent
(
f
,
None
),
SynValTyparDecls
(
None
,
true
),
Fun
(
Tuple
(
false
,
[
Type
(
LongIdent
(
SynLongIdent
([
int
],
[],
[
None
])));
Star
(
3
,
11
--
3
,
12
);
Type
(
FromParseError
(
3
,
12
--
3
,
12
))],
(
3
,
7
--
3
,
12
)),
LongIdent
(
SynLongIdent
([
unit
],
[],
[
None
])),
(
3
,
7
--
3
,
20
),
{
ArrowRange
=
(
3
,
13
--
3
,
15
)
}
),
SynValInfo
([[
SynArgInfo
([],
false
,
None
);
SynArgInfo
([],
false
,
None
)]],
SynArgInfo
([],
false
,
None
)),
false
,
false
,
PreXmlDoc
((
3
,
0
),
FSharp
.
Compiler
.
Xml
.
XmlDocCollector
),
None
,
None
,
(
3
,
0
--
3
,
20
),
{
LeadingKeyword
=
Val
(
3
,
0
--
3
,
3
)
InlineKeyword
=
None
WithKeyword
=
None
EqualsRange
=
None
}
),
(
3
,
0
--
3
,
20
))],
PreXmlDoc
((
1
,
0
),
FSharp
.
Compiler
.
Xml
.
XmlDocCollector
),
[],
None
,
(
1
,
0
--
3
,
20
),
{
LeadingKeyword
=
Module
(
1
,
0
--
1
,
6
)
}
)],
{
ConditionalDirectives
=
[]
CodeComments
=
[]
}
,
set
[]))
(
3
,
13
)
-
(
3
,
15
)
parse
error
Unexpected
symbol
'->'
in
value
signature
编辑
预览
Markdown
is supported
0%
请重试
或
添加新附件
.
添加附件
取消
You are about to add
0
people
to the discussion. Proceed with caution.
先完成此消息的编辑!
取消
想要评论请
注册
或
登录