Ignore:
Timestamp:
Mar 2, 2011, 3:27:41 PM (9 years ago)
Author:
ayache
Message:

Update of D2.2 from Paris.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D2.2/8051/src/dev_test.ml

    r486 r619  
    99
    1010  let f filename =
    11 
    12     ASMInterpret.parse_and_interpret_hex filename
    13 
    14 (*
     11    let target = Languages.Clight in
    1512    let print = false in
    16     let interpret = false in
    17     let labelize = false in
    18     let target = Languages.ASM in
     13    let interpret = true in
    1914    let p = Languages.parse Languages.Clight filename in
    20     let p = if labelize then Languages.labelize p else p in
     15    let p = Languages.labelize p in
    2116    let ps = Languages.compile false Languages.Clight target p in
    2217    let f f' p = match Languages.language_of_ast p with
     
    2419      | _ -> ()
    2520    in
    26     if print then List.iter (f (Languages.save filename)) ps ;
    27     if interpret then List.iter (f (fun p -> ignore (Languages.interpret p))) ps
    28 *)
     21    if print then List.iter (f (Languages.save false filename)) ps ;
     22    if interpret then
     23      List.iter (f (fun p -> ignore (Languages.interpret true p))) ps
    2924  in
    3025
Note: See TracChangeset for help on using the changeset viewer.