Subversion Repositories HelenOS-historic

Rev

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

Rev 331 Rev 334
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
#include <arch/types.h>
29
#include <arch/types.h>
30
#include <typedefs.h>
30
#include <typedefs.h>
31
#include <arch/acpi/acpi.h>
31
#include <arch/acpi/acpi.h>
32
#include <arch/acpi/madt.h>
32
#include <arch/acpi/madt.h>
33
#include <arch/smp/apic.h>
33
#include <arch/smp/apic.h>
34
#include <arch/smp/smp.h>
34
#include <arch/smp/smp.h>
35
#include <panic.h>
35
#include <panic.h>
36
#include <debug.h>
36
#include <debug.h>
37
#include <config.h>
37
#include <config.h>
38
#include <print.h>
38
#include <print.h>
39
#include <mm/heap.h>
39
#include <mm/heap.h>
40
#include <memstr.h>
40
#include <memstr.h>
41
#include <sort.h>
41
#include <sort.h>
42
 
42
 
43
struct acpi_madt *acpi_madt = NULL;
43
struct acpi_madt *acpi_madt = NULL;
44
 
44
 
45
#ifdef __SMP__
45
#ifdef __SMP__
46
 
46
 
47
static void madt_l_apic_entry(struct madt_l_apic *la, __u32 index);
47
static void madt_l_apic_entry(struct madt_l_apic *la, __u32 index);
48
static void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index);
48
static void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index);
49
static int madt_cmp(void * a, void * b);
49
static int madt_cmp(void * a, void * b);
50
 
50
 
51
struct madt_l_apic *madt_l_apic_entries = NULL;
51
struct madt_l_apic *madt_l_apic_entries = NULL;
52
struct madt_io_apic *madt_io_apic_entries = NULL;
52
struct madt_io_apic *madt_io_apic_entries = NULL;
53
 
53
 
54
__u32 madt_l_apic_entry_index = 0;
54
__u32 madt_l_apic_entry_index = 0;
55
__u32 madt_io_apic_entry_index = 0;
55
__u32 madt_io_apic_entry_index = 0;
56
int madt_l_apic_entry_cnt = 0;
56
int madt_l_apic_entry_cnt = 0;
57
int madt_io_apic_entry_cnt = 0;
57
int madt_io_apic_entry_cnt = 0;
58
 
58
 
59
struct madt_apic_header * * madt_entries_index = NULL;
59
struct madt_apic_header * * madt_entries_index = NULL;
60
int madt_entries_index_cnt = 0;
60
int madt_entries_index_cnt = 0;
61
 
61
 
62
char *entry[] = {
62
char *entry[] = {
63
    "L_APIC",
63
    "L_APIC",
64
    "IO_APIC",
64
    "IO_APIC",
65
    "INTR_SRC_OVRD",
65
    "INTR_SRC_OVRD",
66
    "NMI_SRC",
66
    "NMI_SRC",
67
    "L_APIC_NMI",
67
    "L_APIC_NMI",
68
    "L_APIC_ADDR_OVRD",
68
    "L_APIC_ADDR_OVRD",
69
    "IO_SAPIC",
69
    "IO_SAPIC",
70
    "L_SAPIC",
70
    "L_SAPIC",
71
    "PLATFORM_INTR_SRC"
71
    "PLATFORM_INTR_SRC"
72
};
72
};
73
 
73
 
74
/*
74
/*
75
 * ACPI MADT Implementation of SMP configuration interface.
75
 * ACPI MADT Implementation of SMP configuration interface.
76
 */
76
 */
77
static count_t madt_cpu_count(void);
77
static count_t madt_cpu_count(void);
78
static bool madt_cpu_enabled(index_t i);
78
static bool madt_cpu_enabled(index_t i);
79
static bool madt_cpu_bootstrap(index_t i);
79
static bool madt_cpu_bootstrap(index_t i);
80
static __u8 madt_cpu_apic_id(index_t i);
80
static __u8 madt_cpu_apic_id(index_t i);
81
 
81
 
82
struct smp_config_operations madt_config_operations = {
82
struct smp_config_operations madt_config_operations = {
83
    .cpu_count = madt_cpu_count,
83
    .cpu_count = madt_cpu_count,
84
    .cpu_enabled = madt_cpu_enabled,
84
    .cpu_enabled = madt_cpu_enabled,
85
    .cpu_bootstrap = madt_cpu_bootstrap,
85
    .cpu_bootstrap = madt_cpu_bootstrap,
86
    .cpu_apic_id = madt_cpu_apic_id
86
    .cpu_apic_id = madt_cpu_apic_id
87
};
87
};
88
 
