Subversion Repositories HelenOS-historic

Rev

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

Rev 1196 Rev 1266
1
/*
1
/*
2
 * Copyright (C) 2005 Jakub Jermar
2
 * Copyright (C) 2005 Jakub Jermar
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
/**
-
 
30
 * @file    madt.c
-
 
31
 * @brief   Multiple APIC Description Table (MADT) parsing.
-
 
32
 */
-
 
33
 
29
#include <arch/types.h>
34
#include <arch/types.h>
30
#include <typedefs.h>
35
#include <typedefs.h>
31
#include <genarch/acpi/acpi.h>
36
#include <genarch/acpi/acpi.h>
32
#include <genarch/acpi/madt.h>
37
#include <genarch/acpi/madt.h>
33
#include <arch/smp/apic.h>
38
#include <arch/smp/apic.h>
34
#include <arch/smp/smp.h>
39
#include <arch/smp/smp.h>
35
#include <panic.h>
40
#include <panic.h>
36
#include <debug.h>
41
#include <debug.h>
37
#include <config.h>
42
#include <config.h>
38
#include <print.h>
43
#include <print.h>
39
#include <mm/slab.h>
44
#include <mm/slab.h>
40
#include <memstr.h>
45
#include <memstr.h>
41
#include <sort.h>
46
#include <sort.h>
42
 
47
 
43
struct acpi_madt *acpi_madt = NULL;
48
struct acpi_madt *acpi_madt = NULL;
44
 
49
 
45
#ifdef CONFIG_SMP
50
#ifdef CONFIG_SMP
46
 
51
 
47
/** Standard ISA IRQ map; can be overriden by Interrupt Source Override entries of MADT. */
52
/** Standard ISA IRQ map; can be overriden by Interrupt Source Override entries of MADT. */
48
int isa_irq_map[] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 };
53
int isa_irq_map[] = { 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15 };
49
 
54
 
50
static void madt_l_apic_entry(struct madt_l_apic *la, __u32 index);
55
static void madt_l_apic_entry(struct madt_l_apic *la, __u32 index);
51
static void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index);
56
static void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index);
52
static void madt_intr_src_ovrd_entry(struct madt_intr_src_ovrd *override, __u32 index);
57
static void madt_intr_src_ovrd_entry(struct madt_intr_src_ovrd *override, __u32 index);
53
static int madt_cmp(void * a, void * b);
58
static int madt_cmp(void * a, void * b);
54
 
59
 
55
struct madt_l_apic *madt_l_apic_entries = NULL;
60
struct madt_l_apic *madt_l_apic_entries = NULL;
56
struct madt_io_apic *madt_io_apic_entries = NULL;
61
struct madt_io_apic *madt_io_apic_entries = NULL;
57
 
62
 
58
index_t madt_l_apic_entry_index = 0;
63
index_t madt_l_apic_entry_index = 0;
59
index_t madt_io_apic_entry_index = 0;
64
index_t madt_io_apic_entry_index = 0;
60
count_t madt_l_apic_entry_cnt = 0;
65
count_t madt_l_apic_entry_cnt = 0;
61
count_t madt_io_apic_entry_cnt = 0;
66
count_t madt_io_apic_entry_cnt = 0;
62
count_t cpu_count = 0;
67
count_t cpu_count = 0;
63
 
68
 
64
struct madt_apic_header * * madt_entries_index = NULL;
69
struct madt_apic_header * * madt_entries_index = NULL;
65
int madt_entries_index_cnt = 0;
70
int madt_entries_index_cnt = 0;
66
 
71
 
67
char *entry[] = {
72
char *entry[] = {
68
    "L_APIC",
73
    "L_APIC",
69
    "IO_APIC",
74
    "IO_APIC",
70
    "INTR_SRC_OVRD",
75
    "INTR_SRC_OVRD",
71
    "NMI_SRC",
76
    "NMI_SRC",
72
    "L_APIC_NMI",
77
    "L_APIC_NMI",
73
    "L_APIC_ADDR_OVRD",
78
    "L_APIC_ADDR_OVRD",
74
    "IO_SAPIC",
79
    "IO_SAPIC",
75
    "L_SAPIC",
80
    "L_SAPIC",
76
    "PLATFORM_INTR_SRC"
81
    "PLATFORM_INTR_SRC"
77
};
82
};
78
 
