![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pci-phb.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof|
Return to pci-phb.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-qemu / slof |
1.1 ! root 1: \ ***************************************************************************** ! 2: \ * Copyright (c) 2004, 2011 IBM Corporation ! 3: \ * All rights reserved. ! 4: \ * This program and the accompanying materials ! 5: \ * are made available under the terms of the BSD License ! 6: \ * which accompanies this distribution, and is available at ! 7: \ * http://www.opensource.org/licenses/bsd-license.php ! 8: \ * ! 9: \ * Contributors: ! 10: \ * IBM Corporation - initial implementation ! 11: \ ****************************************************************************/ ! 12: ! 13: \ PAPR PCI host bridge. ! 14: ! 15: 0 VALUE phb-debug? ! 16: ! 17: ! 18: ." Populating " pwd cr ! 19: ! 20: \ needed to find the right path in the device tree ! 21: : decode-unit ( addr len -- phys.lo ... phys.hi ) ! 22: 2 hex-decode-unit \ decode string ! 23: b lshift swap \ shift the devicenumber to the right spot ! 24: 8 lshift or \ add the functionnumber ! 25: \ my-bus 10 lshift or \ add the busnumber (assume always bus 0) ! 26: 0 0 rot \ make phys.lo = 0 = phys.mid ! 27: ; ! 28: ! 29: \ needed to have the right unit address in the device tree listing ! 30: \ phys.lo=phys.mid=0 , phys.hi=config-address ! 31: : encode-unit ( phys.lo phys-mid phys.hi -- unit-str unit-len ) ! 32: nip nip \ forget the phys.lo and phys.mid ! 33: dup 8 rshift 7 and swap \ calculate function number ! 34: B rshift 1F and \ calculate device number ! 35: over IF 2 ELSE nip 1 THEN \ create string with dev#,fn# or dev# only? ! 36: hex-encode-unit ! 37: ; ! 38: ! 39: ! 40: 0 VALUE my-puid ! 41: ! 42: : setup-puid ! 43: s" reg" get-node get-property 0= IF ! 44: decode-64 to my-puid 2drop ! 45: THEN ! 46: ; ! 47: ! 48: setup-puid ! 49: ! 50: : config-b@ puid >r my-puid TO puid rtas-config-b@ r> TO puid ; ! 51: : config-w@ puid >r my-puid TO puid rtas-config-w@ r> TO puid ; ! 52: : config-l@ puid >r my-puid TO puid rtas-config-l@ r> TO puid ; ! 53: ! 54: \ define the config writes ! 55: : config-b! puid >r my-puid TO puid rtas-config-b! r> TO puid ; ! 56: : config-w! puid >r my-puid TO puid rtas-config-w! r> TO puid ; ! 57: : config-l! puid >r my-puid TO puid rtas-config-l! r> TO puid ; ! 58: ! 59: ! 60: : map-in ( phys.lo phys.mid phys.hi size -- virt ) ! 61: phb-debug? IF cr ." map-in called: " .s cr THEN ! 62: \ Ignore the size, phys.lo and phys.mid, get BAR from config space ! 63: drop nip nip ( phys.hi ) ! 64: \ Sanity check whether config address is in expected range: ! 65: dup FF AND dup 10 28 WITHIN NOT swap 30 <> AND IF ! 66: cr ." phys.hi = " . cr ! 67: ABORT" map-in with illegal config space address" ! 68: THEN ! 69: 00FFFFFF AND \ Need only bus-dev-fn+register bits ! 70: dup config-l@ ( phys.hi' bar.lo ) ! 71: dup 7 AND 4 = IF \ Is it a 64-bit BAR? ! 72: swap 4 + config-l@ lxjoin \ Add upper part of 64-bit BAR ! 73: ELSE ! 74: nip ! 75: THEN ! 76: F NOT AND \ Clear indicator bits ! 77: translate-my-address ! 78: phb-debug? IF ." map-in done: " .s cr THEN ! 79: ; ! 80: ! 81: : map-out ( virt size -- ) ! 82: phb-debug? IF ." map-out called: " .s cr THEN ! 83: 2drop ! 84: ; ! 85: ! 86: ! 87: : dma-alloc ( size -- virt ) ! 88: phb-debug? IF cr ." dma-alloc called: " .s cr THEN ! 89: fff + fff not and \ Align size to next 4k boundary ! 90: alloc-mem ! 91: \ alloc-mem always returns aligned memory - double check just to be sure ! 92: dup fff and IF ! 93: ." Warning: dma-alloc got unaligned memory!" cr ! 94: THEN ! 95: ; ! 96: ! 97: : dma-free ( virt size -- ) ! 98: phb-debug? IF cr ." dma-free called: " .s cr THEN ! 99: fff + fff not and \ Align size to next 4k boundary ! 100: free-mem ! 101: ; ! 102: ! 103: ! 104: \ Helper variables for dma-map-in and dma-map-out ! 105: 0 VALUE dma-window-liobn \ Logical I/O bus number ! 106: 0 VALUE dma-window-base \ Start address of window ! 107: 0 VALUE dma-window-size \ Size of the window ! 108: ! 109: \ Read helper variables (LIOBN, DMA window base and size) from the ! 110: \ "ibm,dma-window" property. This property can be either located ! 111: \ in the PCI device node or in the bus node, so we've got to use the ! 112: \ "calling-child" variable here to get to the node that initiated the call. ! 113: \ XXX We should search all the way up the tree to the PHB ... ! 114: : (init-dma-window-vars) ( -- ) ! 115: \ ." Foo called in " pwd cr ! 116: \ ." calling child is " calling-child .node cr ! 117: \ ." parent is " calling-child parent .node cr ! 118: s" ibm,dma-window" calling-child get-property IF ! 119: s" ibm,dma-window" calling-child parent get-property ! 120: ABORT" no dma-window property available" ! 121: THEN ! 122: decode-int TO dma-window-liobn ! 123: decode-64 TO dma-window-base ! 124: decode-64 TO dma-window-size ! 125: 2drop ! 126: ; ! 127: ! 128: : (clear-dma-window-vars) ( -- ) ! 129: 0 TO dma-window-liobn ! 130: 0 TO dma-window-base ! 131: 0 TO dma-window-size ! 132: ; ! 133: ! 134: \ We assume that firmware never maps more than the whole dma-window-size ! 135: \ so we cheat by calculating the remainder of addr/windowsize instead ! 136: \ of taking care to maintain a list of assigned device addresses ! 137: : dma-virt2dev ( virt -- devaddr ) ! 138: dma-window-size mod dma-window-base + ! 139: ; ! 140: ! 141: : dma-map-in ( virt size cachable? -- devaddr ) ! 142: phb-debug? IF cr ." dma-map-in called: " .s cr THEN ! 143: (init-dma-window-vars) ! 144: drop ( virt size ) ! 145: bounds dup >r ( v+s virt R: virt ) ! 146: swap fff + fff not and \ Align end to next 4k boundary ! 147: swap fff not and ( v+s' virt' R: virt ) ! 148: ?DO ! 149: \ ." mapping " i . cr ! 150: dma-window-liobn \ liobn ! 151: i dma-virt2dev \ ioba ! 152: i 3 OR \ Make a read- & writeable TCE ! 153: ( liobn ioba tce R: virt ) ! 154: hv-put-tce ABORT" H_PUT_TCE failed" ! 155: 1000 +LOOP ! 156: r> dma-virt2dev ! 157: (clear-dma-window-vars) ! 158: ; ! 159: ! 160: : dma-map-out ( virt devaddr size -- ) ! 161: phb-debug? IF cr ." dma-map-out called: " .s cr THEN ! 162: (init-dma-window-vars) ! 163: nip ( virt size ) ! 164: bounds ( v+s virt ) ! 165: swap fff + fff not and \ Align end to next 4k boundary ! 166: swap fff not and ( v+s' virt' ) ! 167: ?DO ! 168: \ ." unmapping " i . cr ! 169: dma-window-liobn \ liobn ! 170: i dma-virt2dev \ ioba ! 171: i \ Lowest bits not set => invalid TCE ! 172: ( liobn ioba tce ) ! 173: hv-put-tce ABORT" H_PUT_TCE failed" ! 174: 1000 +LOOP ! 175: (clear-dma-window-vars) ! 176: ; ! 177: ! 178: : dma-sync ( virt devaddr size -- ) ! 179: phb-debug? IF cr ." dma-sync called: " .s cr THEN ! 180: \ TODO: Call flush-cache or sync here? ! 181: 3drop ! 182: ; ! 183: ! 184: ! 185: : open true ; ! 186: : close ; ! 187: ! 188: \ Parse the "ranges" property of the root pci node to decode the available ! 189: \ memory ranges. See "PCI Bus Binding to IEEE Std 1275-1994" for details. ! 190: \ The memory ranges are then used for setting up the device bars (if necessary) ! 191: : phb-parse-ranges ( -- ) ! 192: \ First clear everything, in case there is something missing in the ranges ! 193: 0 pci-next-io ! ! 194: 0 pci-max-io ! ! 195: 0 pci-next-mem ! ! 196: 0 pci-max-mem ! ! 197: 0 pci-next-mmio ! ! 198: 0 pci-max-mmio ! ! 199: ! 200: \ Now get the "ranges" property ! 201: s" ranges" get-node get-property 0<> ABORT" ranges property not found" ! 202: ( prop-addr prop-len ) ! 203: BEGIN ! 204: dup ! 205: WHILE ! 206: decode-int \ Decode phys.hi ! 207: 3000000 AND \ Filter out address space in phys.hi ! 208: CASE ! 209: 1000000 OF \ I/O space? ! 210: decode-64 dup >r pci-next-io ! \ Decode PCI base address ! 211: decode-64 drop \ Forget the parent address ! 212: decode-64 r> + pci-max-io ! \ Decode size & calc max address ! 213: pci-next-io @ 0= IF ! 214: pci-next-io @ 10 + pci-next-io ! \ BARs must not be set to zero ! 215: THEN ! 216: ENDOF ! 217: 2000000 OF \ 32-bit memory space? ! 218: decode-64 pci-next-mem ! \ Decode mem base address ! 219: decode-64 drop \ Forget the parent address ! 220: decode-64 2 / dup >r \ Decode and calc size/2 ! 221: pci-next-mem @ + dup pci-max-mem ! \ and calc max mem address ! 222: dup pci-next-mmio ! \ which is the same as MMIO base ! 223: r> + pci-max-mmio ! \ calc max MMIO address ! 224: ENDOF ! 225: 3000000 OF \ 64-bit memory space? ! 226: cr ." Warning: 64-bit PCI space not supported yet! " ! 227: decode-64 . decode-64 . cr ! 228: ENDOF ! 229: ENDCASE ! 230: REPEAT ! 231: ( prop-addr prop-len ) ! 232: 2drop ! 233: ! 234: phb-debug? IF ! 235: ." pci-next-io = " pci-next-io @ . cr ! 236: ." pci-max-io = " pci-max-io @ . cr ! 237: ." pci-next-mem = " pci-next-mem @ . cr ! 238: ." pci-max-mem = " pci-max-mem @ . cr ! 239: ." pci-next-mmio = " pci-next-mmio @ . cr ! 240: ." pci-max-mmio = " pci-max-mmio @ . cr ! 241: THEN ! 242: ; ! 243: ! 244: \ Scan the child nodes of the pci root node to assign bars, fixup ! 245: \ properties etc. ! 246: : phb-setup-children ! 247: puid >r \ Save old value of puid ! 248: my-puid TO puid \ Set current puid ! 249: phb-parse-ranges ! 250: 1 0 (probe-pci-host-bridge) ! 251: r> TO puid \ Restore previous puid ! 252: ; ! 253: phb-setup-children
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.