Changeset 132 for Deliverables/D4.1
- Timestamp:
- Sep 27, 2010, 1:45:08 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Deliverables/D4.1/IntelHex.ml
r131 r132 138 138 let (l_u_b, l_l_b) = b in 139 139 let len = int_of_vect (mk_word l_u_b l_l_b) in 140 prs_data len>>=140 prs_data (2 * len) >>= 141 141 fun e -> prs_checksum >>= 142 142 fun f -> … … 215 215 let _, dt_total = add_bytes hex_entry.data_field in 216 216 let _, total = add_bytes [cs_total; ln_total; ad_total1; ad_total2; dt_total] in 217 let total = complement total in 217 218 cs_total = total
Note: See TracChangeset
for help on using the changeset viewer.