83
 
79
/*
84
/*
80
 * ACPI MADT Implementation of SMP configuration interface.
85
 * ACPI MADT Implementation of SMP configuration interface.
81
 */
86
 */
82
static count_t madt_cpu_count(void);
87
static count_t madt_cpu_count(void);
83
static bool madt_cpu_enabled(index_t i);
88
static bool madt_cpu_enabled(index_t i);
84
static bool madt_cpu_bootstrap(index_t i);
89
static bool madt_cpu_bootstrap(index_t i);
85
static __u8 madt_cpu_apic_id(index_t i);
90
static __u8 madt_cpu_apic_id(index_t i);
86
static int madt_irq_to_pin(int irq);
91
static int madt_irq_to_pin(int irq);
87
 
92
 
88
struct smp_config_operations madt_config_operations = {
93
struct smp_config_operations madt_config_operations = {
89
    .cpu_count = madt_cpu_count,
94
    .cpu_count = madt_cpu_count,
90
    .cpu_enabled = madt_cpu_enabled,
95
    .cpu_enabled = madt_cpu_enabled,
91
    .cpu_bootstrap = madt_cpu_bootstrap,
96
    .cpu_bootstrap = madt_cpu_bootstrap,
92
    .cpu_apic_id = madt_cpu_apic_id,
97
    .cpu_apic_id = madt_cpu_apic_id,
93
    .irq_to_pin = madt_irq_to_pin
98
    .irq_to_pin = madt_irq_to_pin
94
};
99
};
95
 
100
 
96
count_t madt_cpu_count(void)
101
count_t madt_cpu_count(void)
97
{
102
{
98
    return madt_l_apic_entry_cnt;
103
    return madt_l_apic_entry_cnt;
99
}
104
}
100
 
105
 
101
bool madt_cpu_enabled(index_t i)
106
bool madt_cpu_enabled(index_t i)
102
{
107
{
103
    ASSERT(i < madt_l_apic_entry_cnt);
108
    ASSERT(i < madt_l_apic_entry_cnt);
104
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->flags & 0x1;
109
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->flags & 0x1;
105
 
110
 
106
}
111
}
107
 
112
 
108
bool madt_cpu_bootstrap(index_t i)
113
bool madt_cpu_bootstrap(index_t i)
109
{
114
{
110
    ASSERT(i < madt_l_apic_entry_cnt);
115
    ASSERT(i < madt_l_apic_entry_cnt);
111
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id == l_apic_id();
116
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id == l_apic_id();
112
}
117
}
113
 
118
 
114
__u8 madt_cpu_apic_id(index_t i)
119
__u8 madt_cpu_apic_id(index_t i)
115
{
120
{
116
    ASSERT(i < madt_l_apic_entry_cnt);
121
    ASSERT(i < madt_l_apic_entry_cnt);
117
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id;
122
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id;
118
}
123
}
119
 
124
 
120
int madt_irq_to_pin(int irq)
125
int madt_irq_to_pin(int irq)
121
{
126
{
122
    ASSERT(irq < sizeof(isa_irq_map)/sizeof(int));
127
    ASSERT(irq < sizeof(isa_irq_map)/sizeof(int));
123
        return isa_irq_map[irq];
128
        return isa_irq_map[irq];
124
}
129
}
125
 
130
 
126
int madt_cmp(void * a, void * b)
131
int madt_cmp(void * a, void * b)
127
{
132
{
128
    return
133
    return
129
        (((struct madt_apic_header *) a)->type > ((struct madt_apic_header *) b)->type) ?
134
        (((struct madt_apic_header *) a)->type > ((struct madt_apic_header *) b)->type) ?
130
        1 :
135
        1 :
131
        ((((struct madt_apic_header *) a)->type < ((struct madt_apic_header *) b)->type) ? -1 : 0);
136
        ((((struct madt_apic_header *) a)->type < ((struct madt_apic_header *) b)->type) ? -1 : 0);
132
}
137
}
133
   
