Subversion Repositories HelenOS-historic

Rev

Rev 1620 | Rev 1764 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1620 Rev 1755
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 "asm.h"
30
#include "asm.h"
31
#include "printf.h"
31
#include "printf.h"
32
 
32
 
33
#define MAX_OFW_ARGS    10
33
#define MAX_OFW_ARGS    10
34
#define BUF_SIZE        1024
34
#define BUF_SIZE        1024
35
 
35
 
36
typedef unsigned int ofw_arg_t;
36
typedef unsigned int ofw_arg_t;
37
typedef unsigned int ihandle;
37
typedef unsigned int ihandle;
38
typedef unsigned int phandle;
38
typedef unsigned int phandle;
39
 
39
 
40
/** OpenFirmware command structure
40
/** OpenFirmware command structure
41
 *
41
 *
42
 */
42
 */
43
typedef struct {
43
typedef struct {
44
    const char *service;          /**< Command name */
44
    const char *service;          /**< Command name */
45
    unsigned int nargs;           /**< Number of in arguments */
45
    unsigned int nargs;           /**< Number of in arguments */
46
    unsigned int nret;            /**< Number of out arguments */
46
    unsigned int nret;            /**< Number of out arguments */
47
    ofw_arg_t args[MAX_OFW_ARGS]; /**< List of arguments */
47
    ofw_arg_t args[MAX_OFW_ARGS]; /**< List of arguments */
48
} ofw_args_t;
48
} ofw_args_t;
49
 
49
 
50
typedef void (*ofw_entry)(ofw_args_t *);
50
typedef void (*ofw_entry)(ofw_args_t *);
51
 
51
 
52
 
52
 
-
 
53
typedef struct {
-
 
54
    unsigned int info;
-
 
55
    unsigned int addr_hi;
-
 
56
    unsigned int addr_lo;
-
 
57
} pci_addr_t;
-
 
58
 
-
 
59
typedef struct {
-
 
60
    pci_addr_t addr;
-
 
61
    unsigned int size_hi;
-
 
62
    unsigned int size_lo;
-
 
63
} pci_reg_t;
-
 
64
 
-
 
65
 
53
ofw_entry ofw;
66
ofw_entry ofw;
54
 
67
 
55
phandle ofw_chosen;
68
phandle ofw_chosen;
56
ihandle ofw_stdout;
69
ihandle ofw_stdout;
57
phandle ofw_root;
70
phandle ofw_root;
58
ihandle ofw_mmu;
71
ihandle ofw_mmu;
59
phandle ofw_memory;
72
phandle ofw_memory;
60
phandle ofw_aliases;
73
phandle ofw_aliases;
61
 
74
 
62
 
75
 
63
static int ofw_call(const char *service, const int nargs, const int nret, ofw_arg_t *rets, ...)
76
static int ofw_call(const char *service, const int nargs, const int nret, ofw_arg_t *rets, ...)
64
{
77
{
65
    va_list list;
78
    va_list list;
66
    ofw_args_t args;
79
    ofw_args_t args;
67
    int i;
80
    int i;
68
   
81
   
69
    args.service = service;
82
    args.service = service;
70
    args.nargs = nargs;
83
    args.nargs = nargs;
71
    args.nret = nret;
84
    args.nret = nret;
72
   
85
   
73
    va_start(list, rets);
86
    va_start(list, rets);
74
    for (i = 0; i < nargs; i++)
87
    for (i = 0; i < nargs; i++)
75
        args.args[i] = va_arg(list, ofw_arg_t);
88
        args.args[i] = va_arg(list, ofw_arg_t);
76
    va_end(list);
89
    va_end(list);
77
   
90
   
78
    for (i = 0; i < nret; i++)
91
    for (i = 0; i < nret; i++)
79
        args.args[i + nargs] = 0;
92
        args.args[i + nargs] = 0;
80
   
93
   
81
    ofw(&args);
94
    ofw(&args);
82
   
95
   
83
    for (i = 1; i < nret; i++)
96
    for (i = 1; i < nret; i++)
84
        rets[i - 1] = args.args[i + nargs];
97
        rets[i - 1] = args.args[i + nargs];
85
   
98
   
86
    return args.args[nargs];
99
    return args.args[nargs];
87
}
100
}
88
 