88
 
89
static count_t madt_cpu_count(void)
89
static count_t madt_cpu_count(void)
90
{
90
{
91
    return madt_l_apic_entry_cnt;
91
    return madt_l_apic_entry_cnt;
92
}
92
}
93
 
93
 
94
static bool madt_cpu_enabled(index_t i)
94
static bool madt_cpu_enabled(index_t i)
95
{
95
{
96
    ASSERT(i < madt_l_apic_entry_cnt);
96
    ASSERT(i < madt_l_apic_entry_cnt);
97
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->flags & 0x1;
97
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->flags & 0x1;
98
 
98
 
99
}
99
}
100
 
100
 
101
static bool madt_cpu_bootstrap(index_t i)
101
static bool madt_cpu_bootstrap(index_t i)
102
{
102
{
103
    ASSERT(i < madt_l_apic_entry_cnt);
103
    ASSERT(i < madt_l_apic_entry_cnt);
104
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id == l_apic_id();
104
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id == l_apic_id();
105
}
105
}
106
 
106
 
107
static __u8 madt_cpu_apic_id(index_t i)
107
static __u8 madt_cpu_apic_id(index_t i)
108
{
108
{
109
    ASSERT(i < madt_l_apic_entry_cnt);
109
    ASSERT(i < madt_l_apic_entry_cnt);
110
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id;
110
    return ((struct madt_l_apic *) madt_entries_index[madt_l_apic_entry_index + i])->apic_id;
111
}
111
}
112
 
112
 
113
int madt_cmp(void * a, void * b)
113
int madt_cmp(void * a, void * b)
114
{
114
{
115
    return
115
    return
116
    (((struct madt_apic_header *) a)->type > ((struct madt_apic_header *) b)->type) ?
116
    (((struct madt_apic_header *) a)->type > ((struct madt_apic_header *) b)->type) ?
117
    1 :
117
    1 :
118
    ((((struct madt_apic_header *) a)->type < ((struct madt_apic_header *) b)->type) ? -1 : 0);
118
    ((((struct madt_apic_header *) a)->type < ((struct madt_apic_header *) b)->type) ? -1 : 0);
119
}
119
}
120
   
120
   
121
void acpi_madt_parse(void)
121
void acpi_madt_parse(void)
122
{
122
{
123
 
123
 
124
 
124
 
125
    struct madt_apic_header *end = (struct madt_apic_header *) (((__u8 *) acpi_madt) + acpi_madt->header.length);
125
    struct madt_apic_header *end = (struct madt_apic_header *) (((__u8 *) acpi_madt) + acpi_madt->header.length);
126
    struct madt_apic_header *h;
126
    struct madt_apic_header *h;
127
   
127
   
128
        l_apic = (__u32 *) (__native) acpi_madt->l_apic_address;
128
        l_apic = (__u32 *) (__native) acpi_madt->l_apic_address;
129
 
129
 
130
    /* calculate madt entries */
130
    /* calculate madt entries */
131
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
131
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
132
        madt_entries_index_cnt++;
132
        madt_entries_index_cnt++;
133
    }
133
    }
134
    printf("MADT: Found %d entries\n", madt_entries_index_cnt);
-
 
135
 
134
 
136
    /* create madt apic entries index array */
135
    /* create madt apic entries index array */
137
    madt_entries_index = (struct madt_apic_header * *) malloc(madt_entries_index_cnt * sizeof(struct madt_apic_header * *));
136
    madt_entries_index = (struct madt_apic_header * *) malloc(madt_entries_index_cnt * sizeof(struct madt_apic_header * *));
138
 
137
 
139
    __u32 index = 0;
138
    __u32 index = 0;
140
 
139
 
141
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
140
    for (h = &acpi_madt->apic_header[0]; h < end; h = (struct madt_apic_header *) (((__u8 *) h) + h->length)) {
142
        madt_entries_index[index++] = h;
141
        madt_entries_index[index++] = h;
143
    }
142
    }
144
 
143
 
145
 
-
 
146
    /* Quicksort MADT index structure */
144
    /* Quicksort MADT index structure */
147
    qsort(madt_entries_index, madt_entries_index_cnt, sizeof(__address), &madt_cmp);
145
    qsort(madt_entries_index, madt_entries_index_cnt, sizeof(__address), &madt_cmp);
148
 
146
 
149
    /* Parse MADT entries */   
147
    /* Parse MADT entries */   
