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

Commit613b810

Browse files
authored
Merge pull requestdotnet#5000 from Microsoft/merges/master-to-dev15.8
Merge master to dev15.8
2 parents6a73326 +d0d5da1 commit613b810

File tree

55 files changed

+1847
-1474
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

55 files changed

+1847
-1474
lines changed

‎src/buildfromsource/FSharp.Compiler.Private/FSComp.fs‎

Lines changed: 1401 additions & 1397 deletions
Large diffs are not rendered by default.

‎src/buildfromsource/FSharp.Compiler.Private/FSComp.resx‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -4152,6 +4152,9 @@
41524152
<dataname="keywordDescriptionMatch"xml:space="preserve">
41534153
<value>Used to branch by comparing a value to a pattern.</value>
41544154
</data>
4155+
<dataname="keywordDescriptionMatchBang"xml:space="preserve">
4156+
<value>Used in computation expressions to pattern match directly over the result of another computation expression.</value>
4157+
</data>
41554158
<dataname="keywordDescriptionMember"xml:space="preserve">
41564159
<value>Used to declare a property or method in an object type.</value>
41574160
</data>

‎src/fsharp/CompileOps.fs‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1031,6 +1031,7 @@ let OutputPhasedErrorR (os:StringBuilder) (err:PhasedDiagnostic) =
10311031
| Parser.TOKEN_LAZY-> getErrorString("Parser.TOKEN.LAZY")
10321032
| Parser.TOKEN_OLAZY-> getErrorString("Parser.TOKEN.LAZY")
10331033
| Parser.TOKEN_MATCH-> getErrorString("Parser.TOKEN.MATCH")
1034+
| Parser.TOKEN_MATCH_BANG-> getErrorString("Parser.TOKEN.MATCH.BANG")
10341035
| Parser.TOKEN_MUTABLE-> getErrorString("Parser.TOKEN.MUTABLE")
10351036
| Parser.TOKEN_NEW-> getErrorString("Parser.TOKEN.NEW")
10361037
| Parser.TOKEN_OF-> getErrorString("Parser.TOKEN.OF")

‎src/fsharp/FSComp.txt‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1372,6 +1372,7 @@ keywordDescriptionLazy,"Used to specify a computation that is to be performed on
13721372
keywordDescriptionLet,"Used to associate, or bind, a name to a value or function."
13731373
keywordDescriptionLetBang,"Used in asynchronous workflows to bind a name to the result of an asynchronous computation, or, in other computation expressions, used to bind a name to a result, which is of the computation type."
13741374
keywordDescriptionMatch,"Used to branch by comparing a value to a pattern."
1375+
keywordDescriptionMatchBang,"Used in computation expressions to pattern match directly over the result of another computation expression."
13751376
keywordDescriptionMember,"Used to declare a property or method in an object type."
13761377
keywordDescriptionModule,"Used to associate a name with a group of related types, values, and functions, to logically separate it from other code."
13771378
keywordDescriptionMutable,"Used to declare a variable, that is, a value that can be changed."

‎src/fsharp/FSStrings.resx‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -594,6 +594,9 @@
594594
<dataname="Parser.TOKEN.MATCH"xml:space="preserve">
595595
<value>keyword 'match'</value>
596596
</data>
597+
<dataname="Parser.TOKEN.MATCH.BANG"xml:space="preserve">
598+
<value>keyword 'match!'</value>
599+
</data>
597600
<dataname="Parser.TOKEN.MUTABLE"xml:space="preserve">
598601
<value>keyword 'mutable'</value>
599602
</data>

‎src/fsharp/FSharp.Build/Microsoft.FSharp.NetSdk.props‎

Lines changed: 28 additions & 9 deletions
Original file line numberDiff line numberDiff line change
@@ -32,8 +32,6 @@ WARNING: DO NOT MODIFY this file unless you are knowledgeable about MSBuild and
3232
<PropertyGroup>
3333
<EnableDefaultCompileItemsCondition=" '$(EnableDefaultCompileItems)' == ''">false</EnableDefaultCompileItems><!--- Do not glob F# source files-->
3434
<EnableDefaultNoneItemsCondition=" '$(EnableDefaultNoneItems)' == ''">false</EnableDefaultNoneItems>
35-
<DefaultValueTuplePackageVersion>4.3.1</DefaultValueTuplePackageVersion>
36-
<DefaultFSharpPackageVersion>4.3.4</DefaultFSharpPackageVersion>
3735
</PropertyGroup>
3836

