Changeset 447 for Deliverables/D4.1/IntelHex.ml

Timestamp:

Jan 14, 2011, 3:30:29 PM (9 years ago)

Author:

mulligan

Message:

Checksum seems to be working now on most lines, barring three? Weird bug.

File:

• Deliverables/D4.1/IntelHex.ml (modified) (1 diff)

Deliverables/D4.1/IntelHex.ml

@@ -213 +213 @@
 
 let calculate_data_checksum (record_length, record_addr, record_type, data_field) =
- let ty = (flip vect_of_int $ `Eight) $ int_of_intel_hex_entry_type record_type in
- let addr1,addr2 = from_word record_addr in
- let _, total = add_bytes (record_length :: addr1 :: addr2 :: ty :: data_field) in
- let _,total = half_add (vect_of_int 1 `Eight) $ complement total in
-   total
+  let ty = (flip vect_of_int $ `Eight) $ int_of_intel_hex_entry_type record_type in
+  let addr1,addr2 = from_word record_addr in
+  let _, total = add_bytes (record_length :: addr1 :: addr2 :: ty :: data_field) in
+  let _,total = half_add (vect_of_int 1 `Eight) $ complement total in
+    total
 ;;