type token =
  | ABSF
  | ADDA
  | ADDF
  | ADDI
  | ADDV
  | ADDR
  | ALIGN
  | ALLOC
  | AND
  | APPLY
  | ASR
  | ASSIGN
  | BYTE
  | CASE
  | CATCH
  | CHECKBOUND
  | COLON
  | DATA
  | DIVF
  | DIVI
  | EOF
  | EQA
  | EQF
  | EQI
  | EXIT
  | EXTCALL
  | FLOAT
  | FLOAT32
  | FLOAT64
  | FLOATCONST of (
# 92 "testsuite/tools/parsecmm.mly"
        string
# 35 "testsuite/tools/parsecmm.ml"
)
  | FLOATOFINT
  | FUNCTION
  | GEA
  | GEF
  | GEI
  | GLOBAL
  | GTA
  | GTF
  | GTI
  | HALF
  | IDENT of (
# 103 "testsuite/tools/parsecmm.mly"
        string
# 50 "testsuite/tools/parsecmm.ml"
)
  | IF
  | INT
  | INT32
  | INTCONST of (
# 107 "testsuite/tools/parsecmm.mly"
        int
# 58 "testsuite/tools/parsecmm.ml"
)
  | INTOFFLOAT
  | KSTRING
  | LBRACKET
  | LEA
  | LEF
  | LEI
  | LET
  | LETMUT
  | LOAD
  | LOCATION of (
# 117 "testsuite/tools/parsecmm.mly"
        Location.t
# 72 "testsuite/tools/parsecmm.ml"
)
  | LPAREN
  | LSL
  | LSR
  | LTA
  | LTF
  | LTI
  | MODI
  | MULF
  | MULH
  | MULI
  | NEA
  | NEF
  | NEI
  | NGEF
  | NGTF
  | NLEF
  | NLTF
  | OR
  | PROJ
  | RAISE of (
# 137 "testsuite/tools/parsecmm.mly"
        Lambda.raise_kind
# 96 "testsuite/tools/parsecmm.ml"
)
  | RBRACKET
  | RPAREN
  | SEQ
  | SIGNED
  | SKIP
  | STAR
  | STORE
  | STRING of (
# 145 "testsuite/tools/parsecmm.mly"
        string
# 108 "testsuite/tools/parsecmm.ml"
)
  | SUBF
  | SUBI
  | SWITCH
  | TRY
  | UNIT
  | UNSIGNED
  | VAL
  | WHILE
  | WITH
  | XOR
  | ADDRAREF
  | INTAREF
  | FLOATAREF
  | ADDRASET
  | INTASET
  | FLOATASET

open Parsing
let _ = parse_error;;
# 19 "testsuite/tools/parsecmm.mly"
open Cmm
open Parsecmmaux

let rec make_letdef def body =
  match def with
    [] -> body
  | (id, def) :: rem ->
      unbind_ident id;
      Clet(id, def, make_letdef rem body)

let rec make_letmutdef def body =
  match def with
    [] -> body
  | (id, ty, def) :: rem ->
      unbind_ident id;
      Clet_mut(id, ty, def, make_letmutdef rem body)

let make_switch n selector caselist =
  let index = Array.make n 0 in
  let casev = Array.of_list caselist in
  let dbg = Debuginfo.none in
  let actv = Array.make (Array.length casev) (Cexit(0,[]), dbg) in
  for i = 0 to Array.length casev - 1 do
    let (posl, e) = casev.(i) in
    List.iter (fun pos -> index.(pos) <- i) posl;
    actv.(i) <- (e, dbg)
  done;
  Cswitch(selector, index, actv, dbg)

let access_array base numelt size =
  match numelt with
    Cconst_int (0, _) -> base
  | Cconst_int (n, _) ->
      let dbg = Debuginfo.none in
      Cop(Cadda, [base; Cconst_int(n * size, dbg)], dbg)
  | _ ->
      let dbg = Debuginfo.none in
      Cop(Cadda, [base;
                  Cop(Clsl, [numelt; Cconst_int(Misc.log2 size, dbg)],
                  dbg)],
          dbg)

# 172 "testsuite/tools/parsecmm.ml"
let yytransl_const = [|
  257 (* ABSF *);
  258 (* ADDA *);
  259 (* ADDF *);
  260 (* ADDI *);
  261 (* ADDV *);
  262 (* ADDR *);
  263 (* ALIGN *);
  264 (* ALLOC *);
  265 (* AND *);
  266 (* APPLY *);
  267 (* ASR *);
  268 (* ASSIGN *);
  269 (* BYTE *);
  270 (* CASE *);
  271 (* CATCH *);
  272 (* CHECKBOUND *);
  273 (* COLON *);
  274 (* DATA *);
  275 (* DIVF *);
  276 (* DIVI *);
    0 (* EOF *);
  277 (* EQA *);
  278 (* EQF *);
  279 (* EQI *);
  280 (* EXIT *);
  281 (* EXTCALL *);
  282 (* FLOAT *);
  283 (* FLOAT32 *);
  284 (* FLOAT64 *);
  286 (* FLOATOFINT *);
  287 (* FUNCTION *);
  288 (* GEA *);
  289 (* GEF *);
  290 (* GEI *);
  291 (* GLOBAL *);
  292 (* GTA *);
  293 (* GTF *);
  294 (* GTI *);
  295 (* HALF *);
  297 (* IF *);
  298 (* INT *);
  299 (* INT32 *);
  301 (* INTOFFLOAT *);
  302 (* KSTRING *);
  303 (* LBRACKET *);
  304 (* LEA *);
  305 (* LEF *);
  306 (* LEI *);
  307 (* LET *);
  308 (* LETMUT *);
  309 (* LOAD *);
  311 (* LPAREN *);
  312 (* LSL *);
  313 (* LSR *);
  314 (* LTA *);
  315 (* LTF *);
  316 (* LTI *);
  317 (* MODI *);
  318 (* MULF *);
  319 (* MULH *);
  320 (* MULI *);
  321 (* NEA *);
  322 (* NEF *);
  323 (* NEI *);
  324 (* NGEF *);
  325 (* NGTF *);
  326 (* NLEF *);
  327 (* NLTF *);
  328 (* OR *);
  329 (* PROJ *);
  331 (* RBRACKET *);
  332 (* RPAREN *);
  333 (* SEQ *);
  334 (* SIGNED *);
  335 (* SKIP *);
  336 (* STAR *);
  337 (* STORE *);
  339 (* SUBF *);
  340 (* SUBI *);
  341 (* SWITCH *);
  342 (* TRY *);
  343 (* UNIT *);
  344 (* UNSIGNED *);
  345 (* VAL *);
  346 (* WHILE *);
  347 (* WITH *);
  348 (* XOR *);
  349 (* ADDRAREF *);
  350 (* INTAREF *);
  351 (* FLOATAREF *);
  352 (* ADDRASET *);
  353 (* INTASET *);
  354 (* FLOATASET *);
    0|]

