Changeset 3319


Ignore:
Timestamp:
Sep 21, 2012, 12:11:33 AM (3 years ago)
Author:
quozl
Message:

OLPC XO-4 - Neonode, add support for numeric version comparisons in manufacturing scripts

File:
1 edited

Legend:

Unmodified
Added
Removed
  • cpu/arm/olpc/nn-touchscreen.fth

    r3316 r3319  
    203203;
    204204
    205 : .version  ( addr -- )
    206    pbuf 2+ c@ h# 1e <> abort" bad response"
     205: .version  ( -- )
    207206   pbuf 3 +  3 0  do                    ( addr )
    208207      (.version) 2+
     
    215214   h# 1e h# 01 h# ee  3 bytes-out
    216215   h# 1e d# 30 anticipate
     216   pbuf 2+ c@ h# 1e <> abort" bad response"
    217217;
    218218
     
    222222   .version
    223223   cr
     224;
     225
     226: get-version  ( -- version.d )
     227   (version)
     228   pbuf 9 + le-w@  pbuf 7 + le-w@ wljoin  pbuf 5 + le-w@ pbuf 3 + le-w@ wljoin
    224229;
    225230
Note: See TracChangeset for help on using the changeset viewer.