101
 
89
 
102
 
90
static phandle ofw_find_device(const char *name)
103
static phandle ofw_find_device(const char *name)
91
{
104
{
92
    return ofw_call("finddevice", 1, 1, NULL, name);
105
    return ofw_call("finddevice", 1, 1, NULL, name);
93
}
106
}
94
 
107
 
95
 
108
 
96
static int ofw_get_property(const phandle device, const char *name, const void *buf, const int buflen)
109
static int ofw_get_property(const phandle device, const char *name, const void *buf, const int buflen)
97
{
110
{
98
    return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen);
111
    return ofw_call("getprop", 4, 1, NULL, device, name, buf, buflen);
99
}
112
}
100
 
113
 
101
 
114
 
102
static unsigned int ofw_get_address_cells(const phandle device)
115
static unsigned int ofw_get_address_cells(const phandle device)
103
{
116
{
104
    unsigned int ret;
117
    unsigned int ret;
105
   
118
   
106
    if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0)
119
    if (ofw_get_property(device, "#address-cells", &ret, sizeof(ret)) <= 0)
107
        if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0)
120
        if (ofw_get_property(ofw_root, "#address-cells", &ret, sizeof(ret)) <= 0)
108
            ret = 1;
121
            ret = 1;
109
   
122
   
110
    return ret;
123
    return ret;
111
}
124
}
112
 
125
 
113
 
126
 
114
static unsigned int ofw_get_size_cells(const phandle device)
127
static unsigned int ofw_get_size_cells(const phandle device)
115
{
128
{
116
    unsigned int ret;
129
    unsigned int ret;
117
   
130
   
118
    if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0)
131
    if (ofw_get_property(device, "#size-cells", &ret, sizeof(ret)) <= 0)
119
        if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0)
132
        if (ofw_get_property(ofw_root, "#size-cells", &ret, sizeof(ret)) <= 0)
120
            ret = 1;
133
            ret = 1;
121
   
134
   
122
    return ret;
135
    return ret;
123
}
136
}
124
 
137
 
125
 
138
 
126
static ihandle ofw_open(const char *name)
139
static ihandle ofw_open(const char *name)
127
{
140
{
128
    return ofw_call("open", 1, 1, NULL, name);
141
    return ofw_call("open", 1, 1, NULL, name);
129
}
142
}
130
 
143
 
131
 
144
 
132
void init(void)
145
void init(void)
133
{
146
{
134
    ofw_chosen = ofw_find_device("/chosen");
147
    ofw_chosen = ofw_find_device("/chosen");
135
    if (ofw_chosen == -1)
148
    if (ofw_chosen == -1)
136
        halt();
149
        halt();
137
   
150
   
138
    if (ofw_get_property(ofw_chosen, "stdout",  &ofw_stdout, sizeof(ofw_stdout)) <= 0)
151
    if (ofw_get_property(ofw_chosen, "stdout",  &ofw_stdout, sizeof(ofw_stdout)) <= 0)
139
        ofw_stdout = 0;
152
        ofw_stdout = 0;
140
   
153
   
141
    ofw_root = ofw_find_device("/");
154
    ofw_root = ofw_find_device("/");
142
    if (ofw_root == -1) {
155
    if (ofw_root == -1) {
143
        puts("\r\nError: Unable to find / device, halted.\r\n");
156
        puts("\r\nError: Unable to find / device, halted.\r\n");
144
        halt();
157
        halt();
145
    }
158
    }
146
   
159
   
147
    if (ofw_get_property(ofw_chosen, "mmu",  &ofw_mmu, sizeof(ofw_mmu)) <= 0) {
160
    if (ofw_get_property(ofw_chosen, "mmu",  &ofw_mmu, sizeof(ofw_mmu)) <= 0) {
148
        puts("\r\nError: Unable to get mmu property, halted.\r\n");
161
        puts("\r\nError: Unable to get mmu property, halted.\r\n");
149
        halt();
162
        halt();
150
    }
163
    }
151
   
164
   
152
    ofw_memory = ofw_find_device("/memory");
165
    ofw_memory = ofw_find_device("/memory");
153
    if (ofw_memory == -1) {
166
    if (ofw_memory == -1) {
154
        puts("\r\nError: Unable to find /memory device, halted.\r\n");
167
        puts("\r\nError: Unable to find /memory device, halted.\r\n");
155
        halt();
168
        halt();
156
    }
169
    }
157
   
170
   
158
    ofw_aliases = ofw_find_device("/aliases");
171
    ofw_aliases = ofw_find_device("/aliases");
159
    if (ofw_aliases == -1) {
172
    if (ofw_aliases == -1) {
160
        puts("\r\nError: Unable to find /aliases device, halted.\r\n");
173
        puts("\r\nError: Unable to find /aliases device, halted.\r\n");
161
        halt();
174
        halt();
162
    }
175
    }
163
}
176
}
164
 
