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

Commite18ca74

Browse files
committed
fix 147
1 parent1251430 commite18ca74

File tree

2 files changed

+11
-0
lines changed

2 files changed

+11
-0
lines changed

‎src/fsharp/tc.fs‎

Lines changed: 8 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -12743,6 +12743,14 @@ module TyconBindingChecking = begin
1274312743
// Post letrec env
1274412744
let envFinal = AddLocalTyconRefs false g cenv.amap scopem tcrefsWithCSharpExtensionMembers envInitial
1274512745
let envFinal = AddLocalVals cenv.tcSink scopem prelimRecValues envFinal
12746+
let envFinal =
12747+
let ctorVals =
12748+
[ for (TyconBindingsPassBGroup(_tcref, defnBs)) in defnsBs do
12749+
for defnB in defnBs do
12750+
match defnB with
12751+
| PassBIncrClassCtor (incrClassCtorLhs, _) -> yield incrClassCtorLhs.InstanceCtorVal
12752+
| _ -> () ]
12753+
AddLocalVals cenv.tcSink scopem ctorVals envFinal
1274612754

1274712755
binds,envFinal,tpenv
1274812756

‎tests/fsharp/typecheck/sigs/build.bat‎

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,9 @@ call %~d0%~p0..\..\..\config.bat
88
"%FSC%" --noframework -r:"%FSCOREDLLPATH%" -r:"%X86_PROGRAMFILES%\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\mscorlib.dll" -r:"%X86_PROGRAMFILES%\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.Core.dll" -r:"%X86_PROGRAMFILES%\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.Data.dll" -r:"%X86_PROGRAMFILES%\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.dll" -r:"%X86_PROGRAMFILES%\Reference Assemblies\Microsoft\Framework\.NETFramework\v4.5\System.Numerics.dll" -a -o:pos21.dll pos21.fs
99
@if ERRORLEVEL1goto Error
1010

11+
call ..\..\single-neg-test.bat neg92
12+
@if ERRORLEVEL1goto Error
13+
1114
call ..\..\single-neg-test.bat neg91
1215
@if ERRORLEVEL1goto Error
1316

0 commit comments

Comments
 (0)

[8]ページ先頭

©2009-2025 Movatter.jp