Ignore:
Timestamp:
Mar 19, 2013, 8:00:12 PM (8 years ago)
Author:
sacerdot
Message:

Bug fixed by hand, they will be fixed automatically by the new extraction.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • extracted/interpret.ml

    r2773 r2908  
    349349            in
    350350            let s0 = Status.set_8051_sfr cm s' Status.SFR_DPL bl in
    351             Status.set_8051_sfr cm s' Status.SFR_DPH bu)
     351            Status.set_8051_sfr cm s0 Status.SFR_DPH bu)
    352352        | ASM.DATA x -> (fun _ -> assert false (* absurd case *))
    353353        | ASM.DATA16 x -> (fun _ -> assert false (* absurd case *))
     
    22022202            (fun _ ->
    22032203            let s1 = Status.set_8051_sfr cm s' Status.SFR_DPL bl in
    2204             Status.set_8051_sfr cm s' Status.SFR_DPH bu)) __)) __)
     2204            Status.set_8051_sfr cm s1 Status.SFR_DPH bu)) __)) __)
    22052205        | ASM.DATA x -> (fun _ -> assert false (* absurd case *))
    22062206        | ASM.DATA16 x -> (fun _ -> assert false (* absurd case *))
Note: See TracChangeset for help on using the changeset viewer.