anchor.diff:                      ifdefStackBits <- (ifdefStackBits ||| (1 <<< ifdefStackCount))
               ifdefStackCount <- ifdefStackCount + 1
   
  -        let lexstate = int64 colorState
  -        ((lexstate <<< lexstateStart)  &&& lexstateMask)
  +        lexStateOfColorState colorState
           ||| ((ncomments <<< ncommentsStart) &&& ncommentsMask)
           ||| ((resize32 b.Encoding <<< startPosStart) &&& startPosMask)
           ||| ((resize32 (bitOfBool light) <<< hardwhitePosStart) &&& hardwhitePosMask)
  
positive.code:             
          tokenDataOption, lexintFinal
  
      static member ColorStateOfLexState (lexState: FSharpTokenizerLexState) = 
          let tag,_ncomments,_position,_ifdefStack,_lightSyntaxStatusInital = LexerStateEncoding.decodeLexCont lexState 
          tag
  
      static member LexStateOfColorState (colorState: FSharpTokenizerColorState) = 
          let ncomments = 0L
          let position = pos0 
          let ifdefStack = []
          let light = true
          LexerStateEncoding.encodeLexCont colorState ncomments position ifdefStack light
  
  [<Sealed>]
  type FSharpSourceTokenizer(defineConstants : string list, filename : Option<string>) =     
  
negative.code: 
      let bitOfBool b = if b then 1 else 0
      let boolOfBit n = (n = 1L)
  
      let inline colorStateOfLexState (state: FSharpTokenizerLexState) =
          enum<FSharpTokenizerColorState> (int32 ((state &&& lexstateMask) >>> lexstateStart))
  
      let inline lexStateOfColorState (state: FSharpTokenizerColorState) =
          (int64 state <<< lexstateStart) &&& lexstateMask
  
      let encodeLexCont (colorState:FSharpTokenizerColorState) ncomments (b:pos) ifdefStack light = 
          let mutable ifdefStackCount = 0
          let mutable ifdefStackBits = 0
  