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