[commit] r2433 - ofw/disklabel

[repository service]

Author: wmb
Date: Tue Aug  9 06:27:31 2011
New Revision: 2433
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2433

Log:
GUID Partition Table support - decode ChromeOS kernel retry counters.

Modified:
   ofw/disklabel/showgpt.fth

Modified: ofw/disklabel/showgpt.fth
==============================================================================
--- ofw/disklabel/showgpt.fth	Tue Aug  9 06:26:34 2011	(r2432)
+++ ofw/disklabel/showgpt.fth	Tue Aug  9 06:27:31 2011	(r2433)
@@ -128,12 +128,16 @@
    'guid d# 36 2dup upper             ( adr len )
 ;

+d# 100 constant chromeos-kernel-index
+0 value partition-type-index
+
 : .gpt-type   ( adr -- )
    >guid$  2>r  0                               ( string#  r: guid$ )
    begin                                        ( string#  r: guid$ )
       dup ['] partition-type-guids              ( string# string# xt  r: guid$ )
    catch 0= while                               ( string# 'this r: guid$ )
       count  2r@ $=  if                         ( string# r: guid$ )
+         dup to partition-type-index            ( string# r: guid$ )
          1+ partition-type-guids count type     ( r: guid$ )
          2r> 2drop exit                         ( -- )
       then                                      ( string# r: guid$ )
@@ -143,6 +147,19 @@
    2drop                                        ( )
 ;

+: .gpt-extra  ( adr -- )
+   partition-type-index chromeos-kernel-index =  if   ( adr )
+      \ For ChromeOS Kernel, display  (success,tries,priority)
+      h# 36 + le-w@  wbsplit                          ( tries|pri success )
+      ."  (" (.) type ." ,"                           ( tries|pri )
+      push-decimal                                    ( tries|pri )
+      dup 4 rshift (.) type ." ,"                     ( tries|pri )
+      h# f and (.) type ." )"                         ( )
+      pop-base                                        ( )
+   else                                               ( adr )
+      drop                                            ( )
+   then                                               ( )
+;
 : .gpt-partition  ( adr # -- )
    \ Skip unused entries
    over 8 0 bskip  0=  if  2drop exit  then  ( adr i )
@@ -152,6 +169,7 @@
 \  dup .gpt-guid        ( adr )
    d# 50 to-column      ( adr )
    dup .gpt-type        ( adr )
+   dup .gpt-extra       ( adr )
    drop  cr             ( )
 ;
 : .gpt-partitions  ( -- )