1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
|
# need to get images path defined early
source $env(LIB_DIR)/ppc/util.tcl
proc mconfig { name env_name def } {
global mconf
global env
if { [info exists env($env_name)] } { set mconf($name) $env($env_name) }
if { ![info exists mconf($name)] } { set mconf($name) $def }
}
mconfig cpus CPUS 1
mconfig threads THREADS 1
mconfig memory MEM_SIZE 4G
# Should we stop on an illeagal instruction
mconfig stop_on_ill MAMBO_STOP_ON_ILL false
# Location of application binary to load
mconfig boot_image SKIBOOT ../../skiboot.lid
if { [info exists env(SKIBOOT)] } {
mconfig boot_image SKIBOOT env(SKIBOOT)
}
# Boot: Memory location to load boot_image, for binary or vmlinux
mconfig boot_load MAMBO_BOOT_LOAD 0x30000000
# Boot: Value of PC after loading, for binary or vmlinux
mconfig boot_pc MAMBO_BOOT_PC 0x30000010
# Payload: Allow for a Linux style ramdisk/initrd
if { ![info exists env(SKIBOOT_ZIMAGE)] } {
error "Please set SKIBOOT_ZIMAGE to the path of your zImage.epapr"
}
mconfig payload PAYLOAD $env(SKIBOOT_ZIMAGE)
# Paylod: Memory location for a Linux style ramdisk/initrd
mconfig payload_addr PAYLOAD_ADDR 0x20000000;
# FW: Where should ePAPR Flat Devtree Binary be loaded
mconfig epapr_dt_addr EPAPR_DT_ADDR 0x1f00000;# place at 31M
# Disk: Location of file to use a bogus disk 0
mconfig rootdisk ROOTDISK none
# Disk: File to use for re COW file: none or <file>
mconfig rootdisk_cow MAMBO_ROOTDISK_COW none
# Disk: COW method to use
mconfig rootdisk_cow_method MAMBO_ROOTDISK_COW_METHOD newcow
# Disk: COW hash size
mconfig rootdisk_cow_hash MAMBO_ROOTDISK_COW_HASH 1024
# Net: What type of networking: none, phea, bogus
mconfig net MAMBO_NET none
# Net: What is the base interface for the tun/tap device
mconfig tap_base MAMBO_NET_TAP_BASE 0
#
# Create machine config
#
if { ! [info exists env(SIMHOST)] } {
set env(SIMHOST) "pegasus"
}
define dup $env(SIMHOST) myconf
myconf config cpus $mconf(cpus)
myconf config processor/number_of_threads $mconf(threads)
myconf config memory_size $mconf(memory)
myconf config processor_option/ATTN_STOP true
myconf config processor_option/stop_on_illegal_instruction $mconf(stop_on_ill)
myconf config UART/0/enabled false
myconf config SimpleUART/enabled false
myconf config enable_rtas_support false
myconf config processor/cpu_frequency 512M
myconf config processor/timebase_frequency 1/1
myconf config enable_pseries_nvram false
myconf config machine_option/NO_RAM TRUE
myconf config machine_option/NO_ROM TRUE
# We need to be DD2 or greater on p8 for the HILE HID bit.
if { $env(SIMHOST) == "pegasus" } {
myconf config processor/initial/PVR 0x4b0201
}
if { [info exists env(SKIBOOT_SIMCONF)] } {
source $env(SKIBOOT_SIMCONF)
}
define machine myconf mysim
#
# Include various utilities
#
source $env(LIB_DIR)/common/epapr.tcl
if {![info exists of::encode_compat]} {
source $env(LIB_DIR)/common/openfirmware_utils.tcl
}
# Only source mambo_utils.tcl if it exists in the current directory. That
# allows running mambo in another directory to the one skiboot.tcl is in.
if { [file exists mambo_utils.tcl] } then {
source mambo_utils.tcl
}
#
# Instanciate xscom
#
set xscom_base 0x1A0000000000
mysim xscom create $xscom_base
# Setup bogus IO
if { $mconf(rootdisk) != "none" } {
# Now load the bogus disk image
switch $mconf(rootdisk_cow) {
none {
mysim bogus disk init 0 $mconf(rootdisk) rw
puts "bogusdisk initialized for $mconf(rootdisk)"
}
default {
mysim bogus disk init 0 $mconf(rootdisk) \
$mconf(rootdisk_cow_method) \
$mconf(rootdisk_cow) $mconf(rootdisk_cow_hash)
}
}
}
switch $mconf(net) {
none {
puts "No network support selected"
}
bogus - bogusnet {
set net_tap [format "tap%d" $mconf(tap_base)]
mysim bogus net init 0 $mconf(net_mac) $net_tap
}
default {
error "Bad net \[none | bogus]: $mconf(net)"
}
}
# Device tree fixups
set root_node [mysim of find_device "/"]
mysim of addprop $root_node string "epapr-version" "ePAPR-1.0"
mysim of setprop $root_node "compatible" "ibm,powernv"
set cpus_node [mysim of find_device "/cpus"]
mysim of addprop $cpus_node int "#address-cells" 1
mysim of addprop $cpus_node int "#size-cells" 0
set mem0_node [mysim of find_device "/memory@0"]
mysim of addprop $mem0_node int "ibm,chip-id" 0
set xscom_node [ mysim of addchild $root_node xscom [format %x $xscom_base]]
set reg [list $xscom_base 0x10000000]
mysim of addprop $xscom_node array64 "reg" reg
mysim of addprop $xscom_node empty "scom-controller" ""
mysim of addprop $xscom_node int "ibm,chip-id" 0
mysim of addprop $xscom_node int "#address-cells" 1
mysim of addprop $xscom_node int "#size-cells" 1
set compat [list]
lappend compat "ibm,xscom"
lappend compat "ibm,power8-xscom"
set compat [of::encode_compat $compat]
mysim of addprop $xscom_node byte_array "compatible" $compat
if { [info exists env(SKIBOOT_INITRD)] } {
set cpio_file $env(SKIBOOT_INITRD)
set chosen_node [mysim of find_device /chosen]
set cpio_size [file size $cpio_file]
set cpio_start 0x80000000
set cpio_end [expr $cpio_start + $cpio_size]
mysim of addprop $chosen_node int "linux,initrd-start" $cpio_start
mysim of addprop $chosen_node int "linux,initrd-end" $cpio_end
mysim mcm 0 memory fread $cpio_start $cpio_size $cpio_file
}
# Init CPUs
set pir 0
for { set c 0 } { $c < $mconf(cpus) } { incr c } {
set cpu_node [mysim of find_device "/cpus/PowerPC@$pir"]
mysim of addprop $cpu_node int "ibm,chip-id" $c
mysim of addprop $cpu_node int "ibm,pir" $pir
set reg [list 0x0000001c00000028 0xffffffffffffffff]
mysim of addprop $cpu_node array64 "ibm,processor-segment-sizes" reg
set irqreg [list]
for { set t 0 } { $t < $mconf(threads) } { incr t } {
mysim mcm 0 cpu $c thread $t set spr pc $mconf(boot_pc)
mysim mcm 0 cpu $c thread $t set gpr 3 $mconf(epapr_dt_addr)
mysim mcm 0 cpu $c thread $t config_on
mysim mcm 0 cpu $c thread $t set spr pir $pir
lappend irqreg $pir
incr pir
}
mysim of addprop $cpu_node array "ibm,ppc-interrupt-server#s" irqreg
}
# Load images
set boot_size [file size $mconf(boot_image)]
mysim memory fread $mconf(boot_load) $boot_size $mconf(boot_image)
set payload_size [file size $mconf(payload)]
mysim memory fread $mconf(payload_addr) $payload_size $mconf(payload)
# Flatten it
epapr::of2dtb mysim $mconf(epapr_dt_addr)
# Turbo mode & run
mysim mode turbo
if { [info exists env(SKIBOOT_AUTORUN)] } {
mysim go
}
|