3937
<PropertyGroup>
@@ -67,14 +65,35 @@ WARNING: DO NOT MODIFY this file unless you are knowledgeable about MSBuild and
6765
<FscToolExeCondition="'$(OS)' == 'Unix' and '$(FscToolExe)' == ''">RunFsc.sh</FscToolExe>
6866
</PropertyGroup>
6967

70-
<ItemGroup>
71-
<PackageReferenceInclude="System.ValueTuple"Version="$(DefaultValueTuplePackageVersion)" >
72-
<DefaultInclude>true</DefaultInclude>
73-
</PackageReference>
68+
<ItemGroupCondition="'$(DisableImplicitSystemValueTupleReference)' != 'true'
69+
and ('$(TargetFrameworkIdentifier)' == '.NETStandard' or '$(TargetFrameworkIdentifier)' == '.NETCoreApp')
70+
and !('$(_TargetFrameworkVersionWithoutV)' >= '2.0' )">
71+
<PackageReferenceInclude="System.ValueTuple"Version="$(ValueTupleImplicitPackageVersion)" />
72+
</ItemGroup>
73+
74+
<PropertyGroup>
75+
<DefaultValueTuplePackageVersion>4.3.1</DefaultValueTuplePackageVersion>
76+
<DefaultFSharpCorePackageVersion>4.3.4</DefaultFSharpCorePackageVersion>
77+
<ValueTupleImplicitPackageVersion>$(DefaultValueTuplePackageVersion)</ValueTupleImplicitPackageVersion>
78+
<FSharpCoreImplicitPackageVersion>$(DefaultFSharpCorePackageVersion)</FSharpCoreImplicitPackageVersion>
79+
</PropertyGroup>
80+
81+
<ItemGroupCondition="'$(DisableImplicitSystemValueTupleReference)' != 'true'
82+
and ('$(TargetFrameworkIdentifier)' == '.NETFramework'
83+
and ('$(_TargetFrameworkVersionWithoutV)' == ''
84+
or '$(_TargetFrameworkVersionWithoutV)' == '4.0' or
85+
'$(_TargetFrameworkVersionWithoutV)' == '4.5' or
86+
'$(_TargetFrameworkVersionWithoutV)' == '4.5.1' or
87+
'$(_TargetFrameworkVersionWithoutV)' == '4.5.2' or
88+
'$(_TargetFrameworkVersionWithoutV)' == '4.6' or
89+
'$(_TargetFrameworkVersionWithoutV)' == '4.6.1' or
90+
'$(_TargetFrameworkVersionWithoutV)' == '4.6.2' or
91+
'$(_TargetFrameworkVersionWithoutV)' == '4.7'))">
92+
<PackageReferenceInclude="System.ValueTuple"Version="$(ValueTupleImplicitPackageVersion)" />
93+
</ItemGroup>
7494

75-
<PackageReferenceInclude="FSharp.Core"Version="$(DefaultFSharpPackageVersion)">
76-
<DefaultInclude>true</DefaultInclude>
77-
</PackageReference>
95+
<ItemGroupCondition="'$(DisableImplicitFSharpCoreReference)' != 'true'">
96+
<PackageReferenceInclude="FSharp.Core"Version="$(FSharpCoreImplicitPackageVersion)" />
7897
</ItemGroup>
7998

8099
</Project>

‎src/fsharp/FSharp.Build/Microsoft.FSharp.NetSdk.targets‎

Lines changed: 0 additions & 55 deletions
Original file line numberDiff line numberDiff line change
@@ -35,11 +35,6 @@ WARNING: DO NOT MODIFY this file unless you are knowledgeable about MSBuild and
3535
<_ExplicitReferenceInclude="$(FrameworkPathOverride)\mscorlib.dll"Condition=" '$(NoStdLib)' != 'true'" />
3636
</ItemGroup>
3737