177
 
165
 
178
 
166
void ofw_write(const char *str, const int len)
179
void ofw_write(const char *str, const int len)
167
{
180
{
168
    if (ofw_stdout == 0)
181
    if (ofw_stdout == 0)
169
        return;
182
        return;
170
   
183
   
171
    ofw_call("write", 3, 1, NULL, ofw_stdout, str, len);
184
    ofw_call("write", 3, 1, NULL, ofw_stdout, str, len);
172
}
185
}
173
 
186
 
174
 
187
 
175
void *ofw_translate(const void *virt)
188
void *ofw_translate(const void *virt)
176
{
189
{
177
    ofw_arg_t result[3];
190
    ofw_arg_t result[3];
178
   
191
   
179
    if (ofw_call("call-method", 4, 4, result, "translate", ofw_mmu, virt, 1) != 0) {
192
    if (ofw_call("call-method", 4, 4, result, "translate", ofw_mmu, virt, 1) != 0) {
180
        puts("Error: MMU method translate() failed, halting.\n");
193
        puts("Error: MMU method translate() failed, halting.\n");
181
        halt();
194
        halt();
182
    }
195
    }
183
    return (void *) result[2];
196
    return (void *) result[2];
184
}
197
}
185
 
198
 
186
 
199
 
187
int ofw_map(const void *phys, const void *virt, const int size, const int mode)
200
int ofw_map(const void *phys, const void *virt, const int size, const int mode)
188
{
201
{
189
    return ofw_call("call-method", 6, 1, NULL, "map", ofw_mmu, mode, size, virt, phys);
202
    return ofw_call("call-method", 6, 1, NULL, "map", ofw_mmu, mode, size, virt, phys);
190
}
203
}
191
 
204
 
192
 
205
 
193
int ofw_memmap(memmap_t *map)
206
int ofw_memmap(memmap_t *map)
194
{
207
{
195
    unsigned int buf[BUF_SIZE];
208
    unsigned int buf[BUF_SIZE];
196
    int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(unsigned int) * BUF_SIZE);
209
    int ret = ofw_get_property(ofw_memory, "reg", buf, sizeof(unsigned int) * BUF_SIZE);
197
    if (ret <= 0)
210
    if (ret <= 0)
198
        return false;
211
        return false;
199
       
212
       
200
    unsigned int ac = ofw_get_address_cells(ofw_memory);
213
    unsigned int ac = ofw_get_address_cells(ofw_memory);
201
    unsigned int sc = ofw_get_size_cells(ofw_memory);
214
    unsigned int sc = ofw_get_size_cells(ofw_memory);
202
   
215
   
203
    int pos;
216
    int pos;
204
    map->total = 0;
217
    map->total = 0;
205
    map->count = 0;
218
    map->count = 0;
206
    for (pos = 0; (pos < ret / sizeof(unsigned int)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) {
219
    for (pos = 0; (pos < ret / sizeof(unsigned int)) && (map->count < MEMMAP_MAX_RECORDS); pos += ac + sc) {
207
        void * start = (void *) buf[pos + ac - 1];
220
        void * start = (void *) buf[pos + ac - 1];
208
        unsigned int size = buf[pos + ac + sc - 1];
221
        unsigned int size = buf[pos + ac + sc - 1];
209
       
222
       
210
        if (size > 0) {
223
        if (size > 0) {
211
            map->zones[map->count].start = start;
224
            map->zones[map->count].start = start;
212
            map->zones[map->count].size = size;
225
            map->zones[map->count].size = size;
213
            map->count++;
226
            map->count++;
214
            map->total += size;
227
            map->total += size;
215
        }
228
        }
216
    }
229
    }
217
}
230
}
218
 
