[openfirmware] r1547 - cpu/x86/pc/olpc

[svn at openfirmware.info]

Author: wmb
Date: 2009-12-08 07:12:45 +0100 (Tue, 08 Dec 2009)
New Revision: 1547

Modified:
   cpu/x86/pc/olpc/banner.fth
Log:
Added EC Firmware version to OLPC banner.


Modified: cpu/x86/pc/olpc/banner.fth
===================================================================
--- cpu/x86/pc/olpc/banner.fth	2009-12-07 14:11:06 UTC (rev 1546)
+++ cpu/x86/pc/olpc/banner.fth	2009-12-08 06:12:45 UTC (rev 1547)
@@ -10,14 +10,20 @@
    \ pop-base
    \ This is the manufacturing signature 
 [ifdef] rom-loaded
-   h# ffff.ffc0 h# 10 type cr
+   h# ffff.ffc0 h# 10 type 
 [then]
 ;
 
+: .ec
+   " ec-name" ['] root-node  get-package-property  0=  if  ( adr len )
+      get-encoded-string  ." EC Firmware "  type
+   then
+;
+
 : (xbanner-basics)  ( -- )
    ?spaces  cpu-model type  ." , "   .memory
    ." , S/N "  " SN" find-tag  if  type  else  ." Unknown"  then  cr
-   ?spaces  .rom
+   ?spaces  .rom  ."    " .ec  cr
 ;
 ' (xbanner-basics) to banner-basics