Skip to content
Closed
Show file tree
Hide file tree
Changes from 1 commit
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
Prev Previous commit
Next Next commit
formatting
  • Loading branch information
albert-du committed Aug 24, 2022
commit 76f22dfd93f6d1cd18a53de63bf14e6e74711c97
1 change: 0 additions & 1 deletion src/Compiler/Checking/CheckExpressions.fsi
Original file line number Diff line number Diff line change
Expand Up @@ -126,7 +126,6 @@ val TcFieldInit: range -> ILFieldInit -> Const
val LightweightTcValForUsingInBuildMethodCall:
g: TcGlobals -> vref: ValRef -> vrefFlags: ValUseFlag -> vrefTypeInst: TTypes -> m: range -> Expr * TType


/// Indicates whether a syntactic type is allowed to include new type variables
/// not declared anywhere, e.g. `let f (x: 'T option) = x.Value`
type ImplicitlyBoundTyparsAllowed =
Expand Down
7 changes: 3 additions & 4 deletions src/Compiler/CodeGen/IlxGen.fs
Original file line number Diff line number Diff line change
Expand Up @@ -4921,7 +4921,7 @@ and GenIntegerForLoop cenv cgbuf eenv (spFor, spTo, v, e1, dir, e2, loopBody, st

let stepConst =
match stepExpr with
| Some(Expr.Const (Const.Int32 i, _, _)) when i <> 0 -> Some i
| Some (Expr.Const (Const.Int32 i, _, _)) when i <> 0 -> Some i
| _ -> None

let finishIdx, stepIdx, eenvinner =
Expand Down Expand Up @@ -4999,7 +4999,7 @@ and GenIntegerForLoop cenv cgbuf eenv (spFor, spTo, v, e1, dir, e2, loopBody, st
// v++ or v--
GenGetLocalVal cenv cgbuf eenvinner e2.Range v None

match stepExpr with
match stepExpr with
| None ->
match dir with
| FSharpForLoopUp
Expand Down Expand Up @@ -5034,7 +5034,7 @@ and GenIntegerForLoop cenv cgbuf eenv (spFor, spTo, v, e1, dir, e2, loopBody, st

GenGetLocalVal cenv cgbuf eenvinner e2.Range v None

match stepExpr with
match stepExpr with
| None ->
match dir with
| FSharpForLoopUp
Expand Down Expand Up @@ -5078,7 +5078,6 @@ and GenIntegerForLoop cenv cgbuf eenv (spFor, spTo, v, e1, dir, e2, loopBody, st
CmpThenBrOrContinue(pop 2, [ I_brcmp(BI_bge, inner.CodeLabel) ])
|> GenSequel cenv eenv.cloc cgbuf


// .finish - loop-exit here
CG.SetMarkToHere cgbuf finish

Expand Down