let yytransl_block = [|
  285 (* FLOATCONST *);
  296 (* IDENT *);
  300 (* INTCONST *);
  310 (* LOCATION *);
  330 (* RAISE *);
  338 (* STRING *);
    0|]

let yylhs = "\255\255\
\001\000\001\000\001\000\002\000\004\000\004\000\005\000\005\000\
\007\000\008\000\008\000\010\000\010\000\010\000\010\000\009\000\
\009\000\011\000\011\000\011\000\011\000\011\000\011\000\011\000\
\011\000\011\000\011\000\011\000\011\000\011\000\011\000\011\000\
\011\000\011\000\011\000\011\000\011\000\011\000\011\000\011\000\
\011\000\011\000\011\000\011\000\011\000\011\000\011\000\015\000\
\015\000\012\000\012\000\022\000\022\000\021\000\013\000\013\000\
\024\000\024\000\023\000\025\000\025\000\025\000\025\000\025\000\
\025\000\025\000\025\000\025\000\025\000\025\000\025\000\016\000\
\016\000\016\000\016\000\016\000\017\000\017\000\017\000\017\000\
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\
\017\000\017\000\017\000\017\000\017\000\017\000\017\000\017\000\
\017\000\017\000\017\000\017\000\017\000\006\000\006\000\018\000\
\018\000\026\000\026\000\020\000\003\000\003\000\027\000\027\000\
\028\000\028\000\028\000\028\000\028\000\028\000\028\000\028\000\
\028\000\028\000\028\000\019\000\019\000\029\000\029\000\014\000\
\014\000\000\000"

let yylen = "\002\000\
\001\000\001\000\001\000\008\000\001\000\001\000\002\000\000\000\
\003\000\001\000\001\000\001\000\001\000\001\000\001\000\001\000\
\003\000\001\000\001\000\001\000\001\000\002\000\005\000\005\000\
\005\000\007\000\006\000\004\000\004\000\005\000\004\000\005\000\
\004\000\006\000\006\000\005\000\005\000\006\000\001\000\007\000\
\005\000\005\000\005\000\005\000\006\000\006\000\006\000\002\000\
\000\000\001\000\003\000\000\000\002\000\002\000\001\000\003\000\
\000\000\002\000\003\000\002\000\002\000\002\000\002\000\002\000\
\002\000\001\000\001\000\001\000\001\000\001\000\001\000\002\000\
\001\000\001\000\001\000\001\000\002\000\001\000\001\000\001\000\
\001\000\001\000\001\000\001\000\001\000\001\000\001\000\001\000\
\001\000\001\000\001\000\001\000\001\000\001\000\001\000\001\000\
\001\000\001\000\001\000\001\000\001\000\001\000\001\000\001\000\
\001\000\001\000\001\000\001\000\001\000\001\000\001\000\001\000\
\001\000\001\000\001\000\001\000\001\000\002\000\001\000\003\000\
\000\000\004\000\003\000\001\000\003\000\004\000\002\000\000\000\
\002\000\002\000\002\000\002\000\002\000\002\000\002\000\002\000\
\002\000\002\000\002\000\001\000\003\000\001\000\005\000\000\000\
\001\000\002\000"

let yydefred = "\000\000\
\000\000\000\000\003\000\000\000\146\000\001\000\002\000\128\000\
\000\000\000\000\000\000\006\000\005\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\125\000\000\000\
\000\000\000\000\127\000\126\000\000\000\134\000\138\000\130\000\
\133\000\139\000\131\000\132\000\136\000\137\000\129\000\135\000\
\000\000\000\000\000\000\000\000\000\000\007\000\013\000\015\000\
\014\000\010\000\012\000\009\000\000\000\016\000\039\000\019\000\
\021\000\018\000\000\000\000\000\020\000\000\000\000\000\000\000\
\022\000\076\000\095\000\103\000\078\000\096\000\049\000\083\000\
\000\000\088\000\000\000\000\000\116\000\105\000\081\000\097\000\
\106\000\089\000\000\000\000\000\073\000\102\000\114\000\094\000\
\101\000\112\000\093\000\000\000\074\000\100\000\110\000\092\000\
\000\000\000\000\000\000\086\000\087\000\099\000\108\000\091\000\
\082\000\104\000\117\000\098\000\107\000\090\000\115\000\113\000\
\111\000\109\000\084\000\075\000\000\000\080\000\000\000\000\000\
\079\000\000\000\000\000\000\000\000\000\085\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\004\000\118\000\
\017\000\000\000\145\000\000\000\000\000\000\000\049\000\049\000\
\000\000\000\000\000\000\000\000\050\000\000\000\000\000\000\000\
\055\000\067\000\070\000\068\000\069\000\066\000\000\000\000\000\
\071\000\072\000\000\000\077\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\028\000\048\000\049\000\000\000\000\000\000\000\000\000\
\000\000\054\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\061\000\063\000\065\000\060\000\062\000\064\000\033\000\
\029\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\031\000\000\000\000\000\025\000\
\000\000\142\000\000\000\000\000\037\000\000\000\000\000\053\000\
\051\000\023\000\059\000\058\000\056\000\024\000\030\000\000\000\
\000\000\000\000\124\000\000\000\041\000\036\000\042\000\043\000\
\044\000\000\000\000\000\000\000\032\000\000\000\000\000\038\000\
\000\000\027\000\034\000\000\000\035\000\000\000\000\000\045\000\
\046\000\047\000\026\000\000\000\141\000\000\000\120\000\040\000\
\000\000\122\000\143\000"

let yydgoto = "\002\000\
\005\000\006\000\007\000\014\000\042\000\218\000\043\000\052\000\
\053\000\054\000\063\000\148\000\152\000\140\000\138\000\133\000\
\134\000\233\000\219\000\236\000\187\000\188\000\191\000\192\000\
\162\000\234\000\010\000\027\000\220\000"

let yysindex = "\007\000\
\001\000\000\000\000\000\244\254\000\000\000\000\000\000\000\000\
\232\254\069\255\131\000\000\000\000\000\214\254\188\254\239\254\
\253\254\242\254\194\254\018\255\020\255\206\254\000\000\021\255\
\051\255\245\254\000\000\000\000\034\255\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\060\255\008\255\034\255\031\255\237\254\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\011\255\000\000\000\000\000\000\
\000\000\000\000\026\255\038\000\000\000\030\255\237\254\028\255\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\042\255\000\000\070\255\237\254\000\000\000\000\000\000\000\000\
\000\000\000\000\074\255\027\255\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\237\254\000\000\000\000\000\000\000\000\
\225\254\227\254\024\255\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\237\254\000\000\024\255\237\254\
\000\000\075\255\237\254\237\254\237\254\000\000\237\254\237\254\
\237\254\237\254\237\254\237\254\237\254\237\254\000\000\000\000\
\000\000\092\255\000\000\237\254\237\254\032\255\000\000\000\000\
\237\254\237\254\082\255\237\254\000\000\031\255\088\255\237\254\
\000\000\000\000\000\000\000\000\000\000\000\000\246\254\054\255\
\000\000\000\000\053\255\000\000\124\000\237\254\040\255\237\254\
\237\254\237\254\237\254\237\254\237\254\237\254\237\254\057\255\
\237\254\000\000\000\000\000\000\058\255\117\255\175\000\134\000\
\237\254\000\000\082\255\059\255\061\255\237\254\088\255\062\255\
\064\255\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\066\255\129\255\104\255\073\255\076\255\077\255\078\255\
\079\255\237\254\237\254\237\254\000\000\080\255\134\000\000\000\
\192\255\000\000\083\255\141\255\000\000\084\255\086\255\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\119\255\
\089\255\237\254\000\000\237\254\000\000\000\000\000\000\000\000\
\000\000\090\255\091\255\093\255\000\000\094\255\034\255\000\000\
\117\255\000\000\000\000\154\255\000\000\129\255\097\255\000\000\
\000\000\000\000\000\000\099\255\000\000\129\255\000\000\000\000\
\237\254\000\000\000\000"