150
    for (index = 0; index < madt_entries_index_cnt - 1; index++) {
148
    for (index = 0; index < madt_entries_index_cnt - 1; index++) {
151
        h = madt_entries_index[index];
149
        h = madt_entries_index[index];
152
        switch (h->type) {
150
        switch (h->type) {
153
            case MADT_L_APIC:
151
            case MADT_L_APIC:
154
                madt_l_apic_entry((struct madt_l_apic *) h, index);
152
                madt_l_apic_entry((struct madt_l_apic *) h, index);
155
                break;
153
                break;
156
            case MADT_IO_APIC:
154
            case MADT_IO_APIC:
157
                madt_io_apic_entry((struct madt_io_apic *) h, index);
155
                madt_io_apic_entry((struct madt_io_apic *) h, index);
158
                break;
156
                break;
159
            case MADT_INTR_SRC_OVRD:
157
            case MADT_INTR_SRC_OVRD:
160
            case MADT_NMI_SRC:
158
            case MADT_NMI_SRC:
161
            case MADT_L_APIC_NMI:
159
            case MADT_L_APIC_NMI:
162
            case MADT_L_APIC_ADDR_OVRD:
160
            case MADT_L_APIC_ADDR_OVRD:
163
            case MADT_IO_SAPIC:
161
            case MADT_IO_SAPIC:
164
            case MADT_L_SAPIC:
162
            case MADT_L_SAPIC:
165
            case MADT_PLATFORM_INTR_SRC:
163
            case MADT_PLATFORM_INTR_SRC:
166
                printf("MADT: skipping %s entry (type=%d)\n", entry[h->type], h->type);
164
                printf("MADT: skipping %s entry (type=%d)\n", entry[h->type], h->type);
167
                break;
165
                break;
168
 
166
 
169
            default:
167
            default:
170
                if (h->type >= MADT_RESERVED_SKIP_BEGIN && h->type <= MADT_RESERVED_SKIP_END) {
168
                if (h->type >= MADT_RESERVED_SKIP_BEGIN && h->type <= MADT_RESERVED_SKIP_END) {
171
                    printf("MADT: skipping reserved entry (type=%d)\n", h->type);
169
                    printf("MADT: skipping reserved entry (type=%d)\n", h->type);
172
                }
170
                }
173
                if (h->type >= MADT_RESERVED_OEM_BEGIN) {
171
                if (h->type >= MADT_RESERVED_OEM_BEGIN) {
174
                    printf("MADT: skipping OEM entry (type=%d)\n", h->type);
172
                    printf("MADT: skipping OEM entry (type=%d)\n", h->type);
175
                }
173
                }
176
                break;
174
                break;
177
        }
175
        }
178
   
176
   
179
   
177
   
180
    }
178
    }
181
   
179
   
182
 
180
 
183
    if (madt_l_apic_entry_cnt)
181
    if (madt_l_apic_entry_cnt)
184
        config.cpu_count = madt_l_apic_entry_cnt;
182
        config.cpu_count = madt_l_apic_entry_cnt;
185
}
183
}
186
 
184
 
187
 
185
 
188
void madt_l_apic_entry(struct madt_l_apic *la, __u32 index)
186
void madt_l_apic_entry(struct madt_l_apic *la, __u32 index)
189
{
187
{
190
    if (!madt_l_apic_entry_cnt++) {
188
    if (!madt_l_apic_entry_cnt++) {
191
        madt_l_apic_entry_index = index;
189
        madt_l_apic_entry_index = index;
192
    }
190
    }
193
       
191
       
194
    if (!(la->flags & 0x1)) {
192
    if (!(la->flags & 0x1)) {
195
        /* Processor is unusable, skip it. */
193
        /* Processor is unusable, skip it. */
196
        return;
194
        return;
197
    }
195
    }
198
       
196
       
199
    apic_id_mask |= 1<<la->apic_id;
197
    apic_id_mask |= 1<<la->apic_id;
200
}
198
}
201
 
199
 
202
void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index)
200
void madt_io_apic_entry(struct madt_io_apic *ioa, __u32 index)
203
{
201
{
204
    if (!madt_io_apic_entry_cnt++) {
202
    if (!madt_io_apic_entry_cnt++) {
205
        /* remember index of the first io apic entry */
203
        /* remember index of the first io apic entry */
206
        madt_io_apic_entry_index = index;
204
        madt_io_apic_entry_index = index;
207
        io_apic = (__u32 *) (__native) ioa->io_apic_address;
205
        io_apic = (__u32 *) (__native) ioa->io_apic_address;
208
    } else {
206
    } else {
209
        /* currently not supported */
207
        /* currently not supported */
210
        return;
208
        return;
211
    }
209
    }
212
}
210
}
213
 
211
 
214
 
212
 
215
#endif /* __SMP__ */
213
#endif /* __SMP__ */
216
 
214