Changeset 2864 for driver/cerco.ml


Ignore:
Timestamp:
Mar 13, 2013, 2:27:55 PM (7 years ago)
Author:
sacerdot
Message:

I must have drunk yesterday: all RTL passes are printed correctly; the
pass that used to fail was RTLabs which is NOT a back-end pass.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • driver/cerco.ml

    r2860 r2864  
    4242  let rec infinity = Extracted.Nat.S infinity in
    4343  (fun pass prog ->
    44     print_string (BackendPrinter.print_program pass (fst (Obj.magic prog)));
     44    print_string (BackendPrinter.print_program pass prog);
    4545    Extracted.Semantics.run_and_print pass prog infinity
    4646     (fun p -> print_endline ("\n" ^ string_of_pass p ^ ":"); Extracted.Types.It)
Note: See TracChangeset for help on using the changeset viewer.