let yyrindex = "\000\000\
\000\000\000\000\000\000\149\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\100\255\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\100\255\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\200\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\003\255\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\212\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\101\255\000\000\000\000\000\000\102\255\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\101\255\000\000\000\000\000\000\102\255\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\103\255\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\105\255\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\100\255\000\000\
\000\000\000\000\000\000\000\000\000\000\103\255\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\224\000\000\000\000\000\
\000\000\000\000\000\000"

let yygindex = "\000\000\
\000\000\000\000\000\000\000\000\215\255\211\255\000\000\110\255\
\000\000\116\000\171\255\000\000\000\000\000\000\135\255\000\000\
\000\000\184\255\190\255\000\000\087\000\254\255\088\000\252\255\
\069\000\186\255\182\000\000\000\000\000"

let yytablesize = 562
let yytable = "\062\000\
\003\000\046\000\194\000\190\000\055\000\008\000\145\000\001\000\
\146\000\056\000\150\000\119\000\029\000\030\000\033\000\012\000\
\119\000\136\000\009\000\034\000\057\000\183\000\184\000\147\000\
\058\000\151\000\031\000\059\000\195\000\154\000\142\000\037\000\
\196\000\047\000\165\000\060\000\047\000\222\000\168\000\169\000\
\032\000\170\000\171\000\172\000\173\000\174\000\175\000\176\000\
\177\000\155\000\156\000\157\000\179\000\048\000\180\000\181\000\
\048\000\013\000\215\000\185\000\186\000\035\000\061\000\036\000\
\038\000\158\000\197\000\039\000\246\000\049\000\040\000\163\000\
\049\000\041\000\015\000\016\000\044\000\167\000\119\000\202\000\
\203\000\017\000\205\000\045\000\207\000\208\000\209\000\210\000\
\211\000\212\000\064\000\214\000\198\000\119\000\018\000\139\000\
\199\000\179\000\179\000\223\000\065\000\159\000\189\000\019\000\
\227\000\135\000\193\000\020\000\144\000\141\000\021\000\160\000\
\161\000\143\000\022\000\055\000\051\000\050\000\166\000\051\000\
\056\000\146\000\182\000\206\000\242\000\243\000\244\000\150\000\
\200\000\179\000\204\000\057\000\213\000\216\000\225\000\058\000\
\226\000\229\000\059\000\230\000\055\000\231\000\232\000\235\000\
\023\000\056\000\060\000\024\000\237\000\249\000\025\000\238\000\
\239\000\240\000\241\000\245\000\057\000\026\000\248\000\250\000\
\058\000\251\000\252\000\059\000\253\000\000\001\001\001\178\000\
\002\001\003\001\006\001\217\000\008\001\061\000\009\001\008\000\
\052\000\057\000\121\000\137\000\140\000\007\001\005\001\149\000\
\224\000\153\000\228\000\164\000\254\000\011\000\255\000\010\001\
\066\000\067\000\068\000\069\000\070\000\000\000\061\000\071\000\
\072\000\073\000\074\000\075\000\000\000\004\001\076\000\077\000\
\000\000\000\000\078\000\079\000\080\000\081\000\082\000\083\000\
\084\000\000\000\000\000\011\001\000\000\085\000\000\000\086\000\
\087\000\088\000\000\000\089\000\090\000\091\000\000\000\247\000\
\092\000\000\000\000\000\000\000\093\000\000\000\000\000\094\000\
\095\000\096\000\097\000\098\000\099\000\000\000\000\000\100\000\
\101\000\102\000\103\000\104\000\105\000\106\000\107\000\000\000\
\108\000\109\000\110\000\111\000\112\000\113\000\114\000\115\000\
\000\000\116\000\000\000\000\000\117\000\000\000\000\000\118\000\
\119\000\000\000\120\000\121\000\122\000\123\000\000\000\000\000\
\124\000\125\000\000\000\126\000\127\000\128\000\129\000\130\000\
\131\000\132\000\000\000\000\000\000\000\000\000\066\000\067\000\
\068\000\069\000\070\000\000\000\000\000\071\000\072\000\073\000\
\074\000\075\000\000\000\000\000\076\000\077\000\000\000\004\000\
\078\000\079\000\080\000\081\000\082\000\083\000\084\000\000\000\
\000\000\000\000\000\000\085\000\000\000\086\000\087\000\088\000\
\000\000\089\000\090\000\091\000\000\000\000\000\092\000\000\000\
\000\000\000\000\093\000\000\000\000\000\094\000\095\000\096\000\
\097\000\098\000\099\000\000\000\000\000\100\000\101\000\102\000\
\103\000\104\000\105\000\106\000\107\000\000\000\108\000\109\000\
\110\000\111\000\112\000\113\000\114\000\115\000\000\000\116\000\
\000\000\000\000\117\000\000\000\000\000\118\000\119\000\000\000\
\120\000\121\000\122\000\123\000\000\000\000\000\124\000\125\000\
\000\000\126\000\127\000\128\000\129\000\130\000\131\000\132\000\
\015\000\016\000\000\000\047\000\000\000\000\000\000\000\017\000\
\000\000\000\000\000\000\055\000\000\000\000\000\000\000\000\000\
\056\000\000\000\128\000\128\000\018\000\055\000\000\000\048\000\
\000\000\128\000\056\000\057\000\000\000\019\000\000\000\058\000\
\000\000\020\000\059\000\000\000\021\000\057\000\128\000\049\000\
\022\000\058\000\060\000\000\000\059\000\000\000\000\000\128\000\
\000\000\000\000\000\000\128\000\060\000\000\000\128\000\000\000\
\000\000\000\000\128\000\000\000\000\000\000\000\055\000\201\000\
\000\000\000\000\000\000\056\000\000\000\061\000\028\000\000\000\
\000\000\024\000\000\000\000\000\025\000\000\000\057\000\061\000\
\000\000\000\000\058\000\026\000\050\000\059\000\051\000\011\000\
\128\000\000\000\000\000\128\000\011\000\060\000\128\000\000\000\
\000\000\000\000\000\000\144\000\000\000\128\000\000\000\011\000\
\144\000\000\000\000\000\011\000\000\000\000\000\011\000\123\000\
\000\000\000\000\221\000\144\000\123\000\000\000\011\000\144\000\
\061\000\000\000\144\000\000\000\000\000\000\000\000\000\123\000\
\000\000\000\000\144\000\123\000\000\000\000\000\123\000\000\000\
\000\000\000\000\000\000\011\000\000\000\000\000\123\000\000\000\
\000\000\011\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\144\000\000\000\000\000\
\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\000\
\000\000\123\000"

