@@ -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 ->
0 commit comments