1 /*-
2 * Copyright (c) 2000 Benno Rice <benno@jeamland.net>
3 * Copyright (c) 2000 Stephane Potvin <sepotvin@videotron.ca>
4 * All rights reserved.
5 *
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
8 * are met:
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
14 *
15 * THIS SOFTWARE IS PROVIDED BY THE AUTHORS AND CONTRIBUTORS ``AS IS'' AND
16 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25 * SUCH DAMAGE.
26 */
27
28 #include <sys/endian.h>
29
30 #include <stand.h>
31 #include "openfirm.h"
32 #include "libofw.h"
33 #include "bootstrap.h"
34
35 #include <machine/asm.h>
36 #include <machine/psl.h>
37
38 #ifdef CAS
39 static int ppc64_autoload(void);
40 #endif
41
42 struct arch_switch archsw = { /* MI/MD interface boundary */
43 .arch_getdev = ofw_getdev,
44 .arch_copyin = ofw_copyin,
45 .arch_copyout = ofw_copyout,
46 .arch_readin = ofw_readin,
47 #ifdef CAS
48 .arch_autoload = ppc64_autoload,
49 #else
50 .arch_autoload = ofw_autoload,
51 #endif
52 };
53
54 uint32_t acells, scells;
55
56 static char bootargs[128];
57
58 #define HEAP_SIZE 0x800000
59 static char heap[HEAP_SIZE]; // In BSS, so uses no space
60
61 #define OF_puts(fd, text) OF_write(fd, text, strlen(text))
62
63 static __inline register_t
mfmsr(void)64 mfmsr(void)
65 {
66 register_t value;
67
68 __asm __volatile ("mfmsr %0" : "=r"(value));
69
70 return (value);
71 }
72
73 void
init_heap(void)74 init_heap(void)
75 {
76 bzero(heap, HEAP_SIZE);
77
78 setheap(heap, (void *)((uintptr_t)heap + HEAP_SIZE));
79 }
80
81 uint64_t
memsize(void)82 memsize(void)
83 {
84 phandle_t memoryp;
85 cell_t reg[24];
86 int i, sz;
87 uint64_t memsz;
88
89 memsz = 0;
90 memoryp = OF_instance_to_package(memory);
91
92 sz = OF_getencprop(memoryp, "reg", ®[0], sizeof(reg));
93 sz /= sizeof(reg[0]);
94
95 for (i = 0; i < sz; i += (acells + scells)) {
96 if (scells > 1)
97 memsz += (uint64_t)reg[i + acells] << 32;
98 memsz += reg[i + acells + scells - 1];
99 }
100
101 return (memsz);
102 }
103
104 #ifdef CAS
105 extern int ppc64_cas(void);
106
107 static int
ppc64_autoload(void)108 ppc64_autoload(void)
109 {
110 const char *cas;
111
112 if ((cas = getenv("cas")) && cas[0] == '1')
113 if (ppc64_cas() != 0)
114 return (-1);
115 return (ofw_autoload());
116 }
117 #endif
118
119 #if BYTE_ORDER == LITTLE_ENDIAN
120 /*
121 * In Little-endian, we cannot just branch to the client interface. Since
122 * the client interface is big endian, we have to rfid to it.
123 * Likewise, when execution resumes, we are in the wrong endianness so
124 * we must do a fixup before returning to the caller.
125 */
126 static int (*openfirmware_entry)(void *);
127 extern int openfirmware_trampoline(void *buf, int (*cb)(void *));
128
129 /*
130 * Wrapper to pass the real entry point to our trampoline.
131 */
132 static int
openfirmware_docall(void * buf)133 openfirmware_docall(void *buf)
134 {
135 return openfirmware_trampoline(buf, openfirmware_entry);
136 }
137 #endif
138
139 int
main(int (* openfirm)(void *))140 main(int (*openfirm)(void *))
141 {
142 phandle_t root;
143 int i;
144 char bootpath[64];
145 char *ch;
146 int bargc;
147 char **bargv;
148
149 /*
150 * Initialise the Open Firmware routines by giving them the entry point.
151 */
152 #if BYTE_ORDER == LITTLE_ENDIAN
153 /*
154 * Use a trampoline entry point for endian fixups.
155 */
156 openfirmware_entry = openfirm;
157 OF_init(openfirmware_docall);
158 #else
159 OF_init(openfirm);
160 #endif
161
162 root = OF_finddevice("/");
163
164 scells = acells = 1;
165 OF_getencprop(root, "#address-cells", &acells, sizeof(acells));
166 OF_getencprop(root, "#size-cells", &scells, sizeof(scells));
167
168 /*
169 * Initialise the heap as early as possible. Once this is done,
170 * alloc() is usable. The stack is buried inside us, so this is
171 * safe.
172 */
173 init_heap();
174
175 /*
176 * Set up console.
177 */
178 cons_probe();
179
180 #ifdef CAS
181 setenv("cas", "1", 0);
182 #endif
183
184 /* Set up currdev variable to have hooks in place. */
185 env_setenv("currdev", EV_VOLATILE, "", gen_setcurrdev, env_nounset);
186
187 devinit();
188
189 printf("\n%s", bootprog_info);
190 printf("Memory: %lldKB\n", memsize() / 1024);
191
192 OF_getprop(chosen, "bootpath", bootpath, 64);
193 ch = strchr(bootpath, ':');
194 *ch = '\0';
195 printf("Booted from: %s\n", bootpath);
196
197 printf("\n");
198
199 /*
200 * Only parse the first bootarg if present. It should
201 * be simple to handle extra arguments
202 */
203 OF_getprop(chosen, "bootargs", bootargs, sizeof(bootargs));
204 bargc = 0;
205 parse(&bargc, &bargv, bootargs);
206 if (bargc == 1)
207 env_setenv("currdev", EV_VOLATILE, bargv[0], gen_setcurrdev,
208 env_nounset);
209 else
210 env_setenv("currdev", EV_VOLATILE, bootpath,
211 gen_setcurrdev, env_nounset);
212 env_setenv("loaddev", EV_VOLATILE, bootpath, env_noset,
213 env_nounset);
214 setenv("LINES", "24", 1); /* optional */
215
216 /*
217 * On non-Apple hardware, where it works reliably, pass flattened
218 * device trees to the kernel by default instead of OF CI pointers.
219 * Apple hardware is the only virtual-mode OF implementation in
220 * existence, so far as I am aware, so use that as a flag.
221 */
222 if (!(mfmsr() & PSL_DR))
223 setenv("usefdt", "1", 1);
224
225 interact(); /* doesn't return */
226
227 OF_exit();
228
229 return 0;
230 }
231
232 COMMAND_SET(halt, "halt", "halt the system", command_halt);
233
234 static int
command_halt(int argc,char * argv[])235 command_halt(int argc, char *argv[])
236 {
237
238 OF_exit();
239 return (CMD_OK);
240 }
241
242 COMMAND_SET(memmap, "memmap", "print memory map", command_memmap);
243
244 int
command_memmap(int argc,char ** argv)245 command_memmap(int argc, char **argv)
246 {
247
248 ofw_memmap(acells);
249 return (CMD_OK);
250 }
251