38-
<PropertyGroup>
39-
<_TargetFrameworkVersionWithoutV>$(TargetFrameworkVersion)</_TargetFrameworkVersionWithoutV>
40-
<_TargetFrameworkVersionWithoutVCondition="$(TargetFrameworkVersion.StartsWith('v'))">$(TargetFrameworkVersion.Substring(1))</_TargetFrameworkVersionWithoutV>
41-
</PropertyGroup>
42-
4338
<PropertyGroup>
4439
<TargetProfileCondition=" '$(TargetFrameworkIdentifier)' == '.NETFramework'" >mscorlib</TargetProfile>
4540
<TargetProfileCondition=" '$(TargetFrameworkIdentifier)' != '.NETFramework'" >netcore</TargetProfile>
@@ -53,60 +48,10 @@ WARNING: DO NOT MODIFY this file unless you are knowledgeable about MSBuild and
5348
<PackProjectInputFile>$(MSBuildProjectFullPath)</PackProjectInputFile>
5449
</PropertyGroup>
5550

56-
<PropertyGroup>
57-
<_FrameworkNeedsValueTupleReferenceCondition=" ('$(TargetFrameworkIdentifier)' == '.NETStandard' or '$(TargetFrameworkIdentifier)' == '.NETCoreApp') and !('$(_TargetFrameworkVersionWithoutV)' >= '2.0')">true</_FrameworkNeedsValueTupleReference>
58-
<_FrameworkNeedsValueTupleReferenceCondition=" '$(TargetFrameworkIdentifier)' == '.NETFramework' and
59-
('$(_TargetFrameworkVersionWithoutV)' == '' or
60-
'$(_TargetFrameworkVersionWithoutV)' == '4.0' or
61-
'$(_TargetFrameworkVersionWithoutV)' == '4.5' or
62-
'$(_TargetFrameworkVersionWithoutV)' == '4.6' or
63-
'$(_TargetFrameworkVersionWithoutV)' == '4.6.1' or
64-
'$(_TargetFrameworkVersionWithoutV)' == '4.6.2' or
65-
'$(_TargetFrameworkVersionWithoutV)' == '4.7')">true</_FrameworkNeedsValueTupleReference>
66-
</PropertyGroup>
67-
6851
<PropertyGroup>
6952
<TargetsForTfmSpecificContentInPackage>$(TargetsForTfmSpecificContentInPackage);PackageFSharpDesignTimeTools</TargetsForTfmSpecificContentInPackage>
7053
</PropertyGroup>
7154

