Changeset 3319


Ignore:
Timestamp:
Sep 21, 2012, 12:11:33 AM (19 months 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.