Movatterモバイル変換

[0]ホーム
URL:

Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly

 Sign up
Appearance settings

Commit45f6878

Browse files
dsymeKevinRansom
authored andcommitted
fix 2401 (#3012)
* fix 2401* fix 2401 - test
1 parent160223f commit45f6878

File tree

5 files changed

+12
-4
lines changed

5 files changed

+12
-4
lines changed

‎src/fsharp/MethodCalls.fs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -144,7 +144,7 @@ let AdjustCalledArgType (infoReader:InfoReader) isConstraint (calledArg: CalledA
144144
// If the called method argument is a delegate type, then the caller may provide a function
145145
letcalledArgTy=
146146
letadjustDelegateTy calledTy=
147-
let(SigOfFunctionForDelegate(_,delArgTys,_,fty))= GetSigOfFunctionForDelegate infoReader calledTy mAccessibleFromSomeFSharpCode
147+
let(SigOfFunctionForDelegate(_,delArgTys,_,fty))= GetSigOfFunctionForDelegate infoReader calledTy mAccessibleFromSomewhere
148148
letdelArgTys=if isNil delArgTysthen[g.unit_ty]else delArgTys
149149
if(fst(stripFunTy g callerArgTy)).Length= delArgTys.Length
150150
then fty
@@ -492,7 +492,7 @@ let ExamineArgumentForLambdaPropagation (infoReader:InfoReader) (arg: AssignedCa
492492
NoInfo// not a function type on the called side - no information
493493
else CalledArgMatchesType(adjustedCalledArgTy)// not a lambda on the caller side - push information from caller to called
494494

495-
letExamineMethodForLambdaPropagation(x:CalledMeth<SynExpr>)=
495+
letExamineMethodForLambdaPropagation(x:CalledMeth<SynExpr>)=
496496
letunnamedInfo= x.AssignedUnnamedArgs|> List.mapSquared(ExamineArgumentForLambdaPropagation x.infoReader)
497497
letnamedInfo= x.AssignedNamedArgs|> List.mapSquared(fun arg->(arg.NamedArgIdOpt.Value, ExamineArgumentForLambdaPropagation x.infoReader arg))
498498
if unnamedInfo|> List.existsSquared(function CallerLambdaHasArgTypes_->true|_->false)||

‎src/fsharp/symbols/SymbolHelpers.fs‎

Lines changed: 0 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1268,7 +1268,6 @@ module internal SymbolHelpers =
12681268

12691269
#endif
12701270

1271-
12721271
/// Get the "F1 Keyword" associated with an item, for looking up documentatio help indexes on the web
12731272
let recGetF1Keyword g item=
12741273

‎src/fsharp/vs/ServiceDeclarationLists.fs‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -333,7 +333,7 @@ module internal DescriptionListsImpl =
333333
[], prettyRetTyL
334334

335335
| Item.DelegateCtor delty->
336-
let(SigOfFunctionForDelegate(_,_,_,fty))= GetSigOfFunctionForDelegate infoReader delty mAccessibleFromSomeFSharpCode
336+
let(SigOfFunctionForDelegate(_,_,_,fty))= GetSigOfFunctionForDelegate infoReader delty mAccessibleFromSomewhere
337337

338338
// No need to pass more generic type information in here since the instanitations have already been applied
339339
let_prettyTyparInst,prettyParams,prettyRetTyL,_prettyConstraintsL= PrettyParamsOfParamDatas g denv item.TyparInst[ParamData(false,false, NotOptional, NoCallerInfo, None, ReflectedArgInfo.None, fty)] delty

‎tests/fsharp/core/internalsvisible/librarycs.cs‎

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -29,3 +29,8 @@ public Class1() { }
2929
publicintPublic;
3030
}
3131
}
32+
namespaceRepro
33+
{
34+
internaldelegatestringD(intx);
35+
internalclassC{publicC(Dd){}}
36+
}

‎tests/fsharp/core/internalsvisible/main.fs‎

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -46,3 +46,7 @@ module internal Repro3737 =
4646
letinternalModuleNormalVal_uses_csInternalType(x:LibraryCS.AInternalClass)=123
4747
letinternalModuleNormalVal_uses_fsInternalType(x:Library.P.InternalClass)=123
4848
letinternalModuleNormalVal_uses_fsInternalObject= Library.P.InternalObject
49+
50+
// https://github.com/Microsoft/visualfsharp/issues/2401
51+
moduleReproFS=
52+
letc=new Repro.C(fun x->"")

0 commit comments

Comments
 (0)
[8]ページ先頭
©2009-2025 Movatter.jp