72-
<TargetName="FSharpCorePackageReferences"BeforeTargets="CollectPackageReferences;">
73-
<ItemGroup>
74-
<FSharpCorePackagesInclude="@(PackageReference)"Condition=" '%(Identity)' == 'FSharp.Core'" />
75-
<PackageReferenceUpdate="FSharp.Core"Version="$(FSharpCoreImplicitPackageVersion)"
76-
Condition=" ('%(PackageReference.Identity)' == 'FSharp.Core')
77-
and ('%(PackageReference.Version)' == '$(DefaultFSharpPackageVersion)')
78-
and ('%(PackageReference.DefaultInclude)' == 'true')
79-
and ('$(DisableImplicitFSharpCoreReference)' != 'true')
80-
and ('$(FSharpCoreImplicitPackageVersion)' != '')
81-
and (@(FSharpCorePackages->Count()) == 1)" />
82-
<PackageReferenceRemove="FSharp.Core"
83-
Condition=" (('$(DisableImplicitFSharpCoreReference)' == 'true') or (@(FSharpCorePackages->Count())&gt; 1))
84-
and ('%(PackageReference.Identity)' == 'FSharp.Core')
85-
and ('%(PackageReference.Version)' == '$(DefaultFSharpPackageVersion)')
86-
and ('%(PackageReference.DefaultInclude)' == 'true')" />
87-
</ItemGroup>
88-
</Target>
89-
90-
<TargetName="ValueTuplePackageReferences"BeforeTargets="CollectPackageReferences;">
91-
<MessageText="PackageReferences: ValueTuplePackageReferences start : @(PackageReference)" />
92-
<ItemGroup>
93-
<ValueTuplePackagesInclude="@(PackageReference)"Condition=" '%(Identity)' == 'System.ValueTuple'" />
94-
<PackageReferenceUpdate="System.ValueTuple"Version="$(ValueTupleImplicitPackageVersion)"
95-
Condition=" ('%(PackageReference.Identity)' == 'System.ValueTuple')
96-
and ('%(PackageReference.Version)' == '$(DefaultValueTuplePackageVersion)')
97-
and ('%(PackageReference.DefaultInclude)' == 'true')
98-
and ('$(ValueTupleImplicitPackageVersion)' != '')
99-
and ('$(DisableImplicitSystemValueTupleReference)' != 'true')
100-
and ('$(_FrameworkNeedsValueTupleReference)' == 'true')
101-
and (@(ValueTuplePackages->Count()) == 1)" />
102-
<PackageReferenceRemove="System.ValueTuple"
103-
Condition=" ( ('$(DisableImplicitSystemValueTupleReference)' == 'true') or ('$(_FrameworkNeedsValueTupleReference)' != 'true') or (@(ValueTuplePackages->Count())&gt; 1) )
104-
and ('%(PackageReference.Identity)' == 'System.ValueTuple')
105-
and ('%(PackageReference.Version)' == '$(DefaultValueTuplePackageVersion)')
106-
and ('%(PackageReference.DefaultInclude)' == 'true')" />
107-
</ItemGroup>
108-
</Target>
109-
11055
<TargetName="PackageFSharpDesignTimeTools"DependsOnTargets="_GetFrameworkAssemblyReferences">
11156
<PropertyGroup>
11257
<FSharpDesignTimeProtocol Condition =" '$(FSharpDesignTimeProtocol)' == ''">fsharp41</FSharpDesignTimeProtocol>

