Rev 1947 | Rev 2048 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1947 | Rev 1977 | ||
---|---|---|---|
1 | /* |
1 | /* |
2 | * Copyright (C) 2005 Martin Decky |
2 | * Copyright (C) 2005 Martin Decky |
3 | * All rights reserved. |
3 | * All rights reserved. |
4 | * |
4 | * |
5 | * Redistribution and use in source and binary forms, with or without |
5 | * Redistribution and use in source and binary forms, with or without |
6 | * modification, are permitted provided that the following conditions |
6 | * modification, are permitted provided that the following conditions |
7 | * are met: |
7 | * are met: |
8 | * |
8 | * |
9 | * - Redistributions of source code must retain the above copyright |
9 | * - Redistributions of source code must retain the above copyright |
10 | * notice, this list of conditions and the following disclaimer. |
10 | * notice, this list of conditions and the following disclaimer. |
11 | * - Redistributions in binary form must reproduce the above copyright |
11 | * - Redistributions in binary form must reproduce the above copyright |
12 | * notice, this list of conditions and the following disclaimer in the |
12 | * notice, this list of conditions and the following disclaimer in the |
13 | * documentation and/or other materials provided with the distribution. |
13 | * documentation and/or other materials provided with the distribution. |
14 | * - The name of the author may not be used to endorse or promote products |
14 | * - The name of the author may not be used to endorse or promote products |
15 | * derived from this software without specific prior written permission. |
15 | * derived from this software without specific prior written permission. |
16 | * |
16 | * |
17 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
17 | * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR |
18 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
18 | * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES |
19 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
19 | * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. |
20 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
20 | * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, |
21 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
21 | * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT |
22 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
22 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
23 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
23 | * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
24 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
24 | * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
25 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
25 | * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF |
26 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
26 | * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
27 | */ |
27 | */ |
28 | 28 | ||
29 | #include <ofw.h> |
29 | #include <ofw.h> |
30 | #include <ofwarch.h> |
30 | #include <ofwarch.h> |
31 | #include <printf.h> |
31 | #include <printf.h> |
32 | #include <asm.h> |
32 | #include <asm.h> |
33 | #include <types.h> |
33 | #include <types.h> |
34 | 34 | ||
35 | uintptr_t ofw_cif; |
35 | uintptr_t ofw_cif; |
36 | 36 | ||
37 | phandle ofw_chosen; |
37 | phandle ofw_chosen; |
38 | ihandle ofw_stdout; |
38 | ihandle ofw_stdout; |
39 | phandle ofw_root; |
39 | phandle ofw_root; |
40 | ihandle ofw_mmu; |
40 | ihandle ofw_mmu; |
41 | phandle ofw_memory; |
41 | phandle ofw_memory; |
42 | phandle ofw_aliases; |
42 | phandle ofw_aliases; |
43 | 43 | ||
44 | void ofw_init(void) |
44 | void ofw_init(void) |
45 | { |
45 | { |
46 | ofw_chosen = ofw_find_device("/chosen"); |
46 | ofw_chosen = ofw_find_device("/chosen"); |
47 | if (ofw_chosen == -1) |
47 | if (ofw_chosen == -1) |
48 | halt(); |
48 | halt(); |
49 | 49 | ||
50 | if (ofw_get_property(ofw_chosen, "stdout", &ofw_stdout, sizeof(ofw_stdout)) <= 0) |
50 | if (ofw_get_property(ofw_chosen, "stdout", &ofw_stdout, sizeof(ofw_stdout)) <= 0) |
51 | ofw_stdout = 0; |
51 | ofw_stdout = 0; |
52 | 52 | ||
53 | ofw_root = ofw_find_device("/"); |
53 | ofw_root = ofw_find_device("/"); |
54 | if (ofw_root == -1) { |
54 | if (ofw_root == -1) { |
55 | puts("\r\nError: Unable to find / device, halted.\r\n"); |
55 | puts("\r\nError: Unable to find / device, halted.\r\n"); |
56 | halt(); |
56 | halt(); |
57 | } |
57 | } |
58 | 58 | ||
59 | if (ofw_get_property(ofw_chosen, "mmu", &ofw_mmu, sizeof(ofw_mmu)) <= 0) { |
59 | if (ofw_get_property(ofw_chosen, "mmu", &ofw_mmu, sizeof(ofw_mmu)) <= 0) { |
60 | puts("\r\nError: Unable to get mmu property, halted.\r\n"); |
60 | puts("\r\nError: Unable to get mmu property, halted.\r\n"); |
61 | halt(); |
61 | halt(); |
62 | } |
62 | } |
63 | 63 | ||
64 | ofw_memory = ofw_find_device("/memory"); |
64 | ofw_memory = ofw_find_device("/memory"); |
65 | if (ofw_memory == -1) { |
65 | if (ofw_memory == -1) { |
66 | puts("\r\nError: Unable to find /memory device, halted.\r\n"); |
66 | puts("\r\nError: Unable to find /memory device, halted.\r\n"); |
67 | halt(); |
67 | halt(); |
68 | } |
68 | } |
69 | 69 | ||
70 | ofw_aliases = ofw_find_device("/aliases"); |
70 | ofw_aliases = ofw_find_device("/aliases"); |
71 | if (ofw_aliases == -1) { |
71 | if (ofw_aliases == -1) { |
72 | puts("\r\nError: Unable to find /aliases device, halted.\r\n"); |
72 | puts("\r\nError: Unable to find /aliases device, halted.\r\n"); |
73 | halt(); |
73 | halt(); |
74 | } |
74 | } |
75 | } |
75 | } |
76 | 76 | ||
77 | /** Perform a call to OpenFirmware client interface. |
77 | /** Perform a call to OpenFirmware client interface. |
78 | * |
78 | * |
79 | * @param service String identifying the service requested. |
79 | * @param service String identifying the service requested. |
80 | * @param nargs Number of input arguments. |
80 | * @param nargs Number of input arguments. |
81 | * @param nret Number of output arguments. This includes the return value. |
81 | * @param nret Number of output arguments. This includes the return value. |
82 | * @param rets Buffer for output arguments or NULL. The buffer must accommodate nret - 1 items. |
82 | * @param rets Buffer for output arguments or NULL. The buffer must accommodate nret - 1 items. |
83 | * |
83 | * |
84 | * @return Return value returned by the client interface. |
84 | * @return Return value returned by the client interface. |
85 | */ |
85 | */ |
86 | unsigned long ofw_call(const char *service, const int nargs, const int nret, ofw_arg_t *rets, ...) |
86 | unsigned long ofw_call(const char *service, const int nargs, const int nret, ofw_arg_t *rets, ...) |
87 | { |
87 | { |
88 | va_list list; |
88 | va_list list; |
89 | ofw_args_t args; |
89 | ofw_args_t args; |
90 | int i; |
90 | int i; |
91 | 91 | ||
92 | args.service = (ofw_arg_t) service; |
92 | args.service = (ofw_arg_t) service; |
93 | args.nargs = nargs; |
93 | args.nargs = nargs; |
94 | args.nret = nret; |
94 | args.nret = nret; |
95 | 95 | ||
96 | va_start(list, rets); |
96 | va_start(list, rets); |
97 | for (i = 0; i < nargs; i++) |
97 | for (i = 0; i < nargs; i++) |
98 | args.args[i] = va_arg(list, ofw_arg_t); |
98 | args.args[i] = va_arg(list, ofw_arg_t); |
99 | va_end(list); |
99 | va_end(list); |
100 | 100 | ||
101 | for (i = 0; i < nret; i++) |
101 | for (i = 0; i < nret; i++) |
102 | args.args[i + nargs] = 0; |
102 | args.args[i + nargs] = 0; |
103 | 103 | ||
104 | (void) ofw(&args); |
104 | (void) ofw(&args); |
105 | 105 | ||
106 | for (i = 1; i < nret; i++) |
106 | for (i = 1; i < nret; i++) |
107 | rets[i - 1] = args.args[i + nargs]; |
107 | rets[i - 1] = args.args[i + nargs]; |
108 | 108 | ||
109 | return args.args[nargs]; |
109 | return args.args[nargs]; |
110 | } |
110 | } |
111 | 111 | ||
112 | phandle ofw_find_device(const char *name) |
112 | phandle ofw_find_device(const char *name) |
113 | { |
113 | { |
114 | return ofw_call("finddevice", 1, 1, NULL, name); |
114 | return ofw_call("finddevice", 1, 1, NULL, name); |
115 | } |
115 | } |
116 | 116 | ||
117 | int ofw_get_property(const phandle device, const char *name, void *buf, const int buflen) |
117 | int ofw_get_property(const phandle device, const char *name, void *buf, const int buflen) |
118 | { |
118 | { |
119 | return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen); |
119 | return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen); |
120 | } |
120 | } |
121 | 121 | ||
122 | int ofw_get_proplen(const phandle device, const char *name) |
122 | int ofw_get_proplen(const phandle device, const char *name) |
123 | { |
123 | { |
124 | return ofw_call("getproplen", 2, 1, NULL, device, name); |
124 | return ofw_call("getproplen", 2, 1, NULL, device, name); |
125 | } |
125 | } |
126 | 126 | ||
127 | int ofw_next_property(const phandle device, char *previous, char *buf) |
127 | int ofw_next_property(const phandle device, char *previous, char *buf) |
128 | { |
128 | { |
129 | return ofw_call("nextprop", 3, 1, NULL, device, previous, buf); |
129 | return ofw_call("nextprop", 3, 1, NULL, device, previous, buf); |
130 | } |
130 | } |
131 | 131 | ||
132 | int ofw_package_to_path(const phandle device, char *buf, const int buflen) |
132 | int ofw_package_to_path(const phandle device, char *buf, const int buflen) |
133 | { |
133 | { |
134 | return ofw_call("package-to-path", 3, 1, NULL, device, buf, buflen); |
134 | return ofw_call("package-to-path", 3, 1, NULL, device, buf, buflen); |
135 | } |
135 | } |
136 | 136 | ||
137 | unsigned int ofw_get_address_cells(const phandle device) |
137 | unsigned int ofw_get_address_cells(const phandle device) |
138 | { |
138 | { |
139 | unsigned int ret = 1; |
139 | unsigned int ret = 1; |
140 | 140 | ||
141 | if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0) |
141 | if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0) |
142 | if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0) |
142 | if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0) |
143 | ret = OFW_ADDRESS_CELLS; |
143 | ret = OFW_ADDRESS_CELLS; |
144 | 144 | ||
145 | return ret; |
145 | return ret; |
146 | } |
146 | } |
147 | 147 | ||
148 | 148 | ||
149 | unsigned int ofw_get_size_cells(const phandle device) |
149 | unsigned int ofw_get_size_cells(const phandle device) |
150 | { |
150 | { |
151 | unsigned int ret; |
151 | unsigned int ret; |
152 | 152 | ||
153 | if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0) |
153 | if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0) |
154 | if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0) |
154 | if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0) |
155 | ret = OFW_SIZE_CELLS; |
155 | ret = OFW_SIZE_CELLS; |
156 | 156 | ||
157 | return ret; |
157 | return ret; |
158 | } |
158 | } |
159 | 159 | ||
160 | phandle ofw_get_child_node(const phandle node) |
160 | phandle ofw_get_child_node(const phandle node) |
161 | { |
161 | { |
162 | return ofw_call("child", 1, 1, NULL, node); |
162 | return ofw_call("child", 1, 1, NULL, node); |
163 | } |
163 | } |
164 | 164 | ||
165 | phandle ofw_get_peer_node(const phandle node) |
165 | phandle ofw_get_peer_node(const phandle node) |
166 | { |
166 | { |
167 | return ofw_call("peer", 1, 1, NULL, node); |
167 | return ofw_call("peer", 1, 1, NULL, node); |
168 | } |
168 | } |
169 | 169 | ||
170 | static ihandle ofw_open(const char *name) |
170 | static ihandle ofw_open(const char *name) |
171 | { |
171 | { |
172 | return ofw_call("open", 1, 1, NULL, name); |
172 | return ofw_call("open", 1, 1, NULL, name); |
173 | } |
173 | } |
174 | 174 | ||
175 | 175 | ||
176 | void ofw_write(const char *str, const int len) |
176 | void ofw_write(const char *str, const int len) |
177 | { |
177 | { |
178 | if (ofw_stdout == 0) |
178 | if (ofw_stdout == 0) |
179 | return; |
179 | return; |
180 | 180 | ||
181 | ofw_call("write", 3, 1, NULL, ofw_stdout, str, len); |
181 | ofw_call("write", 3, 1, NULL, ofw_stdout, str, len); |
182 | } |
182 | } |
183 | 183 | ||
184 | 184 | ||
185 | void *ofw_translate(const void *virt) |
185 | void *ofw_translate(const void *virt) |
186 | { |
186 | { |
187 | ofw_arg_t result[4]; |
187 | ofw_arg_t result[4]; |
188 | int shift; |
188 | int shift; |
189 | 189 | ||
190 | if (ofw_call("call-method", 3, 5, result, "translate", ofw_mmu, virt) != 0) { |
190 | if (ofw_call("call-method", 3, 5, result, "translate", ofw_mmu, virt) != 0) { |
191 | puts("Error: MMU method translate() failed, halting.\n"); |
191 | puts("Error: MMU method translate() failed, halting.\n"); |
192 | halt(); |
192 | halt(); |
193 | } |
193 | } |
194 | 194 | ||
195 | if (ofw_translate_failed(result[0])) |
195 | if (ofw_translate_failed(result[0])) |
196 | return NULL; |
196 | return NULL; |
197 | 197 | ||
198 | if (sizeof(unative_t) == 8) |
198 | if (sizeof(unative_t) == 8) |
199 | shift = 32; |
199 | shift = 32; |
200 | else |
200 | else |
201 | shift = 0; |
201 | shift = 0; |
202 | 202 | ||
203 | return (void *) ((result[2]<<shift)|result[3]); |
203 | return (void *) ((result[2]<<shift)|result[3]); |
204 | } |
204 | } |
205 | 205 | ||
206 | void *ofw_claim(const void *virt, const int len) |
206 | void *ofw_claim(const void *virt, const int len) |
207 | { |
207 | { |
208 | ofw_arg_t retaddr; |
208 | ofw_arg_t retaddr; |
209 | int shift; |
209 | int shift; |
210 | 210 | ||
211 | if (ofw_call("call-method", 5, 2, &retaddr, "claim", ofw_mmu, 0, len, virt) != 0) { |
211 | if (ofw_call("call-method", 5, 2, &retaddr, "claim", ofw_mmu, 0, len, virt) != 0) { |
212 | puts("Error: MMU method claim() failed, halting.\n"); |
212 | puts("Error: MMU method claim() failed, halting.\n"); |
213 | halt(); |
213 | halt(); |
214 | } |
214 | } |
215 | 215 | ||
216 | return (void *) retaddr; |
216 | return (void *) retaddr; |
217 | } |
217 | } |
218 | 218 | ||
219 | int ofw_map(const void *phys, const void *virt, const int size, const int mode) |
219 | int ofw_map(const void *phys, const void *virt, const int size, const int mode) |
220 | { |
220 | { |
221 | uintptr_t phys_hi, phys_lo; |
221 | uintptr_t phys_hi, phys_lo; |
222 | 222 | ||
223 | if (sizeof(unative_t) == 8) { |
223 | if (sizeof(unative_t) == 8) { |
224 | int shift = 32; |
224 | int shift = 32; |
225 | phys_hi = (uintptr_t) phys >> shift; |
225 | phys_hi = (uintptr_t) phys >> shift; |
226 | phys_lo = (uintptr_t) phys & 0xffffffff; |
226 | phys_lo = (uintptr_t) phys & 0xffffffff; |
227 | } else { |
227 | } else { |
228 | phys_hi = 0; |
228 | phys_hi = 0; |
229 | phys_lo = (uintptr_t) phys; |
229 | phys_lo = (uintptr_t) phys; |
230 | } |
230 | } |
231 | 231 | ||
232 | return ofw_call("call-method", 7, 1, NULL, "map", ofw_mmu, mode, size, virt, |
232 | return ofw_call("call-method", 7, 1, NULL, "map", ofw_mmu, mode, size, virt, |
233 | phys_hi, phys_lo); |
233 | phys_hi, phys_lo); |
234 | } |
234 | } |
235 | 235 | ||
236 | 236 | ||
237 | int ofw_memmap(memmap_t *map) |
237 | int ofw_memmap(memmap_t *map) |
238 | { |
238 | { |
239 | unsigned int ac = ofw_get_address_cells(ofw_memory); |
239 | unsigned int ac = ofw_get_address_cells(ofw_memory); |
240 | unsigned int sc = ofw_get_size_cells(ofw_memory); |
240 | unsigned int sc = ofw_get_size_cells(ofw_memory); |
241 | 241 | ||
242 | uint32_t buf[((ac+sc)*MEMMAP_MAX_RECORDS)]; |
242 | uint32_t buf[((ac+sc)*MEMMAP_MAX_RECORDS)]; |
243 | int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(buf)); |
243 | int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(buf)); |
244 | if (ret <= 0) /* ret is the number of written bytes */ |
244 | if (ret <= 0) /* ret is the number of written bytes */ |
245 | return false; |
245 | return false; |
246 | 246 | ||
247 | int pos; |
247 | int pos; |
248 | map->total = 0; |
248 | map->total = 0; |
249 | map->count = 0; |
249 | map->count = 0; |
250 | for (pos = 0; (pos < ret / sizeof(uint32_t)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) { |
250 | for (pos = 0; (pos < ret / sizeof(uint32_t)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) { |
251 | void * start = (void *) ((uintptr_t) buf[pos + ac - 1]); |
251 | void * start = (void *) ((uintptr_t) buf[pos + ac - 1]); |
252 | unsigned int size = buf[pos + ac + sc - 1]; |
252 | unsigned int size = buf[pos + ac + sc - 1]; |
253 | 253 | ||
254 | if (size > 0) { |
254 | if (size > 0) { |
255 | map->zones[map->count].start = start; |
255 | map->zones[map->count].start = start; |
256 | map->zones[map->count].size = size; |
256 | map->zones[map->count].size = size; |
257 | map->count++; |
257 | map->count++; |
258 | map->total += size; |
258 | map->total += size; |
259 | } |
259 | } |
260 | } |
260 | } |
261 | 261 | ||
262 | return true; |
262 | return true; |
263 | } |
263 | } |
264 | 264 | ||
265 | 265 | ||
266 | int ofw_screen(screen_t *screen) |
266 | int ofw_screen(screen_t *screen) |
267 | { |
267 | { |
268 | char device_name[BUF_SIZE]; |
268 | char device_name[BUF_SIZE]; |
269 | uint32_t virtaddr; |
269 | uint32_t virtaddr; |
270 | 270 | ||
271 | if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(device_name)) <= 0) |
271 | if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(device_name)) <= 0) |
272 | return false; |
272 | return false; |
273 | 273 | ||
274 | phandle device = ofw_find_device(device_name); |
274 | phandle device = ofw_find_device(device_name); |
275 | if (device == -1) |
275 | if (device == -1) |
276 | return false; |
276 | return false; |
277 | 277 | ||
278 | if (ofw_get_property(device, "address", &virtaddr, sizeof(virtaddr)) <= 0) |
278 | if (ofw_get_property(device, "address", &virtaddr, sizeof(virtaddr)) <= 0) |
279 | return false; |
279 | return false; |
280 | 280 | ||
281 | screen->addr = (void *) ((uintptr_t) virtaddr); |
281 | screen->addr = (void *) ((uintptr_t) virtaddr); |
282 | 282 | ||
283 | if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0) |
283 | if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0) |
284 | return false; |
284 | return false; |
285 | 285 | ||
286 | if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0) |
286 | if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0) |
287 | return false; |
287 | return false; |
288 | 288 | ||
289 | if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0) |
289 | if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0) |
290 | return false; |
290 | return false; |
291 | 291 | ||
292 | if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0) |
292 | if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0) |
293 | return false; |
293 | return false; |
294 | 294 | ||
295 | return true; |
295 | return true; |
296 | } |
296 | } |
297 | 297 | ||
298 | 298 | ||
299 | void ofw_quiesce(void) |
299 | void ofw_quiesce(void) |
300 | { |
300 | { |
301 | ofw_call("quiesce", 0, 0, NULL); |
301 | ofw_call("quiesce", 0, 0, NULL); |
302 | } |
302 | } |
303 | 303 |