Re: [OpenBIOS] b?branch

[Jd Lyons]

> On Dec 29, 2017, at 8:27 PM, Tarl Neustaedter  wrote:
>
> [re-send, copying the list. For whatever reason, it seems messages aren't getting the reply-to: header.]
>
> On 2017-Dec-29 03:58 , Jd Lyons wrote:
> > 0 > " /pci/@e" open-dev to my-self  ok
> > 0 > my-self . 5fc5ac34  ok
> > 0 > my-parent . 5fc5abfc  ok
> > 0 > my-space . 0  ok <<---Seems my-space isn't returning a correct value?
> > 0 >
>
> That's the problem. It appears that simply open-dev and assigning
> my-self isn't enough. my-space (and my-address and my-unit) aren't
> getting set up, so all config-space accesses are going to do the wrong
> thing (they'll go to device 0, which may or may not be the root).
>
> In the Sun/Oracle version, select would properly set things up, it
> appears no equivalent is available under openbios.
>
> I think you'll have to further debug this by getting the FCode to be
> pulled in at startup in place of the built-in vga fcode, rather than
> trying to fiddle things this way.

Interestingly enough, SLOF has a file called psi-device_10de_0141.fs

\ *****************************************************************************
\ * Copyright (c) 2004, 2008 IBM Corporation
\ * All rights reserved.
\ * This program and the accompanying materials
\ * are made available under the terms of the BSD License
\ * which accompanies this distribution, and is available at
\ * http://www.opensource.org/licenses/bsd-license.php
\ *
\ * Contributors:
\ *     IBM Corporation - initial implementation
\ ****************************************************************************/

my-space pci-class-name type

my-space pci-device-generic-setup

pci-io-enable
pci-mem-enable

30 config-l@  pci-find-fcode execute-rom-fcode

: check-display ( nodepath len -- true|false ) \ true if display found and "screen" alias set
\ check if display available, set screen alias
2dup find-node \ ( path len phandle|0 ) find node
?dup IF
   \ node found, get "display-type" property
   s" display-type" rot get-property ( path len true|propaddr proplen 0 )
   0= IF
      ( path len propaddr proplen ) \ property found, check if the value is not "NONE"
      s" NONE" 0 char-cat ( path len propaddr proplen str strlen ) \ null-terminated NONE string
      str= 0= IF
         ( path len ) \ "display-type" property is not "NONE" so we can set "screen" alias
         s" screen" 2swap set-alias 
         true ( true ) \  return true
      ELSE
         2drop false ( false ) \ return false
      THEN
   THEN
THEN
;

get-node node>path s" /NVDA,DISPLAY-A" $cat check-display
0= IF
   \ no display found on DISPLAY-A ... check DISPLAY-B
   get-node node>path s" /NVDA,DISPLAY-B" $cat check-display
   drop \ drop result 
THEN

s" name" get-my-property drop s"  ( " type type s"  ) " type cr
>