Skip to content

Commit 8797a81

Browse files
committed
integrate cleanup with fsharp4 (2)
1 parent 31777c7 commit 8797a81

6 files changed

Lines changed: 10 additions & 10 deletions

File tree

src/fsharp/CompileOps.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3605,7 +3605,7 @@ type TcImports(tcConfigP:TcConfigProvider, initialResolutions:TcAssemblyResoluti
36053605
ILScopeRef = ilScopeRef;
36063606
ILAssemblyRefs = ilAssemblyRefs }
36073607
tcImports.RegisterDll(dllinfo);
3608-
let ccuData =
3608+
let ccuData : CcuData =
36093609
{ IsFSharp=false;
36103610
UsesFSharp20PlusQuotations=false;
36113611
InvalidateEvent=(new Event<_>()).Publish

src/fsharp/TastOps.fsi

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1212,13 +1212,13 @@ val TryFindFSharpInt32Attribute : TcGlobals -> BuiltinAttribInfo -> Attribs -
12121212
/// Try to find a specific attribute on a type definition, where the attribute accepts a string argument.
12131213
///
12141214
/// This is used to detect the 'DefaultMemberAttribute' and 'ConditionalAttribute' attributes (on type definitions)
1215-
val TryFindTyconRefStringAttribute : TcGlobals -> range -> Env.BuiltinAttribInfo -> TyconRef -> string option
1215+
val TryFindTyconRefStringAttribute : TcGlobals -> range -> BuiltinAttribInfo -> TyconRef -> string option
12161216

12171217
/// Try to find a specific attribute on a type definition, where the attribute accepts a bool argument.
1218-
val TryFindTyconRefBoolAttribute : TcGlobals -> range -> Env.BuiltinAttribInfo -> TyconRef -> bool option
1218+
val TryFindTyconRefBoolAttribute : TcGlobals -> range -> BuiltinAttribInfo -> TyconRef -> bool option
12191219

12201220
/// Try to find a specific attribute on a type definition
1221-
val TyconRefHasAttribute : TcGlobals -> range -> Env.BuiltinAttribInfo -> TyconRef -> bool
1221+
val TyconRefHasAttribute : TcGlobals -> range -> BuiltinAttribInfo -> TyconRef -> bool
12221222

12231223
/// Try to find the AttributeUsage attribute, looking for the value of the AllowMultiple named parameter
12241224
val TryFindAttributeUsageAttribute : TcGlobals -> range -> TyconRef -> bool option

src/fsharp/TypeRelations.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ open Microsoft.FSharp.Compiler.Lib
2525
open Microsoft.FSharp.Compiler.Infos
2626
open Microsoft.FSharp.Compiler.PrettyNaming
2727
open Microsoft.FSharp.Compiler.Infos.AccessibilityLogic
28-
open Microsoft.FSharp.Compiler.Nameres
28+
open Microsoft.FSharp.Compiler.NameResolution
2929

3030
#if EXTENSIONTYPING
3131
open Microsoft.FSharp.Compiler.ExtensionTyping
@@ -1649,7 +1649,7 @@ let MakeCalledArgs amap m (minfo:MethInfo) minst =
16491649
/// and returns a CalledMeth object for further analysis.
16501650
type CalledMeth<'T>
16511651
(infoReader:InfoReader,
1652-
nameEnv: Microsoft.FSharp.Compiler.Nameres.NameResolutionEnv option,
1652+
nameEnv: NameResolutionEnv option,
16531653
isCheckingAttributeCall,
16541654
freshenMethInfo,// a function to help generate fresh type variables the property setters methods in generic classes
16551655
m,

src/fsharp/autobox.fs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -10,8 +10,8 @@ open Microsoft.FSharp.Compiler.ErrorLogger
1010
open Microsoft.FSharp.Compiler.Tast
1111
open Microsoft.FSharp.Compiler.Tastops
1212
open Microsoft.FSharp.Compiler.Lib
13-
open Microsoft.FSharp.Compiler.Env
14-
open Microsoft.FSharp.Compiler.Typrelns
13+
open Microsoft.FSharp.Compiler.TcGlobals
14+
open Microsoft.FSharp.Compiler.TypeRelations
1515

1616
//----------------------------------------------------------------------------
1717
// Decide the set of mutable locals to promote to heap-allocated reference cells

src/fsharp/fsc.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -495,7 +495,7 @@ let ProcessCommandLineArgsAndImportAssemblies
495495

496496
module InterfaceFileWriter =
497497

498-
let BuildInitialDisplayEnvForDocGeneration tcGlobals =
498+
let BuildInitialDisplayEnvForSigFileGeneration tcGlobals =
499499
let denv = DisplayEnv.Empty tcGlobals
500500
let denv =
501501
{ denv with

src/fsharp/fsi/fsi.fs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -229,7 +229,7 @@ type internal FsiValuePrinter(ilGlobals, generateDebugInfo, resolvePath, outWrit
229229
Layout.wordL ""
230230

231231
/// Display the signature of an F# value declaration, along with its actual value.
232-
member valuePrinter.InvokeDeclLayout (emEnv, ilxGenerator: IlxGen.IlxAssemblyGenerator, v:Val) =
232+
member valuePrinter.InvokeDeclLayout (emEnv, ilxGenerator: IlxAssemblyGenerator, v:Val) =
233233
// Implemented via a lookup from v to a concrete (System.Object,System.Type).
234234
// This (obj,objTy) pair can then be fed to the fsi value printer.
235235
// Note: The value may be (null:Object).

0 commit comments

Comments
 (0)