Subversion Repositories HelenOS

Rev

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

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