Ignore:
Timestamp:
Sep 27, 2010, 1:45:08 PM (9 years ago)
Author:
mulligan
Message:

Type error fixed, also fixed error in hex_format_parser which calculated
length of data entry incorrectly: length is in *words* not *bytes*.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Deliverables/D4.1/IntelHex.ml

    r131 r132  
    138138  let (l_u_b, l_l_b) = b in
    139139  let len = int_of_vect (mk_word l_u_b l_l_b) in
    140     prs_data len      >>=
     140    prs_data (2 * len) >>=
    141141fun e -> prs_checksum  >>=
    142142fun f ->
     
    215215    let _, dt_total = add_bytes hex_entry.data_field in
    216216    let _, total = add_bytes [cs_total; ln_total; ad_total1; ad_total2; dt_total] in
     217    let total = complement total in
    217218      cs_total = total
Note: See TracChangeset for help on using the changeset viewer.