anchor.diff:      let [<Literal>] private defaultParsingNamespace = "Microsoft.FSharp.Text.Parsing"
       /// The namespace where the OCaml-compatible parsers can be found.
       let [<Literal>] private ocamlParsingNamespace = "Microsoft.FSharp.Compatibility.OCaml.Parsing"
  +
  +    /// Values used in the ACTION tables created by fsyacc.
  +    [<Flags>]
  +    type private ActionValue =
  +        | Shift = 0x0000us
  +        | Reduce = 0x4000us
  +        | Error = 0x8000us
  +        | Accept = 0xc000us
  +        | ActionMask = 0xc000us
  +        | Any = 0xffffus
  +
  +    /// Converts a Graham.LR.LrParserAction into an ActionValue value (used by fsyacc).
  +    let private actionValue = function
  +        | Accept ->
  +            ActionValue.Accept
  +        | Reduce productionRuleId ->
  +            ActionValue.Reduce |||
  +            EnumOfValue (Checked.uint16 productionRuleId)
  +        | Shift targetStateId ->
  +            ActionValue.Shift |||
  +            EnumOfValue (Checked.uint16 targetStateId)
   
       /// Emit a formatted string as a single-line F# comment into an IndentedTextWriter.
       let inline private comment (writer : IndentedTextWriter) fmt : ^T =
  
positive.code:     /// The name of the error terminal.
      let [<Literal>] private errorTerminal : TerminalIdentifier = "error"
  
      //
      let emit (processedSpec : ProcessedSpecification<NonterminalIdentifier, TerminalIdentifier>,
                  parserTable : Lr0ParserTable<NonterminalIdentifier, TerminalIdentifier>) (writer : IndentedTextWriter) : unit =
          // TODO : Emit the module declaration
  
negative.code: 
          (* _fsyacc_action_rows *)
          intLiteralDecl ("_fsyacc_action_rows", false,
              parserTable.ParserStates.Count) writer
  
  
          (* _fsyacc_actionTableElements *)
  