Changeset 2153
- Timestamp:
- Jan 27, 2011 1:13:35 AM (2 years ago)
- File:
-
- 1 edited
-
dev/olpc/spiflash/spiui.fth (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
dev/olpc/spiflash/spiui.fth
r2015 r2153 43 43 \ Perform a series of sanity checks on the new firmware image. 44 44 45 : check-firmware-image ( adr len -- adr len )46 dup /flash <> abort" Wrong image length" ( adr len )47 2dup + h# 40 - ( adr len signature-adr )48 dup " CL1" comp abort" No firmware signature" ( adr len signature-adr )49 ." Firmware: " h# 10 type ( adr len )50 \ XXX add some more sanity checks51 ;52 53 45 [ifdef] load-base 54 46 : flash-buf load-base ; … … 77 69 78 70 ." Got firmware version: " 79 flash-buf h# f.ffc0 + dup h# 10 type cr ( adr ) 80 " CL1" comp abort" Wrong machine type" 71 flash-buf h# f.ffc0 + h# 10 type cr 81 72 82 73 ?crc … … 281 272 : erase-firmware ( -- ) 282 273 h# 100000 /flash-block do (cr i .x i flash-erase-block /flash-block +loop cr 274 ; 275 276 : check-firmware-image ( adr len -- adr len ) 277 dup /flash <> abort" Wrong image length" ( adr len ) 278 2dup + h# 40 - ( adr len signature-adr ) 279 dup " CL1" comp abort" No firmware signature" ( adr len signature-adr ) 280 ." Firmware: " h# 10 type ( adr len ) 281 \ XXX add some more sanity checks 283 282 ; 284 283
Note: See TracChangeset
for help on using the changeset viewer.
