Skip to content

Commit abdfa4b

Browse files
committed
fixes after integration
1 parent c33102a commit abdfa4b

File tree

2 files changed

+5
-5
lines changed

2 files changed

+5
-5
lines changed

src/fsharp/infos.fs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -2651,7 +2651,7 @@ type AttribInfo =
26512651
let obj = evalFSharpAttribArg g evaluatedExpr
26522652
ty,obj)
26532653
| ILAttribInfo (g, amap, scoref, cattr, m) ->
2654-
let parms, _args = decodeILAttribData g.ilg cattr (Some scoref)
2654+
let parms, _args = decodeILAttribData g.ilg cattr
26552655
[ for (argty,argval) in Seq.zip cattr.Method.FormalArgTypes parms ->
26562656
let ty = ImportType scoref amap m [] argty
26572657
let obj = evalILAttribElem argval
@@ -2666,7 +2666,7 @@ type AttribInfo =
26662666
let obj = evalFSharpAttribArg g evaluatedExpr
26672667
ty, nm, isField, obj)
26682668
| ILAttribInfo (g, amap, scoref, cattr, m) ->
2669-
let _parms, namedArgs = decodeILAttribData g.ilg cattr (Some scoref)
2669+
let _parms, namedArgs = decodeILAttribData g.ilg cattr
26702670
[ for (nm, argty, isProp, argval) in namedArgs ->
26712671
let ty = ImportType scoref amap m [] argty
26722672
let obj = evalILAttribElem argval
@@ -2753,7 +2753,7 @@ module AttributeChecking =
27532753
| None -> None
27542754
#endif
27552755
| ILTypeMetadata (_,tdef) ->
2756-
match TryDecodeILAttribute g atref (Some(atref.Scope)) tdef.CustomAttrs with
2756+
match TryDecodeILAttribute g atref tdef.CustomAttrs with
27572757
| Some attr -> f1 attr
27582758
| _ -> None
27592759
| FSharpOrArrayOrByrefOrTupleOrExnTypeMetadata ->

src/fsharp/vs/Symbols.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1737,8 +1737,8 @@ and FSharpAttribute(cenv: cenv, attrib: AttribInfo) =
17371737
match attrib with
17381738
| AttribInfo.FSAttribInfo(g, attrib) ->
17391739
NicePrint.stringOfFSAttrib (denv.Contents g) attrib
1740-
| AttribInfo.ILAttribInfo (g, _, scoref, cattr, _) ->
1741-
let parms, _args = decodeILAttribData g.ilg cattr (Some scoref)
1740+
| AttribInfo.ILAttribInfo (g, _, _scoref, cattr, _) ->
1741+
let parms, _args = decodeILAttribData g.ilg cattr
17421742
NicePrint.stringOfILAttrib (denv.Contents g) (cattr.Method.EnclosingType, parms)
17431743

17441744
override __.ToString() =

0 commit comments

Comments
 (0)