Changeset 132 for Deliverables/D4.1

Timestamp:

Sep 27, 2010, 1:45:08 PM (10 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:

• Deliverables/D4.1/IntelHex.ml (modified) (2 diffs)

Deliverables/D4.1/IntelHex.ml

@@ -138 +138 @@
   let (l_u_b, l_l_b) = b in
   let len = int_of_vect (mk_word l_u_b l_l_b) in
-    prs_data len       >>=
+    prs_data (2 * len) >>=
 fun e -> prs_checksum  >>=
 fun f ->
@@ -215 +215 @@
     let _, dt_total = add_bytes hex_entry.data_field in
     let _, total = add_bytes [cs_total; ln_total; ad_total1; ad_total2; dt_total] in
+    let total = complement total in
       cs_total = total