let yycheck = "\045\000\
\000\000\043\000\013\001\150\000\024\001\018\001\092\000\001\000\
\040\001\029\001\040\001\009\001\055\001\082\001\029\001\040\001\
\014\001\063\000\031\001\082\001\040\001\143\000\144\000\055\001\
\044\001\055\001\044\001\047\001\039\001\006\001\076\000\082\001\
\043\001\006\001\120\000\055\001\006\001\184\000\124\000\125\000\
\044\001\127\000\128\000\129\000\130\000\131\000\132\000\133\000\
\134\000\026\001\027\001\028\001\138\000\026\001\140\000\141\000\
\026\001\082\001\180\000\145\000\146\000\044\001\082\001\044\001\
\044\001\042\001\013\001\017\001\215\000\042\001\082\001\117\000\
\042\001\040\001\006\001\007\001\017\001\123\000\076\001\165\000\
\166\000\013\001\168\000\076\001\170\000\171\000\172\000\173\000\
\174\000\175\000\080\001\177\000\039\001\091\001\026\001\054\001\
\043\001\183\000\184\000\185\000\075\001\078\001\148\000\035\001\
\190\000\076\001\152\000\039\001\082\001\040\001\042\001\088\001\
\089\001\040\001\046\001\024\001\089\001\087\001\044\001\089\001\
\029\001\040\001\091\001\169\000\210\000\211\000\212\000\040\001\
\076\001\215\000\091\001\040\001\076\001\076\001\076\001\044\001\
\076\001\076\001\047\001\076\001\024\001\076\001\014\001\040\001\
\076\001\029\001\055\001\079\001\076\001\009\001\082\001\076\001\
\076\001\076\001\076\001\076\001\040\001\089\001\076\001\076\001\
\044\001\076\001\044\001\047\001\076\001\076\001\076\001\076\001\
\076\001\076\001\017\001\055\001\076\001\082\001\076\001\076\001\
\076\001\076\001\076\001\064\000\076\001\254\000\249\000\097\000\
\187\000\098\000\191\000\119\000\234\000\008\000\236\000\006\001\
\001\001\002\001\003\001\004\001\005\001\255\255\082\001\008\001\
\009\001\010\001\011\001\012\001\255\255\247\000\015\001\016\001\
\255\255\255\255\019\001\020\001\021\001\022\001\023\001\024\001\
\025\001\255\255\255\255\009\001\255\255\030\001\255\255\032\001\
\033\001\034\001\255\255\036\001\037\001\038\001\255\255\040\001\
\041\001\255\255\255\255\255\255\045\001\255\255\255\255\048\001\
\049\001\050\001\051\001\052\001\053\001\255\255\255\255\056\001\
\057\001\058\001\059\001\060\001\061\001\062\001\063\001\255\255\
\065\001\066\001\067\001\068\001\069\001\070\001\071\001\072\001\
\255\255\074\001\255\255\255\255\077\001\255\255\255\255\080\001\
\081\001\255\255\083\001\084\001\085\001\086\001\255\255\255\255\
\089\001\090\001\255\255\092\001\093\001\094\001\095\001\096\001\
\097\001\098\001\255\255\255\255\255\255\255\255\001\001\002\001\
\003\001\004\001\005\001\255\255\255\255\008\001\009\001\010\001\
\011\001\012\001\255\255\255\255\015\001\016\001\255\255\055\001\
\019\001\020\001\021\001\022\001\023\001\024\001\025\001\255\255\
\255\255\255\255\255\255\030\001\255\255\032\001\033\001\034\001\
\255\255\036\001\037\001\038\001\255\255\255\255\041\001\255\255\
\255\255\255\255\045\001\255\255\255\255\048\001\049\001\050\001\
\051\001\052\001\053\001\255\255\255\255\056\001\057\001\058\001\
\059\001\060\001\061\001\062\001\063\001\255\255\065\001\066\001\
\067\001\068\001\069\001\070\001\071\001\072\001\255\255\074\001\
\255\255\255\255\077\001\255\255\255\255\080\001\081\001\255\255\
\083\001\084\001\085\001\086\001\255\255\255\255\089\001\090\001\
\255\255\092\001\093\001\094\001\095\001\096\001\097\001\098\001\
\006\001\007\001\255\255\006\001\255\255\255\255\255\255\013\001\
\255\255\255\255\255\255\024\001\255\255\255\255\255\255\255\255\
\029\001\255\255\006\001\007\001\026\001\024\001\255\255\026\001\
\255\255\013\001\029\001\040\001\255\255\035\001\255\255\044\001\
\255\255\039\001\047\001\255\255\042\001\040\001\026\001\042\001\
\046\001\044\001\055\001\255\255\047\001\255\255\255\255\035\001\
\255\255\255\255\255\255\039\001\055\001\255\255\042\001\255\255\
\255\255\255\255\046\001\255\255\255\255\255\255\024\001\076\001\
\255\255\255\255\255\255\029\001\255\255\082\001\076\001\255\255\
\255\255\079\001\255\255\255\255\082\001\255\255\040\001\082\001\
\255\255\255\255\044\001\089\001\087\001\047\001\089\001\024\001\
\076\001\255\255\255\255\079\001\029\001\055\001\082\001\255\255\
\255\255\255\255\255\255\024\001\255\255\089\001\255\255\040\001\
\029\001\255\255\255\255\044\001\255\255\255\255\047\001\024\001\
\255\255\255\255\076\001\040\001\029\001\255\255\055\001\044\001\
\082\001\255\255\047\001\255\255\255\255\255\255\255\255\040\001\
\255\255\255\255\055\001\044\001\255\255\255\255\047\001\255\255\
\255\255\255\255\255\255\076\001\255\255\255\255\055\001\255\255\
\255\255\082\001\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\082\001\255\255\255\255\
\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\255\
\255\255\082\001"

