\ ========== Copyright Header Begin ==========================================
\ Hypervisor Software File: device-props.fth
\ Copyright (c) 2006 Sun Microsystems, Inc. All Rights Reserved.
\ - Do no alter or remove copyright notices
\ - Redistribution and use of this software in source and binary forms, with
\ or without modification, are permitted provided that the following
\ - Redistribution of source code must retain the above copyright notice,
\ this list of conditions and the following disclaimer.
\ - Redistribution in binary form must reproduce the above copyright notice,
\ this list of conditions and the following disclaimer in the
\ documentation and/or other materials provided with the distribution.
\ Neither the name of Sun Microsystems, Inc. or the names of contributors
\ may be used to endorse or promote products derived from this software
\ without specific prior written permission.
\ This software is provided "AS IS," without a warranty of any kind.
\ ALL EXPRESS OR IMPLIED CONDITIONS, REPRESENTATIONS AND WARRANTIES,
\ INCLUDING ANY IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A
\ PARTICULAR PURPOSE OR NON-INFRINGEMENT, ARE HEREBY EXCLUDED. SUN
\ MICROSYSTEMS, INC. ("SUN") AND ITS LICENSORS SHALL NOT BE LIABLE FOR
\ ANY DAMAGES SUFFERED BY LICENSEE AS A RESULT OF USING, MODIFYING OR
\ DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES. IN NO EVENT WILL SUN
\ OR ITS LICENSORS BE LIABLE FOR ANY LOST REVENUE, PROFIT OR DATA, OR
\ FOR DIRECT, INDIRECT, SPECIAL, CONSEQUENTIAL, INCIDENTAL OR PUNITIVE
\ DAMAGES, HOWEVER CAUSED AND REGARDLESS OF THE THEORY OF LIABILITY,
\ ARISING OUT OF THE USE OF OR INABILITY TO USE THIS SOFTWARE, EVEN IF
\ SUN HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES.
\ You acknowledge that this software is not designed, licensed or
\ intended for use in the design, construction, operation or maintenance of
\ ========== Copyright Header End ============================================
id: @(#)device-props.fth 1.11 06/07/28
copyright: Copyright 1994 FirmWorks All Rights Reserved
copyright: Copyright 2006 Sun Microsystems, Inc. All Rights Reserved
copyright: Use is subject to license terms.
\ All the code in this file executes as a child of a PCI device
\ and so my-space is valid and config-X $call-parent (parent-X)
: vid,did ( -- ven-id dev-id ) 0 parent-l@ lwsplit ;
: svid,ssid ( -- subven-id subsys-id ) subsystem-base parent-l@ lwsplit ;
: rev-id ( -- n ) 8 parent-w@ ;
: class-code ( -- n ) 8 parent-l@ 8 rshift ;
h# ffff constant invalid-std-cap
\ Traverse capability list looking for PCI-Express capabilities
: pcie-capability-regs ( -- pointer | 0 )
h# 34 parent-b@ ( pointer )
begin dup while ( pointer )
dup parent-w@ dup invalid-std-cap <> if ( pointer w-value )
wbsplit swap h# 10 = if ( pointer next )
cmn-warn[ " Standard Capability Config access failed" ]cmn-end
\ Create properties reflecting standard configuration header information
: int16-property ( phys.hi name$ -- ) 2>r parent-w@ 2r> integer-property ;
: int8-property ( phys.hi name$ -- ) 2>r parent-b@ 2r> integer-property ;
: ?int16-property ( phys.hi name$ -- )
2>r parent-w@ ?dup if 2r> integer-property else 2r> 2drop then
\ Create properties common to PCI and PCIE.
: make-basic-function-properties ( -- )
0 " vendor-id" int16-property
2 " device-id" int16-property
8 " revision-id" int8-property
header-type 1 <> if \ Not a PCI-PCI bridge
subsystem-base ( offset )
dup " subsystem-vendor-id" ?int16-property
2+ " subsystem-id" ?int16-property
class-code " class-code" integer-property
h# 10 h# 0c tuck parent-b! " cache-line-size" int8-property
h# 3d parent-b@ ?dup if ( intr )
dup " interrupts" integer-property ( intr )
my-space swap " assign-int-line" $call-parent ( line#,true | false )
if h# 3c parent-b! then ( )
: make-pci-specific-properties ( -- )
\ cardbus requires that we set the PRIMARY bus number.
my-space cfg>bus# h# 18 parent-b!
h# 3e " min-grant" int8-property
h# 3f " max-latency" int8-property
\ Per Solaris/OBP agreement (see psypci.c, simba.c), set cache line size
\ and latency timer. By setting them this early, we get full PCI speed
\ during boot, solving bugid 4346844. See also bugids 1234181 and 1235094.
\ If variations on either value are needed, they can be changed via nvramrc
\ script, and the Solaris PCI nexi will respect the changed properties.
\ Cache line size is set above in make-basic-function-properties
h# 40 h# 0d tuck parent-b! " latency-timer" int8-property
dup 9 rshift 3 and " devsel-speed" integer-property
dup 7 rshift 1 and if " fast-back-to-back" boolean-property then
dup 6 rshift 1 and if " udf-supported" boolean-property then
5 rshift 1 and if " 66mhz-capable" boolean-property then
: create-port-type-property ( -- ) \ XXX DEBUG ONLY XXX
pcie-capability-regs 2 + parent-w@ 4 >> h# f and
0 of " PCIE-Endpoint" endof
1 of " Legacy-PCIE-Endpoint" endof
5 of " Upstream-Port" endof
6 of " Downstream-Port" endof
7 of " PCIE-PCI/PCIX-Bridge" endof
8 of " PCI/PCIX-PCIE-Bridge" endof
encode-string " port-type" property
: make-pcie-specific-properties ( -- )
create-port-type-property \ XXX DEBUG ONLY XXX
: pci-make-function-properties ( -- )
make-basic-function-properties
make-pci-specific-properties
make-pcie-specific-properties
fload ${BP}/dev/pci/generic-names.fth
fload ${BP}/dev/pci/compatible-prop.fth
\ If a generic name cannot be found, create a name of the form pciVVVV,DDDD
\ unless subdevice subvendor IDS exist in which case use them instead.
: name-property-value ( -- adr len )
svid,ssid 2dup or 0= if 2drop vid,did then
: make-name-property ( -- )
class-code unknown-class? if name-property-value then
encode-string " name" property
: class-property-value ( -- adr len )
push-hex class-code <# u# u# u# u# u# u# " class" $hold u#> pop-base
\ Create standard properties for functions with no fcode drivers
: make-std-fcode-properties ( -- )
projects / OpenSPARC-T2-SAM / blob