qemu/roms/SLOF/board-qemu/slof/tree.fs

   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 : strequal ( str1 len1 str2 len2 -- flag )
  14   rot dup rot = IF comp 0= ELSE 2drop drop 0 THEN ;
  15
  16 400 cp
  17
  18 \ The root of the device tree and some of its kids.
  19 " /" find-device
  20
  21 \ The following properties have been provided by the FDT from QEMU already,
  22 \ so we do not have to create them on our own:
  23
  24 \ " QEMU" encode-string s" model" property
  25 \ 2 encode-int s" #address-cells" property
  26 \ 2 encode-int s" #size-cells" property
  27 \ s" chrp" device-type
  28
  29 #include "archsupport.fs"
  30
  31 480 cp
  32
  33 \ See 3.6.5, and the PowerPC OF binding document.
  34 new-device
  35 s" mmu" 2dup device-name device-type
  36 0 0 s" translations" property
  37
  38 : open  true ;
  39 : close ;
  40
  41 finish-device
  42 device-end
  43
  44 4c0 cp
  45
  46 \ Fixup timebase frequency from device-tree
  47 : fixup-tbfreq
  48     " /cpus/@0" find-device
  49     " timebase-frequency" get-node get-package-property IF
  50         2drop
  51     ELSE
  52         decode-int to tb-frequency 2drop
  53     THEN
  54     device-end
  55 ;
  56 fixup-tbfreq
  57
  58 4d0 cp
  59
  60 include fbuffer.fs
  61
  62 500 cp
  63
  64 : populate-vios ( -- )
  65     \ Populate the /vdevice children with their methods
  66     \ WARNING: Quite a few SLOFisms here like get-node, set-node, ...
  67
  68     ." Populating /vdevice methods" cr
  69     " /vdevice" find-device get-node child
  70     BEGIN
  71         dup 0 <>
  72     WHILE
  73         dup set-node
  74         dup " compatible" rot get-package-property 0 = IF
  75             drop dup from-cstring
  76             2dup " hvterm1" strequal IF
  77                 " vio-hvterm.fs" included
  78             THEN
  79             2dup " IBM,v-scsi" strequal IF
  80                 " vio-vscsi.fs" included
  81             THEN
  82             2dup " IBM,l-lan" strequal IF
  83                 " vio-veth.fs" included
  84             THEN
  85             2dup " qemu,spapr-nvram" strequal IF
  86                 " rtas-nvram.fs" included
  87             THEN
  88             2drop
  89        THEN
  90        peer
  91     REPEAT drop
  92
  93     device-end
  94 ;
  95
  96 \ Now do it
  97 populate-vios
  98
  99 580 cp
 100
 101 5a0 cp
 102
 103 #include "pci-scan.fs"
 104
 105 : populate-pci-busses ( -- )
 106     \ Populate the /pci* children with their methods
 107     " /" find-device get-node child
 108     BEGIN
 109         dup 0 <>
 110     WHILE
 111         dup set-node
 112         dup " name" rot get-package-property 0 = IF
 113             drop dup from-cstring
 114             2dup s" pci" strequal IF
 115                 s" pci-phb.fs" included
 116             THEN
 117             2drop
 118        THEN
 119        peer
 120     REPEAT drop
 121
 122     device-end
 123 ;
 124
 125 populate-pci-busses
 126
 127 600 cp
 128
 129 : check-patch-kernel-sc1 ( -- )
 130     \ At this point we can try our best to patch the kernel. This function
 131     \ gets called from the "quiesce" call that kernels execute before they
 132     \ take over the system.
 133     \
 134     \ Here we know that ciregs->r4 contains the return address that gets us
 135     \ back into enter_prom inside the guest kernel.
 136     \ We assume that within a range of +- 16MB of that pointer all sc 1
 137     \ instructions inside of that kernel reside.
 138
 139     \ test_ins (instruction that tells us the kernel's endianness; we use the
 140     \           return address back into the kernel here.)
 141     ciregs >r4 @
 142     \ test_ins + 16MB (end of search range)
 143     dup 1000000 +
 144     \ MAX(test_ins - 16MB, 0) (start of search range)
 145     dup 2000000 < IF 0 ELSE dup 2000000 - THEN
 146     swap
 147     check-and-patch-sc1
 148 ;
 149
 150 \ Add sc 1 patching
 151 ' check-patch-kernel-sc1 add-quiesce-xt
 152
 153 \ Add rtas cleanup last
 154 ' rtas-quiesce add-quiesce-xt
 155
 156 640 cp
 157
 158 690 cp
 159
 160 6a0 cp
 161
 162 6a8 cp
 163
 164 6b0 cp
 165
 166 6b8 cp
 167
 168 6c0 cp
 169
 170 s" /cpus/@0" open-dev encode-int s" cpu" set-chosen
 171 s" /memory@0" open-dev encode-int s" memory" set-chosen
 172
 173 6e0 cp
 174
 175 700 cp
 176
 177 \ See 3.5.
 178 s" /openprom" find-device
 179    s" SLOF," slof-build-id here swap rmove here slof-build-id nip $cat encode-string s" model" property
 180    0 0 s" relative-addressing" property
 181 device-end
 182
 183 s" /aliases" find-device
 184    : open  true ;
 185    : close ;
 186 device-end
 187
 188 s" /mmu" open-dev encode-int s" mmu" set-chosen
 189
 190 #include "available.fs"
 191
 192 \ Setup terminal IO
 193
 194 #include <term-io.fs>
 195