let yynames_const = "\
  ABSF\000\
  ADDA\000\
  ADDF\000\
  ADDI\000\
  ADDV\000\
  ADDR\000\
  ALIGN\000\
  ALLOC\000\
  AND\000\
  APPLY\000\
  ASR\000\
  ASSIGN\000\
  BYTE\000\
  CASE\000\
  CATCH\000\
  CHECKBOUND\000\
  COLON\000\
  DATA\000\
  DIVF\000\
  DIVI\000\
  EOF\000\
  EQA\000\
  EQF\000\
  EQI\000\
  EXIT\000\
  EXTCALL\000\
  FLOAT\000\
  FLOAT32\000\
  FLOAT64\000\
  FLOATOFINT\000\
  FUNCTION\000\
  GEA\000\
  GEF\000\
  GEI\000\
  GLOBAL\000\
  GTA\000\
  GTF\000\
  GTI\000\
  HALF\000\
  IF\000\
  INT\000\
  INT32\000\
  INTOFFLOAT\000\
  KSTRING\000\
  LBRACKET\000\
  LEA\000\
  LEF\000\
  LEI\000\
  LET\000\
  LETMUT\000\
  LOAD\000\
  LPAREN\000\
  LSL\000\
  LSR\000\
  LTA\000\
  LTF\000\
  LTI\000\
  MODI\000\
  MULF\000\
  MULH\000\
  MULI\000\
  NEA\000\
  NEF\000\
  NEI\000\
  NGEF\000\
  NGTF\000\
  NLEF\000\
  NLTF\000\
  OR\000\
  PROJ\000\
  RBRACKET\000\
  RPAREN\000\
  SEQ\000\
  SIGNED\000\
  SKIP\000\
  STAR\000\
  STORE\000\
  SUBF\000\
  SUBI\000\
  SWITCH\000\
  TRY\000\
  UNIT\000\
  UNSIGNED\000\
  VAL\000\
  WHILE\000\
  WITH\000\
  XOR\000\
  ADDRAREF\000\
  INTAREF\000\
  FLOATAREF\000\
  ADDRASET\000\
  INTASET\000\
  FLOATASET\000\
  "

let yynames_block = "\
  FLOATCONST\000\
  IDENT\000\
  INTCONST\000\
  LOCATION\000\
  RAISE\000\
  STRING\000\
  "

let yyact = [|
  (fun _ -> failwith "parser")
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'fundecl) in
    Obj.repr(
# 169 "testsuite/tools/parsecmm.mly"
                ( Cfunction _1 )
# 699 "testsuite/tools/parsecmm.ml"
               : Cmm.phrase))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'datadecl) in
    Obj.repr(
# 170 "testsuite/tools/parsecmm.mly"
                ( Cdata _1 )
# 706 "testsuite/tools/parsecmm.ml"
               : Cmm.phrase))
