Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/fsharp/IlxGen.fs
Original file line number Diff line number Diff line change
Expand Up @@ -7645,7 +7645,7 @@ let CodegenAssembly cenv eenv mgbuf fileImpls =
// top-level initialization code.
let extraBindings = mgbuf.GrabExtraBindingsToGenerate()
//printfn "#extraBindings = %d" extraBindings.Length
if extraBindings.Length > 0 then
if not (isNil extraBindings) then
let mexpr = TMDefs [ for b in extraBindings -> TMDefLet(b, range0) ]
let _emptyTopInstrs, _emptyTopCode =
CodeGenMethod cenv mgbuf ([], "unused", eenv, 0, (fun cgbuf eenv ->
Expand Down
4 changes: 2 additions & 2 deletions src/fsharp/TypedTreeOps.fs
Original file line number Diff line number Diff line change
Expand Up @@ -3887,8 +3887,8 @@ module DebugPrint =

and appL g flayout tys args =
let z = flayout
let z = if tys.Length > 0 then z ^^ instL typeL tys else z
let z = if args.Length > 0 then z --- spaceListL (List.map (atomL g) args) else z
let z = if isNil tys then z else z ^^ instL typeL tys
let z = if isNil args then z else z --- spaceListL (List.map (atomL g) args)
z

and implFileL g (TImplFile (_, _, mexpr, _, _, _)) =
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/fsi/fsi.fs
Original file line number Diff line number Diff line change
Expand Up @@ -1479,7 +1479,7 @@ type internal FsiDynamicCompiler
for folder in result.Roots do
tcConfigB.AddIncludePath(m, folder, "")
let scripts = result.SourceFiles |> Seq.toList
if scripts |> Seq.length > 0 then
if not (isNil scripts) then
fsiDynamicCompiler.EvalSourceFiles(ctok, istate, m, scripts, lexResourceManager, errorLogger)
else istate
with _ ->
Expand Down
2 changes: 1 addition & 1 deletion src/fsharp/service/ServiceAnalysis.fs
Original file line number Diff line number Diff line change
Expand Up @@ -181,7 +181,7 @@ module UnusedOpens =
| true, scopes -> openStatement.AppliedScope :: scopes
| _ -> [openStatement.AppliedScope]
usedModules.[openedModule.Entity] <- scopes
newlyOpenedModules.Length > 0
not (isNil newlyOpenedModules)

/// Incrementally filter out the open statements one by one. Filter those whose contents are referred to somewhere in the symbol uses.
/// Async to allow cancellation.
Expand Down