231
 
219
 
232
 
220
int ofw_screen(screen_t *screen)
233
int ofw_screen(screen_t *screen)
221
{
234
{
222
    char device_name[BUF_SIZE];
235
    char device_name[BUF_SIZE];
223
   
236
   
224
    if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(char) * BUF_SIZE) <= 0)
237
    if (ofw_get_property(ofw_aliases, "screen", device_name, sizeof(char) * BUF_SIZE) <= 0)
225
        return false;
238
        return false;
226
   
239
   
227
    phandle device = ofw_find_device(device_name);
240
    phandle device = ofw_find_device(device_name);
228
    if (device == -1)
241
    if (device == -1)
229
        return false;
242
        return false;
230
   
243
   
231
    if (ofw_get_property(device, "address", &screen->addr, sizeof(screen->addr)) <= 0)
244
    if (ofw_get_property(device, "address", &screen->addr, sizeof(screen->addr)) <= 0)
232
        return false;
245
        return false;
233
   
246
   
234
    if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0)
247
    if (ofw_get_property(device, "width", &screen->width, sizeof(screen->width)) <= 0)
235
        return false;
248
        return false;
236
   
249
   
237
    if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0)
250
    if (ofw_get_property(device, "height", &screen->height, sizeof(screen->height)) <= 0)
238
        return false;
251
        return false;
239
   
252
   
240
    if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0)
253
    if (ofw_get_property(device, "depth", &screen->bpp, sizeof(screen->bpp)) <= 0)
241
        return false;
254
        return false;
242
   
255
   
243
    if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0)
256
    if (ofw_get_property(device, "linebytes", &screen->scanline, sizeof(screen->scanline)) <= 0)
244
        return false;
257
        return false;
245
   
258
   
246
    return true;
259
    return true;
247
}
260
}
248
 
261
 
249
 
262
 
250
int ofw_keyboard(keyboard_t *keyboard)
263
int ofw_keyboard(keyboard_t *keyboard)
251
{
264
{
252
    char device_name[BUF_SIZE];
265
    char device_name[BUF_SIZE];
253
   
266
   
254
    if (ofw_get_property(ofw_aliases, "macio", device_name, sizeof(char) * BUF_SIZE) <= 0)
267
    if (ofw_get_property(ofw_aliases, "macio", device_name, sizeof(char) * BUF_SIZE) <= 0)
255
        return false;
268
        return false;
256
   
269
   
257
    phandle device = ofw_find_device(device_name);
270
    phandle device = ofw_find_device(device_name);
258
    if (device == -1)
271
    if (device == -1)
259
        return false;
272
        return false;
260
   
273
   
-
 
274
    pci_reg_t macio;
-
 
275
    if (ofw_get_property(device, "assigned-addresses", &macio, sizeof(macio)) <= 0)
261
    // FIXME
276
        return false;
-
 
277
   
262
    keyboard->addr = (void *) 0x80816000;
278
    keyboard->addr = (void *) macio.addr.addr_lo;
263
    keyboard->size = 7680;
279
    keyboard->size = macio.size_lo;
264
   
280
   
265
    return true;
281
    return true;
266
}
282
}
267
 
283