; (fun __caml_parser_env ->
    Obj.repr(
# 171 "testsuite/tools/parsecmm.mly"
                ( raise End_of_file )
# 712 "testsuite/tools/parsecmm.ml"
               : Cmm.phrase))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 5 : 'fun_name) in
    let _5 = (Parsing.peek_val __caml_parser_env 3 : 'params) in
    let _7 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 175 "testsuite/tools/parsecmm.mly"
      ( List.iter (fun (id, _ty) -> unbind_ident id) _5;
        {fun_name = _3; fun_args = _5; fun_body = _7;
         fun_codegen_options =
           if Config.flambda then [
             Reduce_code_size;
             No_CSE;
           ]
           else [ Reduce_code_size ];
         fun_poll = Lambda.Default_poll;
         fun_dbg = debuginfo ()} )
# 730 "testsuite/tools/parsecmm.ml"
               : 'fundecl))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 187 "testsuite/tools/parsecmm.mly"
                        ( _1 )
# 737 "testsuite/tools/parsecmm.ml"
               : 'fun_name))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 188 "testsuite/tools/parsecmm.mly"
                        ( _1 )
# 744 "testsuite/tools/parsecmm.ml"
               : 'fun_name))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'oneparam) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'params) in
    Obj.repr(
# 190 "testsuite/tools/parsecmm.mly"
                        ( _1 :: _2 )
# 752 "testsuite/tools/parsecmm.ml"
               : 'params))
; (fun __caml_parser_env ->
    Obj.repr(
# 191 "testsuite/tools/parsecmm.mly"
                        ( [] )
# 758 "testsuite/tools/parsecmm.ml"
               : 'params))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : string) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'machtype) in
    Obj.repr(
# 194 "testsuite/tools/parsecmm.mly"
                         ( (bind_ident _1, _3) )
# 766 "testsuite/tools/parsecmm.ml"
               : 'oneparam))
; (fun __caml_parser_env ->
    Obj.repr(
# 197 "testsuite/tools/parsecmm.mly"
                                ( [||] )
# 772 "testsuite/tools/parsecmm.ml"
               : 'machtype))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'componentlist) in
    Obj.repr(
# 198 "testsuite/tools/parsecmm.mly"
                                ( Array.of_list(List.rev _1) )
# 779 "testsuite/tools/parsecmm.ml"
               : 'machtype))
; (fun __caml_parser_env ->
    Obj.repr(
# 201 "testsuite/tools/parsecmm.mly"
                                ( Val )
# 785 "testsuite/tools/parsecmm.ml"
               : 'component))
; (fun __caml_parser_env ->
    Obj.repr(
# 202 "testsuite/tools/parsecmm.mly"
                                ( Addr )
# 791 "testsuite/tools/parsecmm.ml"
               : 'component))
; (fun __caml_parser_env ->
    Obj.repr(
# 203 "testsuite/tools/parsecmm.mly"
                                ( Int )
# 797 "testsuite/tools/parsecmm.ml"
               : 'component))
; (fun __caml_parser_env ->
    Obj.repr(
# 204 "testsuite/tools/parsecmm.mly"
                                ( Float )
# 803 "testsuite/tools/parsecmm.ml"
               : 'component))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'component) in
    Obj.repr(
# 207 "testsuite/tools/parsecmm.mly"
                                 ( [_1] )
# 810 "testsuite/tools/parsecmm.ml"
               : 'componentlist))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'componentlist) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'component) in
    Obj.repr(
# 208 "testsuite/tools/parsecmm.mly"
                                 ( _3 :: _1 )
# 818 "testsuite/tools/parsecmm.ml"
               : 'componentlist))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 211 "testsuite/tools/parsecmm.mly"
                ( Cconst_int (_1, debuginfo ()) )
# 825 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 212 "testsuite/tools/parsecmm.mly"
                ( Cconst_float (float_of_string _1, debuginfo ()) )
# 832 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 213 "testsuite/tools/parsecmm.mly"
                ( Cconst_symbol (_1, debuginfo ()) )
# 839 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 214 "testsuite/tools/parsecmm.mly"
                ( Cvar(find_ident _1) )
# 846 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    Obj.repr(
# 215 "testsuite/tools/parsecmm.mly"
                      ( Ctuple [] )
# 852 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'letdef) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 216 "testsuite/tools/parsecmm.mly"
                                      ( make_letdef _3 _4 )
# 860 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'letmutdef) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 217 "testsuite/tools/parsecmm.mly"
                                            ( make_letmutdef _3 _4 )
# 868 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : string) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 218 "testsuite/tools/parsecmm.mly"
                                    ( Cassign(find_ident _3, _4) )
# 876 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 4 : 'location) in
    let _4 = (Parsing.peek_val __caml_parser_env 3 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 2 : 'exprlist) in
    let _6 = (Parsing.peek_val __caml_parser_env 1 : 'machtype) in
    Obj.repr(
# 220 "testsuite/tools/parsecmm.mly"
                ( Cop(Capply _6, _4 :: List.rev _5, debuginfo ?loc:_3 ()) )
# 886 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : string) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'exprlist) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'machtype) in
    Obj.repr(
# 222 "testsuite/tools/parsecmm.mly"
               (Cop(Cextcall(_3, _5, [], false),
                    List.rev _4, debuginfo ()))
# 896 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 1 : 'exprlist) in
    Obj.repr(
# 224 "testsuite/tools/parsecmm.mly"
                                 ( Cop(Calloc, List.rev _3, debuginfo ()) )
# 903 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 225 "testsuite/tools/parsecmm.mly"
                            ( Cop(Cnegf, [_3], debuginfo ()) )
# 910 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 226 "testsuite/tools/parsecmm.mly"
                                 ( Cop(Csubf, [_3; _4], debuginfo ()) )
# 918 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 2 : 'unaryop) in
    let _3 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 227 "testsuite/tools/parsecmm.mly"
                               ( Cop(_2, [_3], debuginfo ()) )
# 926 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 3 : 'binaryop) in
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 228 "testsuite/tools/parsecmm.mly"
                                     ( Cop(_2, [_3; _4], debuginfo ()) )
# 935 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 229 "testsuite/tools/parsecmm.mly"
                               ( _3 )
# 942 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 231 "testsuite/tools/parsecmm.mly"
      ( Cifthenelse(_3, debuginfo (), _4, debuginfo (), _5, debuginfo ()) )
# 951 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : int) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'caselist) in
    Obj.repr(
# 232 "testsuite/tools/parsecmm.mly"
                                                ( make_switch _3 _4 _5 )
# 960 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 234 "testsuite/tools/parsecmm.mly"
      (
        let lbl0 = Lambda.next_raise_count () in
        let lbl1 = Lambda.next_raise_count () in
        let body =
          match _3 with
            Cconst_int (x, _) when x <> 0 -> _4
          | _ -> Cifthenelse(_3, debuginfo (), _4, debuginfo (),
                             (Cexit(lbl0,[])),
                             debuginfo ()) in
        Ccatch(Nonrecursive, [lbl0, [], Ctuple [], debuginfo ()],
          Ccatch(Recursive,
            [lbl1, [], Csequence(body, Cexit(lbl1, [])), debuginfo ()],
            Cexit(lbl1, []))) )
# 980 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : string) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'exprlist) in
    Obj.repr(
# 248 "testsuite/tools/parsecmm.mly"
    ( Cexit(find_label _3, List.rev _4) )
# 988 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : 'sequence) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'catch_handlers) in
    Obj.repr(
# 250 "testsuite/tools/parsecmm.mly"
    ( let handlers = _5 in
      List.iter (fun (_, l, _, _) ->
        List.iter (fun (x, _) -> unbind_ident x) l) handlers;
      Ccatch(Recursive, handlers, _3) )
# 999 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    Obj.repr(
# 254 "testsuite/tools/parsecmm.mly"
                ( Cexit(0,[]) )
# 1005 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 4 : 'sequence) in
    let _5 = (Parsing.peek_val __caml_parser_env 2 : 'bind_ident) in
    let _6 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    Obj.repr(
# 256 "testsuite/tools/parsecmm.mly"
                ( unbind_ident _5; Ctrywith(_3, _5, _6, debuginfo ()) )
# 1014 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 258 "testsuite/tools/parsecmm.mly"
      ( let open Asttypes in
        Cop(Cload {memory_chunk=Word_val;
                   mutability=Mutable;
                   is_atomic=false}, [access_array _3 _4 Arch.size_addr],
          debuginfo ()) )
# 1026 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 264 "testsuite/tools/parsecmm.mly"
      ( let open Asttypes in
        Cop(Cload {memory_chunk=Word_val;
                   mutability=Mutable;
                   is_atomic=false}, [access_array _3 _4 Arch.size_addr],
          Debuginfo.none) )
# 1038 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 270 "testsuite/tools/parsecmm.mly"
      ( let open Asttypes in
        Cop(Cload {memory_chunk=Word_int;
                   mutability=Mutable;
                   is_atomic=false}, [access_array _3 _4 Arch.size_int],
          Debuginfo.none) )
# 1050 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 276 "testsuite/tools/parsecmm.mly"
      ( let open Asttypes in
        Cop(Cload {memory_chunk=Double;
                   mutability=Mutable;
                   is_atomic=false}, [access_array _3 _4 Arch.size_float],
          Debuginfo.none) )
# 1062 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 282 "testsuite/tools/parsecmm.mly"
      ( let open Lambda in
        Cop(Cstore (Word_val, Assignment),
            [access_array _3 _4 Arch.size_addr; _5], Debuginfo.none) )
# 1073 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 286 "testsuite/tools/parsecmm.mly"
      ( let open Lambda in
        Cop(Cstore (Word_int, Assignment),
            [access_array _3 _4 Arch.size_int; _5], Debuginfo.none) )
# 1084 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 3 : 'expr) in
    let _4 = (Parsing.peek_val __caml_parser_env 2 : 'expr) in
    let _5 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    Obj.repr(
# 290 "testsuite/tools/parsecmm.mly"
      ( let open Lambda in
        Cop(Cstore (Double, Assignment),
            [access_array _3 _4 Arch.size_float; _5], Debuginfo.none) )
# 1095 "testsuite/tools/parsecmm.ml"
               : 'expr))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'exprlist) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'expr) in
    Obj.repr(
# 295 "testsuite/tools/parsecmm.mly"
                                ( _2 :: _1 )
# 1103 "testsuite/tools/parsecmm.ml"
               : 'exprlist))
; (fun __caml_parser_env ->
    Obj.repr(
# 296 "testsuite/tools/parsecmm.mly"
                                ( [] )
# 1109 "testsuite/tools/parsecmm.ml"
               : 'exprlist))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'oneletdef) in
    Obj.repr(
# 299 "testsuite/tools/parsecmm.mly"
                                ( [_1] )
# 1116 "testsuite/tools/parsecmm.ml"
               : 'letdef))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'letdefmult) in
    Obj.repr(
# 300 "testsuite/tools/parsecmm.mly"
                                ( _2 )
# 1123 "testsuite/tools/parsecmm.ml"
               : 'letdef))
; (fun __caml_parser_env ->
    Obj.repr(
# 303 "testsuite/tools/parsecmm.mly"
                                ( [] )
# 1129 "testsuite/tools/parsecmm.ml"
               : 'letdefmult))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'oneletdef) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'letdefmult) in
    Obj.repr(
# 304 "testsuite/tools/parsecmm.mly"
                                ( _1 :: _2 )
# 1137 "testsuite/tools/parsecmm.ml"
               : 'letdefmult))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'expr) in
    Obj.repr(
# 307 "testsuite/tools/parsecmm.mly"
                                ( (bind_ident _1, _2) )
# 1145 "testsuite/tools/parsecmm.ml"
               : 'oneletdef))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'oneletmutdef) in
    Obj.repr(
# 310 "testsuite/tools/parsecmm.mly"
                                ( [_1] )
# 1152 "testsuite/tools/parsecmm.ml"
               : 'letmutdef))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'letmutdefmult) in
    Obj.repr(
# 311 "testsuite/tools/parsecmm.mly"
                                ( _2 )
# 1159 "testsuite/tools/parsecmm.ml"
               : 'letmutdef))
; (fun __caml_parser_env ->
    Obj.repr(
# 314 "testsuite/tools/parsecmm.mly"
                                ( [] )
# 1165 "testsuite/tools/parsecmm.ml"
               : 'letmutdefmult))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'oneletmutdef) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'letmutdefmult) in
    Obj.repr(
# 315 "testsuite/tools/parsecmm.mly"
                                ( _1 :: _2 )
# 1173 "testsuite/tools/parsecmm.ml"
               : 'letmutdefmult))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : string) in
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'machtype) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'expr) in
    Obj.repr(
# 318 "testsuite/tools/parsecmm.mly"
                                ( (bind_ident _1, _2, _3) )
# 1182 "testsuite/tools/parsecmm.ml"
               : 'oneletmutdef))
; (fun __caml_parser_env ->
    Obj.repr(
# 321 "testsuite/tools/parsecmm.mly"
                                ( Byte_unsigned )
# 1188 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 322 "testsuite/tools/parsecmm.mly"
                                ( Byte_signed )
# 1194 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 323 "testsuite/tools/parsecmm.mly"
                                ( Sixteen_unsigned )
# 1200 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 324 "testsuite/tools/parsecmm.mly"
                                ( Sixteen_signed )
# 1206 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 325 "testsuite/tools/parsecmm.mly"
                                ( Thirtytwo_unsigned )
# 1212 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 326 "testsuite/tools/parsecmm.mly"
                                ( Thirtytwo_signed )
# 1218 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 327 "testsuite/tools/parsecmm.mly"
                                ( Word_int )
# 1224 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 328 "testsuite/tools/parsecmm.mly"
                                ( Word_val )
# 1230 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 329 "testsuite/tools/parsecmm.mly"
                                ( Single )
# 1236 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 330 "testsuite/tools/parsecmm.mly"
                                ( Double )
# 1242 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 331 "testsuite/tools/parsecmm.mly"
                                ( Double )
# 1248 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    Obj.repr(
# 332 "testsuite/tools/parsecmm.mly"
                                ( Word_val )
# 1254 "testsuite/tools/parsecmm.ml"
               : 'chunk))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'chunk) in
    Obj.repr(
# 335 "testsuite/tools/parsecmm.mly"
                                ( Cload {memory_chunk=_2;
                                         mutability=Asttypes.Mutable;
                                         is_atomic=false} )
# 1263 "testsuite/tools/parsecmm.ml"
               : 'unaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 338 "testsuite/tools/parsecmm.mly"
                                ( Cfloatofint )
# 1269 "testsuite/tools/parsecmm.ml"
               : 'unaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 339 "testsuite/tools/parsecmm.mly"
                                ( Cintoffloat )
# 1275 "testsuite/tools/parsecmm.ml"
               : 'unaryop))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : Lambda.raise_kind) in
    Obj.repr(
# 340 "testsuite/tools/parsecmm.mly"
                                ( Craise _1 )
# 1282 "testsuite/tools/parsecmm.ml"
               : 'unaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 341 "testsuite/tools/parsecmm.mly"
                                ( Cabsf )
# 1288 "testsuite/tools/parsecmm.ml"
               : 'unaryop))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'chunk) in
    Obj.repr(
# 344 "testsuite/tools/parsecmm.mly"
                                ( Cstore (_2, Lambda.Assignment) )
# 1295 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 345 "testsuite/tools/parsecmm.mly"
                                ( Caddi )
# 1301 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 346 "testsuite/tools/parsecmm.mly"
                                ( Csubi )
# 1307 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 347 "testsuite/tools/parsecmm.mly"
                                ( Cmuli )
# 1313 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 348 "testsuite/tools/parsecmm.mly"
                                ( Cdivi )
# 1319 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 349 "testsuite/tools/parsecmm.mly"
                                ( Cmodi )
# 1325 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 350 "testsuite/tools/parsecmm.mly"
                                ( Cand )
# 1331 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 351 "testsuite/tools/parsecmm.mly"
                                ( Cor )
# 1337 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 352 "testsuite/tools/parsecmm.mly"
                                ( Cxor )
# 1343 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 353 "testsuite/tools/parsecmm.mly"
                                ( Clsl )
# 1349 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 354 "testsuite/tools/parsecmm.mly"
                                ( Clsr )
# 1355 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 355 "testsuite/tools/parsecmm.mly"
                                ( Casr )
# 1361 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 356 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Ceq )
# 1367 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 357 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Cne )
# 1373 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 358 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Clt )
# 1379 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 359 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Cle )
# 1385 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 360 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Cgt )
# 1391 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 361 "testsuite/tools/parsecmm.mly"
                                ( Ccmpi Cge )
# 1397 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 362 "testsuite/tools/parsecmm.mly"
                                ( Cadda )
# 1403 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 363 "testsuite/tools/parsecmm.mly"
                                ( Caddv )
# 1409 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 364 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Ceq )
# 1415 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 365 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Cne )
# 1421 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 366 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Clt )
# 1427 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 367 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Cle )
# 1433 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 368 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Cgt )
# 1439 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 369 "testsuite/tools/parsecmm.mly"
                                ( Ccmpa Cge )
# 1445 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 370 "testsuite/tools/parsecmm.mly"
                                ( Caddf )
# 1451 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 371 "testsuite/tools/parsecmm.mly"
                                ( Cmulf )
# 1457 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 372 "testsuite/tools/parsecmm.mly"
                                ( Cdivf )
# 1463 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 373 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFeq )
# 1469 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 374 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFneq )
# 1475 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 375 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFlt )
# 1481 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 376 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFnlt )
# 1487 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 377 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFle )
# 1493 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 378 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFnle )
# 1499 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 379 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFgt )
# 1505 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 380 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFngt )
# 1511 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 381 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFge )
# 1517 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 382 "testsuite/tools/parsecmm.mly"
                                ( Ccmpf CFnge )
# 1523 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 383 "testsuite/tools/parsecmm.mly"
                                ( Ccheckbound )
# 1529 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    Obj.repr(
# 384 "testsuite/tools/parsecmm.mly"
                                ( Cmulhi )
# 1535 "testsuite/tools/parsecmm.ml"
               : 'binaryop))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'expr) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'sequence) in
    Obj.repr(
# 387 "testsuite/tools/parsecmm.mly"
                                ( Csequence(_1, _2) )
# 1543 "testsuite/tools/parsecmm.ml"
               : 'sequence))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'expr) in
    Obj.repr(
# 388 "testsuite/tools/parsecmm.mly"
                                ( _1 )
# 1550 "testsuite/tools/parsecmm.ml"
               : 'sequence))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'onecase) in
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'sequence) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'caselist) in
    Obj.repr(
# 391 "testsuite/tools/parsecmm.mly"
                                ( (_1, _2) :: _3 )
# 1559 "testsuite/tools/parsecmm.ml"
               : 'caselist))
; (fun __caml_parser_env ->
    Obj.repr(
# 392 "testsuite/tools/parsecmm.mly"
                                ( [] )
# 1565 "testsuite/tools/parsecmm.ml"
               : 'caselist))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 2 : int) in
    let _4 = (Parsing.peek_val __caml_parser_env 0 : 'onecase) in
    Obj.repr(
# 395 "testsuite/tools/parsecmm.mly"
                                ( _2 :: _4 )
# 1573 "testsuite/tools/parsecmm.ml"
               : 'onecase))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 1 : int) in
    Obj.repr(
# 396 "testsuite/tools/parsecmm.mly"
                                ( [_2] )
# 1580 "testsuite/tools/parsecmm.ml"
               : 'onecase))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 399 "testsuite/tools/parsecmm.mly"
                                ( bind_ident _1 )
# 1587 "testsuite/tools/parsecmm.ml"
               : 'bind_ident))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 1 : 'datalist) in
    Obj.repr(
# 402 "testsuite/tools/parsecmm.mly"
                                ( List.rev _2 )
# 1594 "testsuite/tools/parsecmm.ml"
               : 'datadecl))
; (fun __caml_parser_env ->
    let _3 = (Parsing.peek_val __caml_parser_env 1 : 'datalist) in
    Obj.repr(
# 403 "testsuite/tools/parsecmm.mly"
                                ( List.rev _3 )
# 1601 "testsuite/tools/parsecmm.ml"
               : 'datadecl))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : 'datalist) in
    let _2 = (Parsing.peek_val __caml_parser_env 0 : 'dataitem) in
    Obj.repr(
# 406 "testsuite/tools/parsecmm.mly"
                                ( _2 :: _1 )
# 1609 "testsuite/tools/parsecmm.ml"
               : 'datalist))
; (fun __caml_parser_env ->
    Obj.repr(
# 407 "testsuite/tools/parsecmm.mly"
                                ( [] )
# 1615 "testsuite/tools/parsecmm.ml"
               : 'datalist))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 1 : string) in
    Obj.repr(
# 410 "testsuite/tools/parsecmm.mly"
                                ( Cdefine_symbol _1 )
# 1622 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 411 "testsuite/tools/parsecmm.mly"
                                ( Cint8 _2 )
# 1629 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 412 "testsuite/tools/parsecmm.mly"
                                ( Cint16 _2 )
# 1636 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 413 "testsuite/tools/parsecmm.mly"
                                ( Cint(Nativeint.of_int _2) )
# 1643 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 414 "testsuite/tools/parsecmm.mly"
                                ( Cdouble (float_of_string _2) )
# 1650 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 415 "testsuite/tools/parsecmm.mly"
                                ( Csymbol_address _2 )
# 1657 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 416 "testsuite/tools/parsecmm.mly"
                               ( Csymbol_address _2 )
# 1664 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 417 "testsuite/tools/parsecmm.mly"
                                ( Cstring _2 )
# 1671 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 418 "testsuite/tools/parsecmm.mly"
                                ( Cskip _2 )
# 1678 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : int) in
    Obj.repr(
# 419 "testsuite/tools/parsecmm.mly"
                                ( Calign _2 )
# 1685 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 0 : string) in
    Obj.repr(
# 420 "testsuite/tools/parsecmm.mly"
                                ( Cglobal_symbol _2 )
# 1692 "testsuite/tools/parsecmm.ml"
               : 'dataitem))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'catch_handler) in
    Obj.repr(
# 424 "testsuite/tools/parsecmm.mly"
    ( [_1] )
# 1699 "testsuite/tools/parsecmm.ml"
               : 'catch_handlers))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 2 : 'catch_handler) in
    let _3 = (Parsing.peek_val __caml_parser_env 0 : 'catch_handlers) in
    Obj.repr(
# 426 "testsuite/tools/parsecmm.mly"
    ( _1 :: _3 )
# 1707 "testsuite/tools/parsecmm.ml"
               : 'catch_handlers))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : 'sequence) in
    Obj.repr(
# 430 "testsuite/tools/parsecmm.mly"
    ( 0, [], _1, debuginfo () )
# 1714 "testsuite/tools/parsecmm.ml"
               : 'catch_handler))
; (fun __caml_parser_env ->
    let _2 = (Parsing.peek_val __caml_parser_env 3 : string) in
    let _3 = (Parsing.peek_val __caml_parser_env 2 : 'params) in
    let _5 = (Parsing.peek_val __caml_parser_env 0 : 'sequence) in
    Obj.repr(
# 432 "testsuite/tools/parsecmm.mly"
    ( find_label _2, _3, _5, debuginfo () )
# 1723 "testsuite/tools/parsecmm.ml"
               : 'catch_handler))
; (fun __caml_parser_env ->
    Obj.repr(
# 435 "testsuite/tools/parsecmm.mly"
                                ( None )
# 1729 "testsuite/tools/parsecmm.ml"
               : 'location))
; (fun __caml_parser_env ->
    let _1 = (Parsing.peek_val __caml_parser_env 0 : Location.t) in
    Obj.repr(
# 436 "testsuite/tools/parsecmm.mly"
                                ( Some _1 )
# 1736 "testsuite/tools/parsecmm.ml"
               : 'location))
(* Entry phrase *)
; (fun __caml_parser_env -> raise (Parsing.YYexit (Parsing.peek_val __caml_parser_env 0)))
|]
let yytables =
  { Parsing.actions=yyact;
    Parsing.transl_const=yytransl_const;
    Parsing.transl_block=yytransl_block;
    Parsing.lhs=yylhs;
    Parsing.len=yylen;
    Parsing.defred=yydefred;
    Parsing.dgoto=yydgoto;
    Parsing.sindex=yysindex;
    Parsing.rindex=yyrindex;
    Parsing.gindex=yygindex;
    Parsing.tablesize=yytablesize;
    Parsing.table=yytable;
    Parsing.check=yycheck;
    Parsing.error_function=parse_error;
    Parsing.names_const=yynames_const;
    Parsing.names_block=yynames_block }
let phrase (lexfun : Lexing.lexbuf -> token) (lexbuf : Lexing.lexbuf) =
   (Parsing.yyparse yytables 1 lexfun lexbuf : Cmm.phrase)