138
   
134
void acpi_madt_parse(void)
139
void acpi_madt_parse(void)
135
{
140
{
136
    struct madt_apic_header *end = (struct madt_apic_header *) (((__u8 *) acpi_madt) + acpi_madt->header.length);
141
    struct madt_apic_header *end = (struct madt_apic_header *) (((__u8 *) acpi_madt) + acpi_madt->header.length);
137
    struct madt_apic_header *h;
142
    struct madt_apic_header *h;
138
   
143
   
139
        l_apic = (__u32 *) (__native) acpi_madt->l_apic_address;
144
        l_apic = (__u32 *) (__native) acpi_madt->l_apic_address;
140
 
145
 
141
    /* calculate madt entries */
146
    /* calculate madt entries */
142
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
147
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
143
        madt_entries_index_cnt++;
148
        madt_entries_index_cnt++;
144
    }
149
    }
145
 
150
 
146
    /* create madt apic entries index array */
151
    /* create madt apic entries index array */
147
    madt_entries_index = (struct madt_apic_header * *) malloc(madt_entries_index_cnt * sizeof(struct madt_apic_header * *), FRAME_ATOMIC);
152
    madt_entries_index = (struct madt_apic_header * *) malloc(madt_entries_index_cnt * sizeof(struct madt_apic_header * *), FRAME_ATOMIC);
148
    if (!madt_entries_index)
153
    if (!madt_entries_index)
149
        panic("Memory allocation error.");
154
        panic("Memory allocation error.");
150
 
155
 
151
    __u32 index = 0;
156
    __u32 index = 0;
152
 
157
 
153
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
158
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
154
        madt_entries_index[index++] = h;
159
        madt_entries_index[index++] = h;
155
    }
160
    }
156
 
161
 
157
    /* Quicksort MADT index structure */
162
    /* Quicksort MADT index structure */
158
    qsort(madt_entries_index, madt_entries_index_cnt, sizeof(__address), &madt_cmp);
163
    qsort(madt_entries_index, madt_entries_index_cnt, sizeof(__address), &madt_cmp);
159
 
164
 
160
    /* Parse MADT entries */   
165
    /* Parse MADT entries */   
161
    for (index = 0; index < madt_entries_index_cnt - 1; index++) {
166
    for (index = 0; index < madt_entries_index_cnt - 1; index++) {
162
        h = madt_entries_index[index];
167
        h = madt_entries_index[index];
163
        switch (h->type) {
168
        switch (h->type) {
164
            case MADT_L_APIC:
169
            case MADT_L_APIC:
165
                madt_l_apic_entry((struct madt_l_apic *) h, index);
170
                madt_l_apic_entry((struct madt_l_apic *) h, index);
166
                break;
171
                break;
167
            case MADT_IO_APIC:
172
            case MADT_IO_APIC:
168
                madt_io_apic_entry((struct madt_io_apic *) h, index);
173
                madt_io_apic_entry((struct madt_io_apic *) h, index);
169
                break;
174
                break;
170
            case MADT_INTR_SRC_OVRD:
175
            case MADT_INTR_SRC_OVRD:
171
                madt_intr_src_ovrd_entry((struct madt_intr_src_ovrd *) h, index);
176
                madt_intr_src_ovrd_entry((struct madt_intr_src_ovrd *) h, index);
172
                break;
177
                break;
173
            case MADT_NMI_SRC:
178
            case MADT_NMI_SRC:
174
            case MADT_L_APIC_NMI:
179
            case MADT_L_APIC_NMI:
175
            case MADT_L_APIC_ADDR_OVRD:
180
            case MADT_L_APIC_ADDR_OVRD:
176
            case MADT_IO_SAPIC:
181
            case MADT_IO_SAPIC:
177
            case MADT_L_SAPIC:
182
            case MADT_L_SAPIC:
178
            case MADT_PLATFORM_INTR_SRC:
183
            case MADT_PLATFORM_INTR_SRC:
179
                printf("MADT: skipping %s entry (type=%zd)\n", entry[h->type], h->type);
184
                printf("MADT: skipping %s entry (type=%zd)\n", entry[h->type], h->type);
180
                break;
185
                break;
181
 
186
 
182
            default:
187
            default:
183
                if (h->type >= MADT_RESERVED_SKIP_BEGIN && h->type <= MADT_RESERVED_SKIP_END) {
188
                if (h->type >= MADT_RESERVED_SKIP_BEGIN && h->type <= MADT_RESERVED_SKIP_END) {
184
                    printf("MADT: skipping reserved entry (type=%zd)\n", h->type);
189
                    printf("MADT: skipping reserved entry (type=%zd)\n", h->type);
185
                }
190
                }
186
                if (h->type >= MADT_RESERVED_OEM_BEGIN) {
191
                if (h->type >= MADT_RESERVED_OEM_BEGIN) {
187
                    printf("MADT: skipping OEM entry (type=%zd)\n", h->type);
192
                    printf("MADT: skipping OEM entry (type=%zd)\n", h->type);
188
                }
193
                }
189
                break;
194
                break;
190
        }
195
        }
191
   
196
   
192
   
197
   
193
    }
198
    }
