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/ASM/I8051.ml

    r486 r619  
    4444    | Mul -> Val.mul
    4545    | Divu -> Val.divu
    46     | Modu -> Val.modu
     46    | Modu -> Val.modulou
    4747
    4848  let op1 = function
     
    5757      (res2, Val.or_op of1 of2)
    5858    | Sub ->
    59       let (res1, uf1) = Val.sub_and_of v1 v2 in
    60       let (res2, uf2) = Val.sub_and_of res1 carry in
     59      let (res1, uf1) = Val.sub_and_uf v1 v2 in
     60      let (res2, uf2) = Val.sub_and_uf res1 carry in
    6161      (res2, Val.or_op uf1 uf2)
    6262    | And -> (Val.and_op v1 v2, carry)
Note: See TracChangeset for help on using the changeset viewer.