[openfirmware] r869 - dev
svn at openfirmware.info
svn at openfirmware.info
Wed Aug 6 09:02:28 CEST 2008
Author: wmb
Date: 2008-08-06 09:02:28 +0200 (Wed, 06 Aug 2008)
New Revision: 869
Modified:
dev/pcibus.fth
Log:
dev/pcibus.fth - improved the diagnostic messages that appear
when probemsg? is true (invisible in the usual case).
Modified: dev/pcibus.fth
===================================================================
--- dev/pcibus.fth 2008-08-06 07:01:20 UTC (rev 868)
+++ dev/pcibus.fth 2008-08-06 07:02:28 UTC (rev 869)
@@ -306,7 +306,7 @@
\ If len is -1, reset any temporary allocations
dup -1 = if first-io set-next-io first-mem set-next-mem drop exit then
- probemsg? if ??cr ." Assigning PCI Space of length " dup 8 u.r then
+ probemsg? if ??cr ." Assigning PCI Space of length " dup 8 u.r cr then
>r nip ( phys.lo phys.hi )
dup find-boundary ( phys.lo phys.hi mask )
@@ -604,6 +604,13 @@
: fcode-image? ( PCI-struct-adr -- flag )
dup " PCIR" comp if drop false exit then
+ probemsg? if
+ ??cr
+ ." Function:" " vendor-id" get-int-property 4 u.r
+ ." Function:" " device-id" get-int-property 4 u.r
+ ??cr
+ then
+
\ always accept ROMs with vendor-id and device-id = ffff
dup h# 04 + le-w@ dup h# ffff <> if ( adr id )
" vendor-id" get-int-property <> if ( adr )
@@ -896,6 +903,13 @@
vocabulary builtin-drivers
headerless
: no-builtin-fcode? ( -- flag )
+ probemsg? if
+ ??cr ." Checking for built-in FCode match for "
+ ??cr
+ ." Vendor:" " vendor-id" get-int-property 4 u.r
+ ." Device:" " device-id" get-int-property 4 u.r
+ ??cr
+ then
probemsg? if ??cr ." Checking for built-in FCode match... " then
name-property-value ['] builtin-drivers (search-wordlist) if ( xt )
probemsg? if ." BUILTIN NAME MATCH " cr then
@@ -1230,6 +1244,7 @@
diag-cr
else
" Nothing there" diag-type-cr
+ probemsg? if ." Nothing there" cr then
then
5drop
;
More information about the openfirmware
mailing list