194
   
199
   
195
 
200
 
196
    if (cpu_count)
201
    if (cpu_count)
197
        config.cpu_count = cpu_count;
202
        config.cpu_count = cpu_count;
198
}
203
}
199
 
204
 
200
 
205
 
201
void madt_l_apic_entry(struct madt_l_apic *la, __u32 index)
206
void madt_l_apic_entry(struct madt_l_apic *la, __u32 index)
202
{
207
{
203
    if (!madt_l_apic_entry_cnt++) {
208
    if (!madt_l_apic_entry_cnt++) {
204
        madt_l_apic_entry_index = index;
209
        madt_l_apic_entry_index = index;
205
    }
210
    }
206
       
211
       
207
    if (!(la->flags & 0x1)) {
212
    if (!(la->flags & 0x1)) {
208
        /* Processor is unusable, skip it. */
213
        /* Processor is unusable, skip it. */
209
        return;
214
        return;
210
    }
215
    }
211
   
216
   
212
    cpu_count++;   
217
    cpu_count++;   
213
    apic_id_mask |= 1<<la->apic_id;
218
    apic_id_mask |= 1<<la->apic_id;
214
}
219
}
215
 
220
 
216
void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index)
221
void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index)
217
{
222
{
218
    if (!madt_io_apic_entry_cnt++) {
223
    if (!madt_io_apic_entry_cnt++) {
219
        /* remember index of the first io apic entry */
224
        /* remember index of the first io apic entry */
220
        madt_io_apic_entry_index = index;
225
        madt_io_apic_entry_index = index;
221
        io_apic = (__u32 *) (__native) ioa->io_apic_address;
226
        io_apic = (__u32 *) (__native) ioa->io_apic_address;
222
    } else {
227
    } else {
223
        /* currently not supported */
228
        /* currently not supported */
224
        return;
229
        return;
225
    }
230
    }
226
}
231
}
227
 
232
 
228
void madt_intr_src_ovrd_entry(struct madt_intr_src_ovrd *override, __u32 index)
233
void madt_intr_src_ovrd_entry(struct madt_intr_src_ovrd *override, __u32 index)
229
{
234
{
230
    ASSERT(override->source < sizeof(isa_irq_map)/sizeof(int));
235
    ASSERT(override->source < sizeof(isa_irq_map)/sizeof(int));
231
    printf("MADT: ignoring %s entry: bus=%zd, source=%zd, global_int=%zd, flags=%#hX\n",
236
    printf("MADT: ignoring %s entry: bus=%zd, source=%zd, global_int=%zd, flags=%#hX\n",
232
        entry[override->header.type], override->bus, override->source,
237
        entry[override->header.type], override->bus, override->source,
233
        override->global_int, override->flags);
238
        override->global_int, override->flags);
234
}
239
}
235
 
240
 
236
#endif /* CONFIG_SMP */
241
#endif /* CONFIG_SMP */
237
 
242