openbios/openboot/obp/dev/pci/compatible.fth

• Show log

  Commit

• Hash : 1a08f436
  Author :
  Date : 2010-08-25T09:23:17
  

  change to well-formed svn directory structure.
  
  
  git-svn-id: svn://coreboot.org/openboot/trunk@2 4486e004-3823-0410-90c7-fb508cc143bb
  

Download

• obp/dev/pci/compatible.fth

• id: @(#)compatible.fth 1.6 06/05/03
  purpose: 
  copyright: Copyright 1994 Firmworks  All Rights Reserved
  copyright: Copyright 2006 Sun Microsystems, Inc. All Rights Reserved
  copyright: Use is subject to license terms.
  
  headerless
  
  : $hold  ( adr len -- )
     dup  if  bounds swap 1-  ?do  i c@ hold  -1 +loop  else  2drop  then
  ;
  
  : vid,did ( -- ven-id dev-id )  0 my-l@ lwsplit ;
  
  : class-code  ( -- n )  8 my-l@ 8 rshift  ;
  
  : subsystem-base ( -- n )
     h# 0e my-b@ h# 7f and 2 = if  h# 40  else  h# 2c  then
  ;
  
  : svid,ssid ( -- subven-id subsys-id ) 
     class-code h# 60400 = if
        \ Bridges dont implement subvendor ID and Subsystem ID
        0 0
     else
        subsystem-base my-l@ lwsplit
     then
  ;
  
  : rev-id ( -- rev-id )  h# 8 my-b@ ;
  
  h# ffff      constant invalid-std-cap
  h# ffff.ffff constant invalid-ext-cap
  
  : find-std-capability  ( id -- pointer | 0 )
     h# 34 my-b@                                  ( id pointer )
     begin  dup  while                            ( id pointer )
        2dup my-w@ dup invalid-std-cap <> if      ( id pointer id w-value )
           wbsplit -rot =  if             ( id pointer next )
              drop nip exit               ( pointer )
           else
              nip                         ( id next )
           then
        else
           cmn-warn[ " Standard Capability Config access failed" ]cmn-end
           abort
        then
     repeat
     nip
  ;
  
  : find-extd-capability  ( id -- pointer | 0 )
     h# 100
     begin  dup  while                            ( id pointer )
        2dup my-l@ dup invalid-ext-cap <> if      ( id poinetr id l-value )
           lwsplit 4 >> -rot =  if        ( id pointer next )
              drop nip exit               ( pointer )
           else
              nip                         ( id next )
           then
        else
           cmn-warn[ " Extended Capability Config access failed" ]cmn-end
           abort
        then
     repeat
     nip
  ;
  
  : pcie-capability-regs ( -- pointer | 0 )  h# 10 find-std-capability ;
  : aer-capability-regs  ( -- pointer | 0 )  1 find-extd-capability ;
  : shpc-capability-regs ( -- pointer | 0 )  h# 0c find-std-capability ;
  
  : get-port-type  ( -- port-type )
     pcie-capability-regs 2 +  my-w@  4 >>  h# f and
  ;
  
  pcie-capability-regs 0<>  value  pci-express?
  
  fload ${BP}/dev/pci/compatible-prop.fth
  

Download