未验证 提交 db5aca9d 编写于 作者: V Vlad Zarytovskii 提交者: GitHub

Added assembly info in the decompiled source (#14935)

上级 3c5e338f
......@@ -887,6 +887,20 @@ type FSharpEntity(cenv: SymbolEnv, entity: EntityRef) =
let infoReader = cenv.infoReader
let assemblyInfoL =
Layout.aboveListL
[
(Layout.(^^)
(Layout.wordL (TaggedText.tagUnknownEntity "// "))
(Layout.wordL (TaggedText.tagUnknownEntity this.Assembly.QualifiedName)))
match this.Assembly.FileName with
| Some fn ->
(Layout.(^^)
(Layout.wordL (TaggedText.tagUnknownEntity "// "))
(Layout.wordL (TaggedText.tagUnknownEntity fn)))
| None -> Layout.emptyL
]
let openPathL =
extraOpenPath
|> List.map (fun x -> Layout.wordL (TaggedText.tagUnknownEntity x))
......@@ -920,7 +934,8 @@ type FSharpEntity(cenv: SymbolEnv, entity: EntityRef) =
pathL
Layout.aboveListL
[
[
(Layout.(^^) assemblyInfoL (Layout.sepL TaggedText.lineBreak))
(Layout.(^^) headerL (Layout.sepL TaggedText.lineBreak))
(Layout.(^^) openL (Layout.sepL TaggedText.lineBreak))
(NicePrint.layoutEntityDefn denv infoReader AccessibleFromSomewhere range0 entity)
......
Markdown is supported
0% .
You are about to add 0 people to the discussion. Proceed with caution.
先完成此消息的编辑!
想要评论请 注册