‎src/fsharp/LexFilter.fs‎

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1051,7 +1051,7 @@ type LexFilterImpl (lightSyntaxStatus:LightSyntaxStatus, compilingFsLib, lexer,
10511051
| Parser.EOF_->false
10521052
|_->
10531053
not(isSameLine())||
1054-
(match peekNextToken()with TRY| MATCH| IF| LET_| FOR| WHILE->true|_->false)
1054+
(match peekNextToken()with TRY| MATCH|MATCH_BANG|IF| LET_| FOR| WHILE->true|_->false)
10551055

10561056
// Look for '=' or '.Id.id.id = ' after an identifier
10571057
let recisLongIdentEquals token=
@@ -2034,7 +2034,7 @@ type LexFilterImpl (lightSyntaxStatus:LightSyntaxStatus, compilingFsLib, lexer,
20342034
pushCtxt tokenTup(CtxtIf(tokenStartPos))
20352035
returnToken tokenLexbufState token
20362036

2037-
| MATCH,_->
2037+
|(MATCH| MATCH_BANG),_->
20382038
if debugthen dprintf"MATCH, pushing CtxtMatch(%a)\n" outputPos tokenStartPos
20392039
pushCtxt tokenTup(CtxtMatch(tokenStartPos))
20402040
returnToken tokenLexbufState token

‎src/fsharp/TypeChecker.fs‎

Lines changed: 19 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -3457,7 +3457,8 @@ let (|SimpleSemicolonSequence|_|) acceptDeprecated c =
34573457
| SynExpr.Sequential (_, _, e1, e2, _) -> YieldFree e1 && YieldFree e2
34583458
| SynExpr.IfThenElse (_, e2, e3opt, _, _, _, _) -> YieldFree e2 && Option.forall YieldFree e3opt
34593459
| SynExpr.TryWith (e1, _, clauses, _, _, _, _) -> YieldFree e1 && clauses |> List.forall (fun (Clause(_, _, e, _, _)) -> YieldFree e)
3460-
| SynExpr.Match (_, _, clauses, _, _) -> clauses |> List.forall (fun (Clause(_, _, e, _, _)) -> YieldFree e)
3460+
| (SynExpr.Match (_, _, clauses, _, _) | SynExpr.MatchBang (_, _, clauses, _, _)) ->
3461+
clauses |> List.forall (fun (Clause(_, _, e, _, _)) -> YieldFree e)
34613462
| SynExpr.For (_, _, _, _, _, body, _)
34623463
| SynExpr.TryFinally (body, _, _, _, _)
34633464
| SynExpr.LetOrUse (_, _, _, body, _)
@@ -3483,6 +3484,7 @@ let (|SimpleSemicolonSequence|_|) acceptDeprecated c =
34833484
| SynExpr.YieldOrReturn _
34843485
| SynExpr.LetOrUse _
34853486
| SynExpr.Do _
3487+
| SynExpr.MatchBang _
34863488
| SynExpr.LetOrUseBang _
34873489
| SynExpr.ImplicitZero _
34883490
| SynExpr.While _ -> false
@@ -6060,17 +6062,19 @@ and TcExprUndelayed cenv overallTy env tpenv (expr: SynExpr) =
60606062

60616063
| SynExpr.YieldOrReturn ((isTrueYield, _), _, m)
60626064
| SynExpr.YieldOrReturnFrom ((isTrueYield, _), _, m) when isTrueYield ->
6063-
error(Error(FSComp.SR.tcConstructRequiresListArrayOrSequence(), m))
6065+
error(Error(FSComp.SR.tcConstructRequiresListArrayOrSequence(), m))
60646066
| SynExpr.YieldOrReturn ((_, isTrueReturn), _, m)
60656067
| SynExpr.YieldOrReturnFrom ((_, isTrueReturn), _, m) when isTrueReturn ->
6066-
error(Error(FSComp.SR.tcConstructRequiresComputationExpressions(), m))
6068+
error(Error(FSComp.SR.tcConstructRequiresComputationExpressions(), m))
60676069
| SynExpr.YieldOrReturn (_, _, m)
60686070
| SynExpr.YieldOrReturnFrom (_, _, m)
60696071
| SynExpr.ImplicitZero m ->
6070-
error(Error(FSComp.SR.tcConstructRequiresSequenceOrComputations(), m))
6072+
error(Error(FSComp.SR.tcConstructRequiresSequenceOrComputations(), m))
60716073
| SynExpr.DoBang (_, m)
60726074
| SynExpr.LetOrUseBang (_, _, _, _, _, _, m) ->
6073-
error(Error(FSComp.SR.tcConstructRequiresComputationExpression(), m))
6075+
error(Error(FSComp.SR.tcConstructRequiresComputationExpression(), m))
6076+
| SynExpr.MatchBang (_, _, _, _, m) ->
6077+
error(Error(FSComp.SR.tcConstructRequiresComputationExpression(), m))
60746078

60756079
/// Check lambdas as a group, to catch duplicate names in patterns
60766080
and TcIteratedLambdas cenv isFirst (env: TcEnv) overallTy takenNames tpenv e =
@@ -7981,6 +7985,15 @@ and TcComputationExpression cenv env overallTy mWhole interpExpr builderTy tpenv
79817985
let clauses = clauses |> List.map (fun (Clause(pat, cond, innerComp, patm, sp)) -> Clause(pat, cond, transNoQueryOps innerComp, patm, sp))
79827986
Some(translatedCtxt (SynExpr.Match(spMatch, expr, clauses, false, m)))
79837987

7988+
// 'match! expr with pats ...' --> build.Bind(e1, (function pats ...))
7989+
| SynExpr.MatchBang (spMatch, expr, clauses, false, m) ->
7990+
let mMatch = match spMatch with SequencePointAtBinding mMatch -> mMatch | _ -> m
7991+
if isQuery then error(Error(FSComp.SR.tcMatchMayNotBeUsedWithQuery(), mMatch))
7992+
if isNil (TryFindIntrinsicOrExtensionMethInfo cenv env mMatch ad "Bind" builderTy) then error(Error(FSComp.SR.tcRequireBuilderMethod("Bind"), mMatch))
7993+
let clauses = clauses |> List.map (fun (Clause(pat, cond, innerComp, patm, sp)) -> Clause(pat, cond, transNoQueryOps innerComp, patm, sp))
7994+
let consumeExpr = SynExpr.MatchLambda(false, mMatch, clauses, spMatch, mMatch)
7995+
Some(translatedCtxt (mkSynCall "Bind" mMatch [expr; consumeExpr]))
7996+
79847997
| SynExpr.TryWith (innerComp, _mTryToWith, clauses, _mWithToLast, mTryToLast, spTry, _spWith) ->
79857998
let mTry = match spTry with SequencePointAtTry(m) -> m | _ -> mTryToLast
79867999

@@ -8790,6 +8803,7 @@ and TcItemThen cenv overallTy env tpenv (item, mItem, rest, afterResolution) del
87908803
| SynExpr.ImplicitZero _
87918804
| SynExpr.YieldOrReturn _
87928805
| SynExpr.YieldOrReturnFrom _
8806+
| SynExpr.MatchBang _
87938807
| SynExpr.LetOrUseBang _
87948808
| SynExpr.DoBang _
87958809
| SynExpr.TraitCall _

‎src/fsharp/ast.fs‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -692,6 +692,9 @@ and
692692
/// Computation expressions only
693693
| LetOrUseBangofbindSeqPoint:SequencePointInfoForBinding*isUse:bool*isFromSource:bool*SynPat*SynExpr*SynExpr*range:range
694694

695+
/// F# syntax: match! expr with pat1 -> expr | ... | patN -> exprN
696+
| MatchBangofmatchSeqPoint:SequencePointInfoForBinding*expr:SynExpr*clauses:SynMatchClauselist*isExnMatch:bool*range:range(* bool indicates if this is an exception match in a computation expression which throws unmatched exceptions*)
697+
695698
/// F# syntax: do! expr
696699
/// Computation expressions only
697700
| DoBangofexpr:SynExpr*range:range
@@ -779,6 +782,7 @@ and
779782
| SynExpr.YieldOrReturn(range=m)
780783
| SynExpr.YieldOrReturnFrom(range=m)
781784
| SynExpr.LetOrUseBang(range=m)
785+
| SynExpr.MatchBang(range=m)
782786
| SynExpr.DoBang(range=m)
783787
| SynExpr.Fixed(range=m)-> m
784788
| SynExpr.Ident id-> id.idRange
@@ -839,6 +843,7 @@ and
839843
| SynExpr.YieldOrReturn(range=m)
840844
| SynExpr.YieldOrReturnFrom(range=m)
841845
| SynExpr.LetOrUseBang(range=m)
846+
| SynExpr.MatchBang(range=m)
842847
| SynExpr.DoBang(range=m)-> m
843848
| SynExpr.DotGet(expr,_,lidwd,m)->if lidwd.ThereIsAnExtraDotAtTheEndthen unionRanges expr.Range lidwd.RangeSansAnyExtraDotelse m
844849
| SynExpr.LongIdent(_,lidwd,_,_)-> lidwd.RangeSansAnyExtraDot
@@ -901,6 +906,7 @@ and
901906
| SynExpr.YieldOrReturn(range=m)
902907
| SynExpr.YieldOrReturnFrom(range=m)
903908
| SynExpr.LetOrUseBang(range=m)
909+
| SynExpr.MatchBang(range=m)
904910
| SynExpr.DoBang(range=m)-> m
905911
// these are better than just .Range, and also commonly applicable inside queries
906912
| SynExpr.Paren(_,m,_,_)-> m
@@ -2397,6 +2403,8 @@ let rec synExprContainsError inpExpr =
23972403
| SynExpr.DotNamedIndexedPropertySet(e1,_,e2,e3,_)->
23982404
walkExpr e1|| walkExpr e2|| walkExpr e3
23992405

2406+
| SynExpr.MatchBang(_,e,cl,_,_)->
2407+
walkExpr e|| walkMatchClauses cl
24002408
| SynExpr.LetOrUseBang(_,_,_,_,e1,e2,_)->
24012409
walkExpr e1|| walkExpr e2
24022410
walkExpr inpExpr

0 commit comments

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