Rev 1881 | Rev 1895 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 1881 | Rev 1893 | ||
---|---|---|---|
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 | static unsigned long ofw_call(const char *service, const int nargs, const int nret, ofw_arg_t *rets, ...) |
86 | static 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 | - | ||
113 | phandle ofw_find_device(const char *name) |
112 | phandle ofw_find_device(const char *name) |
114 | { |
113 | { |
115 | return ofw_call("finddevice", 1, 1, NULL, name); |
114 | return ofw_call("finddevice", 1, 1, NULL, name); |
116 | } |
115 | } |
117 | 116 | ||
118 | - | ||
119 | int ofw_get_property(const phandle device, const char *name, const void *buf, const int buflen) |
117 | int ofw_get_property(const phandle device, const char *name, const void *buf, const int buflen) |
120 | { |
118 | { |
121 | return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen); |
119 | return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen); |
122 | } |
120 | } |
123 | 121 | ||
- | 122 | int ofw_get_proplen(const phandle device, const char *name) |
|
- | 123 | { |
|
- | 124 | return ofw_call("getproplen", 2, 1, NULL, device, name); |
|
- | 125 | } |
|
- | 126 | ||
- | 127 | int ofw_next_property(const phandle device, char *previous, char *buf) |
|
- | 128 | { |
|
- | 129 | return ofw_call("nextprop", 3, 1, NULL, device, previous, buf); |
|
- | 130 | } |
|
124 | 131 | ||
125 | unsigned int ofw_get_address_cells(const phandle device) |
132 | unsigned int ofw_get_address_cells(const phandle device) |
126 | { |
133 | { |
127 | unsigned int ret = 1; |
134 | unsigned int ret = 1; |
128 | 135 | ||
129 | if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0) |
136 | if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0) |
130 | if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0) |
137 | if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0) |
131 | ret = OFW_ADDRESS_CELLS; |
138 | ret = OFW_ADDRESS_CELLS; |
132 | 139 | ||
133 | return ret; |
140 | return ret; |
134 | } |
141 | } |
135 | 142 | ||
136 | 143 | ||
137 | unsigned int ofw_get_size_cells(const phandle device) |
144 | unsigned int ofw_get_size_cells(const phandle device) |
138 | { |
145 | { |
139 | unsigned int ret; |
146 | unsigned int ret; |
140 | 147 | ||
141 | if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0) |
148 | if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0) |
142 | if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0) |
149 | if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0) |
143 | ret = OFW_SIZE_CELLS; |
150 | ret = OFW_SIZE_CELLS; |
144 | 151 | ||
145 | return ret; |
152 | return ret; |
146 | } |
153 | } |
147 | 154 | ||
148 | phandle ofw_get_child_node(const phandle node) |
155 | phandle ofw_get_child_node(const phandle node) |
149 | { |
156 | { |
150 | return ofw_call("child", 1, 1, NULL, node); |
157 | return ofw_call("child", 1, 1, NULL, node); |
151 | } |
158 | } |
152 | 159 | ||
153 | phandle ofw_get_peer_node(const phandle node) |
160 | phandle ofw_get_peer_node(const phandle node) |
154 | { |
161 | { |
155 | return ofw_call("peer", 1, 1, NULL, node); |
162 | return ofw_call("peer", 1, 1, NULL, node); |
156 | } |
163 | } |
157 | 164 | ||
158 | static ihandle ofw_open(const char *name) |
165 | static ihandle ofw_open(const char *name) |
159 | { |
166 | { |
160 | return ofw_call("open", 1, 1, NULL, name); |
167 | return ofw_call("open", 1, 1, NULL, name); |
161 | } |
168 | } |
162 | 169 | ||
163 | 170 | ||
164 | void ofw_write(const char *str, const int len) |
171 | void ofw_write(const char *str, const int len) |
165 | { |
172 | { |
166 | if (ofw_stdout == 0) |
173 | if (ofw_stdout == 0) |
167 | return; |
174 | return; |
168 | 175 | ||
169 | ofw_call("write", 3, 1, NULL, ofw_stdout, str, len); |
176 | ofw_call("write", 3, 1, NULL, ofw_stdout, str, len); |
170 | } |
177 | } |
171 | 178 | ||
172 | 179 | ||
173 | void *ofw_translate(const void *virt) |
180 | void *ofw_translate(const void *virt) |
174 | { |
181 | { |
175 | ofw_arg_t result[4]; |
182 | ofw_arg_t result[4]; |
176 | int shift; |
183 | int shift; |
177 | 184 | ||
178 | if (ofw_call("call-method", 3, 5, result, "translate", ofw_mmu, virt) != 0) { |
185 | if (ofw_call("call-method", 3, 5, result, "translate", ofw_mmu, virt) != 0) { |
179 | puts("Error: MMU method translate() failed, halting.\n"); |
186 | puts("Error: MMU method translate() failed, halting.\n"); |
180 | halt(); |
187 | halt(); |
181 | } |
188 | } |
182 | 189 | ||
183 | if (ofw_translate_failed(result[0])) |
190 | if (ofw_translate_failed(result[0])) |
184 | return NULL; |
191 | return NULL; |
185 | 192 | ||
186 | if (sizeof(unative_t) == 8) |
193 | if (sizeof(unative_t) == 8) |
187 | shift = 32; |
194 | shift = 32; |
188 | else |
195 | else |
189 | shift = 0; |
196 | shift = 0; |
190 | 197 | ||
191 | return (void *) ((result[2]<<shift)|result[3]); |
198 | return (void *) ((result[2]<<shift)|result[3]); |
192 | } |
199 | } |
193 | 200 | ||
194 | void *ofw_claim(const void *virt, const int len) |
201 | void *ofw_claim(const void *virt, const int len) |
195 | { |
202 | { |
196 | ofw_arg_t retaddr; |
203 | ofw_arg_t retaddr; |
197 | int shift; |
204 | int shift; |
198 | 205 | ||
199 | if (ofw_call("call-method", 5, 2, &retaddr, "claim", ofw_mmu, 0, len, virt) != 0) { |
206 | if (ofw_call("call-method", 5, 2, &retaddr, "claim", ofw_mmu, 0, len, virt) != 0) { |
200 | puts("Error: MMU method claim() failed, halting.\n"); |
207 | puts("Error: MMU method claim() failed, halting.\n"); |
201 | halt(); |
208 | halt(); |
202 | } |
209 | } |
203 | 210 | ||
204 | return (void *) retaddr; |
211 | return (void *) retaddr; |
205 | } |
212 | } |
206 | 213 | ||
207 | int ofw_map(const void *phys, const void *virt, const int size, const int mode) |
214 | int ofw_map(const void *phys, const void *virt, const int size, const int mode) |
208 | { |
215 | { |
209 | uintptr_t phys_hi, phys_lo; |
216 | uintptr_t phys_hi, phys_lo; |
210 | 217 | ||
211 | if (sizeof(unative_t) == 8) { |
218 | if (sizeof(unative_t) == 8) { |
212 | int shift = 32; |
219 | int shift = 32; |
213 | phys_hi = (uintptr_t) phys >> shift; |
220 | phys_hi = (uintptr_t) phys >> shift; |
214 | phys_lo = (uintptr_t) phys & 0xffffffff; |
221 | phys_lo = (uintptr_t) phys & 0xffffffff; |
215 | } else { |
222 | } else { |
216 | phys_hi = 0; |
223 | phys_hi = 0; |
217 | phys_lo = (uintptr_t) phys; |
224 | phys_lo = (uintptr_t) phys; |
218 | } |
225 | } |
219 | 226 | ||
220 | return ofw_call("call-method", 7, 1, NULL, "map", ofw_mmu, mode, size, virt, |
227 | return ofw_call("call-method", 7, 1, NULL, "map", ofw_mmu, mode, size, virt, |
221 | phys_hi, phys_lo); |
228 | phys_hi, phys_lo); |
222 | } |
229 | } |
223 | 230 | ||
224 | 231 | ||
225 | int ofw_memmap(memmap_t *map) |
232 | int ofw_memmap(memmap_t *map) |
226 | { |
233 | { |
227 | unsigned int ac = ofw_get_address_cells(ofw_memory); |
234 | unsigned int ac = ofw_get_address_cells(ofw_memory); |
228 | unsigned int sc = ofw_get_size_cells(ofw_memory); |
235 | unsigned int sc = ofw_get_size_cells(ofw_memory); |
229 | 236 | ||
230 | uint32_t buf[((ac+sc)*MEMMAP_MAX_RECORDS)]; |
237 | uint32_t buf[((ac+sc)*MEMMAP_MAX_RECORDS)]; |
231 | int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(buf)); |
238 | int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(buf)); |
232 | if (ret <= 0) /* ret is the number of written bytes */ |
239 | if (ret <= 0) /* ret is the number of written bytes */ |
233 | return false; |
240 | return false; |
234 | 241 | ||
235 | int pos; |
242 | int pos; |
236 | map->total = 0; |
243 | map->total = 0; |
237 | map->count = 0; |
244 | map->count = 0; |
238 | for (pos = 0; (pos < ret / sizeof(uint32_t)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) { |
245 | for (pos = 0; (pos < ret / sizeof(uint32_t)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) { |
239 | void * start = (void *) ((uintptr_t) buf[pos + ac - 1]); |
246 | void * start = (void *) ((uintptr_t) buf[pos + ac - 1]); |
240 | unsigned int size = buf[pos + ac + sc - 1]; |
247 | unsigned int size = buf[pos + ac + sc - 1]; |
241 | 248 | ||
242 | if (size > 0) { |
249 | if (size > 0) { |
243 | map->zones[map->count].start = start; |
250 | map->zones[map->count].start = start; |
244 | map->zones[map->count].size = size; |
251 | map->zones[map->count].size = size; |
245 | map->count++; |
252 | map->count++; |
246 | map->total += size; |
253 | map->total += size; |
247 | } |
254 | } |
248 | } |
255 | } |
249 | 256 | ||
250 | return true; |
257 | return true; |
251 | } |
258 | } |
252 | 259 | ||
253 | 260 | ||
254 | int ofw_screen(screen_t *screen) |
261 | int ofw_screen(screen_t *screen) |
255 | { |
262 | { |
256 | char device_name[BUF_SIZE]; |
263 | char device_name[BUF_SIZE]; |
257 | uint32_t virtaddr; |
264 | uint32_t virtaddr; |
258 | 265 | ||
259 | if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(device_name)) <= 0) |
266 | if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(device_name)) <= 0) |
260 | return false; |
267 | return false; |
261 | 268 | ||
262 | phandle device = ofw_find_device(device_name); |
269 | phandle device = ofw_find_device(device_name); |
263 | if (device == -1) |
270 | if (device == -1) |
264 | return false; |
271 | return false; |
265 | 272 | ||
266 | if (ofw_get_property(device, "address", &virtaddr, sizeof(virtaddr)) <= 0) |
273 | if (ofw_get_property(device, "address", &virtaddr, sizeof(virtaddr)) <= 0) |
267 | return false; |
274 | return false; |
268 | 275 | ||
269 | screen->addr = (void *) ((uintptr_t) virtaddr); |
276 | screen->addr = (void *) ((uintptr_t) virtaddr); |
270 | 277 | ||
271 | if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0) |
278 | if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0) |
272 | return false; |
279 | return false; |
273 | 280 | ||
274 | if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0) |
281 | if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0) |
275 | return false; |
282 | return false; |
276 | 283 | ||
277 | if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0) |
284 | if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0) |
278 | return false; |
285 | return false; |
279 | 286 | ||
280 | if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0) |
287 | if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0) |
281 | return false; |
288 | return false; |
282 | 289 | ||
283 | return true; |
290 | return true; |
284 | } |
291 | } |
285 | 292 |