Merge branch 'sh/for-2.6.30' of git://git.kernel.org/pub/scm/linux/kernel/git/lethal...
[linux-2.6] / arch / x86 / mm / srat_64.c
1 /*
2  * ACPI 3.0 based NUMA setup
3  * Copyright 2004 Andi Kleen, SuSE Labs.
4  *
5  * Reads the ACPI SRAT table to figure out what memory belongs to which CPUs.
6  *
7  * Called from acpi_numa_init while reading the SRAT and SLIT tables.
8  * Assumes all memory regions belonging to a single proximity domain
9  * are in one chunk. Holes between them will be included in the node.
10  */
11
12 #include <linux/kernel.h>
13 #include <linux/acpi.h>
14 #include <linux/mmzone.h>
15 #include <linux/bitmap.h>
16 #include <linux/module.h>
17 #include <linux/topology.h>
18 #include <linux/bootmem.h>
19 #include <linux/mm.h>
20 #include <asm/proto.h>
21 #include <asm/numa.h>
22 #include <asm/e820.h>
23 #include <asm/apic.h>
24 #include <asm/uv/uv.h>
25
26 int acpi_numa __initdata;
27
28 static struct acpi_table_slit *acpi_slit;
29
30 static nodemask_t nodes_parsed __initdata;
31 static nodemask_t cpu_nodes_parsed __initdata;
32 static struct bootnode nodes[MAX_NUMNODES] __initdata;
33 static struct bootnode nodes_add[MAX_NUMNODES];
34 static int found_add_area __initdata;
35 int hotadd_percent __initdata = 0;
36
37 static int num_node_memblks __initdata;
38 static struct bootnode node_memblk_range[NR_NODE_MEMBLKS] __initdata;
39 static int memblk_nodeid[NR_NODE_MEMBLKS] __initdata;
40
41 /* Too small nodes confuse the VM badly. Usually they result
42    from BIOS bugs. */
43 #define NODE_MIN_SIZE (4*1024*1024)
44
45 static __init int setup_node(int pxm)
46 {
47         return acpi_map_pxm_to_node(pxm);
48 }
49
50 static __init int conflicting_memblks(unsigned long start, unsigned long end)
51 {
52         int i;
53         for (i = 0; i < num_node_memblks; i++) {
54                 struct bootnode *nd = &node_memblk_range[i];
55                 if (nd->start == nd->end)
56                         continue;
57                 if (nd->end > start && nd->start < end)
58                         return memblk_nodeid[i];
59                 if (nd->end == end && nd->start == start)
60                         return memblk_nodeid[i];
61         }
62         return -1;
63 }
64
65 static __init void cutoff_node(int i, unsigned long start, unsigned long end)
66 {
67         struct bootnode *nd = &nodes[i];
68
69         if (found_add_area)
70                 return;
71
72         if (nd->start < start) {
73                 nd->start = start;
74                 if (nd->end < nd->start)
75                         nd->start = nd->end;
76         }
77         if (nd->end > end) {
78                 nd->end = end;
79                 if (nd->start > nd->end)
80                         nd->start = nd->end;
81         }
82 }
83
84 static __init void bad_srat(void)
85 {
86         int i;
87         printk(KERN_ERR "SRAT: SRAT not used.\n");
88         acpi_numa = -1;
89         found_add_area = 0;
90         for (i = 0; i < MAX_LOCAL_APIC; i++)
91                 apicid_to_node[i] = NUMA_NO_NODE;
92         for (i = 0; i < MAX_NUMNODES; i++)
93                 nodes_add[i].start = nodes[i].end = 0;
94         remove_all_active_ranges();
95 }
96
97 static __init inline int srat_disabled(void)
98 {
99         return numa_off || acpi_numa < 0;
100 }
101
102 /* Callback for SLIT parsing */
103 void __init acpi_numa_slit_init(struct acpi_table_slit *slit)
104 {
105         unsigned length;
106         unsigned long phys;
107
108         length = slit->header.length;
109         phys = find_e820_area(0, max_pfn_mapped<<PAGE_SHIFT, length,
110                  PAGE_SIZE);
111
112         if (phys == -1L)
113                 panic(" Can not save slit!\n");
114
115         acpi_slit = __va(phys);
116         memcpy(acpi_slit, slit, length);
117         reserve_early(phys, phys + length, "ACPI SLIT");
118 }
119
120 /* Callback for Proximity Domain -> x2APIC mapping */
121 void __init
122 acpi_numa_x2apic_affinity_init(struct acpi_srat_x2apic_cpu_affinity *pa)
123 {
124         int pxm, node;
125         int apic_id;
126
127         if (srat_disabled())
128                 return;
129         if (pa->header.length < sizeof(struct acpi_srat_x2apic_cpu_affinity)) {
130                 bad_srat();
131                 return;
132         }
133         if ((pa->flags & ACPI_SRAT_CPU_ENABLED) == 0)
134                 return;
135         pxm = pa->proximity_domain;
136         node = setup_node(pxm);
137         if (node < 0) {
138                 printk(KERN_ERR "SRAT: Too many proximity domains %x\n", pxm);
139                 bad_srat();
140                 return;
141         }
142
143         apic_id = pa->apic_id;
144         apicid_to_node[apic_id] = node;
145         node_set(node, cpu_nodes_parsed);
146         acpi_numa = 1;
147         printk(KERN_INFO "SRAT: PXM %u -> APIC %u -> Node %u\n",
148                pxm, apic_id, node);
149 }
150
151 /* Callback for Proximity Domain -> LAPIC mapping */
152 void __init
153 acpi_numa_processor_affinity_init(struct acpi_srat_cpu_affinity *pa)
154 {
155         int pxm, node;
156         int apic_id;
157
158         if (srat_disabled())
159                 return;
160         if (pa->header.length != sizeof(struct acpi_srat_cpu_affinity)) {
161                 bad_srat();
162                 return;
163         }
164         if ((pa->flags & ACPI_SRAT_CPU_ENABLED) == 0)
165                 return;
166         pxm = pa->proximity_domain_lo;
167         node = setup_node(pxm);
168         if (node < 0) {
169                 printk(KERN_ERR "SRAT: Too many proximity domains %x\n", pxm);
170                 bad_srat();
171                 return;
172         }
173
174         if (get_uv_system_type() >= UV_X2APIC)
175                 apic_id = (pa->apic_id << 8) | pa->local_sapic_eid;
176         else
177                 apic_id = pa->apic_id;
178         apicid_to_node[apic_id] = node;
179         node_set(node, cpu_nodes_parsed);
180         acpi_numa = 1;
181         printk(KERN_INFO "SRAT: PXM %u -> APIC %u -> Node %u\n",
182                pxm, apic_id, node);
183 }
184
185 static int update_end_of_memory(unsigned long end) {return -1;}
186 static int hotadd_enough_memory(struct bootnode *nd) {return 1;}
187 #ifdef CONFIG_MEMORY_HOTPLUG_SPARSE
188 static inline int save_add_info(void) {return 1;}
189 #else
190 static inline int save_add_info(void) {return 0;}
191 #endif
192 /*
193  * Update nodes_add and decide if to include add are in the zone.
194  * Both SPARSE and RESERVE need nodes_add information.
195  * This code supports one contiguous hot add area per node.
196  */
197 static int __init
198 reserve_hotadd(int node, unsigned long start, unsigned long end)
199 {
200         unsigned long s_pfn = start >> PAGE_SHIFT;
201         unsigned long e_pfn = end >> PAGE_SHIFT;
202         int ret = 0, changed = 0;
203         struct bootnode *nd = &nodes_add[node];
204
205         /* I had some trouble with strange memory hotadd regions breaking
206            the boot. Be very strict here and reject anything unexpected.
207            If you want working memory hotadd write correct SRATs.
208
209            The node size check is a basic sanity check to guard against
210            mistakes */
211         if ((signed long)(end - start) < NODE_MIN_SIZE) {
212                 printk(KERN_ERR "SRAT: Hotplug area too small\n");
213                 return -1;
214         }
215
216         /* This check might be a bit too strict, but I'm keeping it for now. */
217         if (absent_pages_in_range(s_pfn, e_pfn) != e_pfn - s_pfn) {
218                 printk(KERN_ERR
219                         "SRAT: Hotplug area %lu -> %lu has existing memory\n",
220                         s_pfn, e_pfn);
221                 return -1;
222         }
223
224         if (!hotadd_enough_memory(&nodes_add[node]))  {
225                 printk(KERN_ERR "SRAT: Hotplug area too large\n");
226                 return -1;
227         }
228
229         /* Looks good */
230
231         if (nd->start == nd->end) {
232                 nd->start = start;
233                 nd->end = end;
234                 changed = 1;
235         } else {
236                 if (nd->start == end) {
237                         nd->start = start;
238                         changed = 1;
239                 }
240                 if (nd->end == start) {
241                         nd->end = end;
242                         changed = 1;
243                 }
244                 if (!changed)
245                         printk(KERN_ERR "SRAT: Hotplug zone not continuous. Partly ignored\n");
246         }
247
248         ret = update_end_of_memory(nd->end);
249
250         if (changed)
251                 printk(KERN_INFO "SRAT: hot plug zone found %Lx - %Lx\n", nd->start, nd->end);
252         return ret;
253 }
254
255 /* Callback for parsing of the Proximity Domain <-> Memory Area mappings */
256 void __init
257 acpi_numa_memory_affinity_init(struct acpi_srat_mem_affinity *ma)
258 {
259         struct bootnode *nd, oldnode;
260         unsigned long start, end;
261         int node, pxm;
262         int i;
263
264         if (srat_disabled())
265                 return;
266         if (ma->header.length != sizeof(struct acpi_srat_mem_affinity)) {
267                 bad_srat();
268                 return;
269         }
270         if ((ma->flags & ACPI_SRAT_MEM_ENABLED) == 0)
271                 return;
272
273         if ((ma->flags & ACPI_SRAT_MEM_HOT_PLUGGABLE) && !save_add_info())
274                 return;
275         start = ma->base_address;
276         end = start + ma->length;
277         pxm = ma->proximity_domain;
278         node = setup_node(pxm);
279         if (node < 0) {
280                 printk(KERN_ERR "SRAT: Too many proximity domains.\n");
281                 bad_srat();
282                 return;
283         }
284         i = conflicting_memblks(start, end);
285         if (i == node) {
286                 printk(KERN_WARNING
287                 "SRAT: Warning: PXM %d (%lx-%lx) overlaps with itself (%Lx-%Lx)\n",
288                         pxm, start, end, nodes[i].start, nodes[i].end);
289         } else if (i >= 0) {
290                 printk(KERN_ERR
291                        "SRAT: PXM %d (%lx-%lx) overlaps with PXM %d (%Lx-%Lx)\n",
292                        pxm, start, end, node_to_pxm(i),
293                         nodes[i].start, nodes[i].end);
294                 bad_srat();
295                 return;
296         }
297         nd = &nodes[node];
298         oldnode = *nd;
299         if (!node_test_and_set(node, nodes_parsed)) {
300                 nd->start = start;
301                 nd->end = end;
302         } else {
303                 if (start < nd->start)
304                         nd->start = start;
305                 if (nd->end < end)
306                         nd->end = end;
307         }
308
309         printk(KERN_INFO "SRAT: Node %u PXM %u %lx-%lx\n", node, pxm,
310                start, end);
311         e820_register_active_regions(node, start >> PAGE_SHIFT,
312                                      end >> PAGE_SHIFT);
313         push_node_boundaries(node, nd->start >> PAGE_SHIFT,
314                                                 nd->end >> PAGE_SHIFT);
315
316         if ((ma->flags & ACPI_SRAT_MEM_HOT_PLUGGABLE) &&
317             (reserve_hotadd(node, start, end) < 0)) {
318                 /* Ignore hotadd region. Undo damage */
319                 printk(KERN_NOTICE "SRAT: Hotplug region ignored\n");
320                 *nd = oldnode;
321                 if ((nd->start | nd->end) == 0)
322                         node_clear(node, nodes_parsed);
323         }
324
325         node_memblk_range[num_node_memblks].start = start;
326         node_memblk_range[num_node_memblks].end = end;
327         memblk_nodeid[num_node_memblks] = node;
328         num_node_memblks++;
329 }
330
331 /* Sanity check to catch more bad SRATs (they are amazingly common).
332    Make sure the PXMs cover all memory. */
333 static int __init nodes_cover_memory(const struct bootnode *nodes)
334 {
335         int i;
336         unsigned long pxmram, e820ram;
337
338         pxmram = 0;
339         for_each_node_mask(i, nodes_parsed) {
340                 unsigned long s = nodes[i].start >> PAGE_SHIFT;
341                 unsigned long e = nodes[i].end >> PAGE_SHIFT;
342                 pxmram += e - s;
343                 pxmram -= absent_pages_in_range(s, e);
344                 if ((long)pxmram < 0)
345                         pxmram = 0;
346         }
347
348         e820ram = max_pfn - absent_pages_in_range(0, max_pfn);
349         /* We seem to lose 3 pages somewhere. Allow a bit of slack. */
350         if ((long)(e820ram - pxmram) >= 1*1024*1024) {
351                 printk(KERN_ERR
352         "SRAT: PXMs only cover %luMB of your %luMB e820 RAM. Not used.\n",
353                         (pxmram << PAGE_SHIFT) >> 20,
354                         (e820ram << PAGE_SHIFT) >> 20);
355                 return 0;
356         }
357         return 1;
358 }
359
360 static void __init unparse_node(int node)
361 {
362         int i;
363         node_clear(node, nodes_parsed);
364         for (i = 0; i < MAX_LOCAL_APIC; i++) {
365                 if (apicid_to_node[i] == node)
366                         apicid_to_node[i] = NUMA_NO_NODE;
367         }
368 }
369
370 void __init acpi_numa_arch_fixup(void) {}
371
372 /* Use the information discovered above to actually set up the nodes. */
373 int __init acpi_scan_nodes(unsigned long start, unsigned long end)
374 {
375         int i;
376
377         if (acpi_numa <= 0)
378                 return -1;
379
380         /* First clean up the node list */
381         for (i = 0; i < MAX_NUMNODES; i++) {
382                 cutoff_node(i, start, end);
383                 /*
384                  * don't confuse VM with a node that doesn't have the
385                  * minimum memory.
386                  */
387                 if (nodes[i].end &&
388                         (nodes[i].end - nodes[i].start) < NODE_MIN_SIZE) {
389                         unparse_node(i);
390                         node_set_offline(i);
391                 }
392         }
393
394         if (!nodes_cover_memory(nodes)) {
395                 bad_srat();
396                 return -1;
397         }
398
399         memnode_shift = compute_hash_shift(node_memblk_range, num_node_memblks,
400                                            memblk_nodeid);
401         if (memnode_shift < 0) {
402                 printk(KERN_ERR
403                      "SRAT: No NUMA node hash function found. Contact maintainer\n");
404                 bad_srat();
405                 return -1;
406         }
407
408         /* Account for nodes with cpus and no memory */
409         nodes_or(node_possible_map, nodes_parsed, cpu_nodes_parsed);
410
411         /* Finally register nodes */
412         for_each_node_mask(i, node_possible_map)
413                 setup_node_bootmem(i, nodes[i].start, nodes[i].end);
414         /* Try again in case setup_node_bootmem missed one due
415            to missing bootmem */
416         for_each_node_mask(i, node_possible_map)
417                 if (!node_online(i))
418                         setup_node_bootmem(i, nodes[i].start, nodes[i].end);
419
420         for (i = 0; i < nr_cpu_ids; i++) {
421                 int node = early_cpu_to_node(i);
422
423                 if (node == NUMA_NO_NODE)
424                         continue;
425                 if (!node_isset(node, node_possible_map))
426                         numa_clear_node(i);
427         }
428         numa_init_array();
429         return 0;
430 }
431
432 #ifdef CONFIG_NUMA_EMU
433 static int fake_node_to_pxm_map[MAX_NUMNODES] __initdata = {
434         [0 ... MAX_NUMNODES-1] = PXM_INVAL
435 };
436 static s16 fake_apicid_to_node[MAX_LOCAL_APIC] __initdata = {
437         [0 ... MAX_LOCAL_APIC-1] = NUMA_NO_NODE
438 };
439 static int __init find_node_by_addr(unsigned long addr)
440 {
441         int ret = NUMA_NO_NODE;
442         int i;
443
444         for_each_node_mask(i, nodes_parsed) {
445                 /*
446                  * Find the real node that this emulated node appears on.  For
447                  * the sake of simplicity, we only use a real node's starting
448                  * address to determine which emulated node it appears on.
449                  */
450                 if (addr >= nodes[i].start && addr < nodes[i].end) {
451                         ret = i;
452                         break;
453                 }
454         }
455         return ret;
456 }
457
458 /*
459  * In NUMA emulation, we need to setup proximity domain (_PXM) to node ID
460  * mappings that respect the real ACPI topology but reflect our emulated
461  * environment.  For each emulated node, we find which real node it appears on
462  * and create PXM to NID mappings for those fake nodes which mirror that
463  * locality.  SLIT will now represent the correct distances between emulated
464  * nodes as a result of the real topology.
465  */
466 void __init acpi_fake_nodes(const struct bootnode *fake_nodes, int num_nodes)
467 {
468         int i, j;
469
470         printk(KERN_INFO "Faking PXM affinity for fake nodes on real "
471                          "topology.\n");
472         for (i = 0; i < num_nodes; i++) {
473                 int nid, pxm;
474
475                 nid = find_node_by_addr(fake_nodes[i].start);
476                 if (nid == NUMA_NO_NODE)
477                         continue;
478                 pxm = node_to_pxm(nid);
479                 if (pxm == PXM_INVAL)
480                         continue;
481                 fake_node_to_pxm_map[i] = pxm;
482                 /*
483                  * For each apicid_to_node mapping that exists for this real
484                  * node, it must now point to the fake node ID.
485                  */
486                 for (j = 0; j < MAX_LOCAL_APIC; j++)
487                         if (apicid_to_node[j] == nid)
488                                 fake_apicid_to_node[j] = i;
489         }
490         for (i = 0; i < num_nodes; i++)
491                 __acpi_map_pxm_to_node(fake_node_to_pxm_map[i], i);
492         memcpy(apicid_to_node, fake_apicid_to_node, sizeof(apicid_to_node));
493
494         nodes_clear(nodes_parsed);
495         for (i = 0; i < num_nodes; i++)
496                 if (fake_nodes[i].start != fake_nodes[i].end)
497                         node_set(i, nodes_parsed);
498         WARN_ON(!nodes_cover_memory(fake_nodes));
499 }
500
501 static int null_slit_node_compare(int a, int b)
502 {
503         return node_to_pxm(a) == node_to_pxm(b);
504 }
505 #else
506 static int null_slit_node_compare(int a, int b)
507 {
508         return a == b;
509 }
510 #endif /* CONFIG_NUMA_EMU */
511
512 void __init srat_reserve_add_area(int nodeid)
513 {
514         if (found_add_area && nodes_add[nodeid].end) {
515                 u64 total_mb;
516
517                 printk(KERN_INFO "SRAT: Reserving hot-add memory space "
518                                 "for node %d at %Lx-%Lx\n",
519                         nodeid, nodes_add[nodeid].start, nodes_add[nodeid].end);
520                 total_mb = (nodes_add[nodeid].end - nodes_add[nodeid].start)
521                                         >> PAGE_SHIFT;
522                 total_mb *= sizeof(struct page);
523                 total_mb >>= 20;
524                 printk(KERN_INFO "SRAT: This will cost you %Lu MB of "
525                                 "pre-allocated memory.\n", (unsigned long long)total_mb);
526                 reserve_bootmem_node(NODE_DATA(nodeid), nodes_add[nodeid].start,
527                                nodes_add[nodeid].end - nodes_add[nodeid].start,
528                                BOOTMEM_DEFAULT);
529         }
530 }
531
532 int __node_distance(int a, int b)
533 {
534         int index;
535
536         if (!acpi_slit)
537                 return null_slit_node_compare(a, b) ? LOCAL_DISTANCE :
538                                                       REMOTE_DISTANCE;
539         index = acpi_slit->locality_count * node_to_pxm(a);
540         return acpi_slit->entry[index + node_to_pxm(b)];
541 }
542
543 EXPORT_SYMBOL(__node_distance);
544
545 #if defined(CONFIG_MEMORY_HOTPLUG_SPARSE) || defined(CONFIG_ACPI_HOTPLUG_MEMORY)
546 int memory_add_physaddr_to_nid(u64 start)
547 {
548         int i, ret = 0;
549
550         for_each_node(i)
551                 if (nodes_add[i].start <= start && nodes_add[i].end > start)
552                         ret = i;
553
554         return ret;
555 }
556 EXPORT_SYMBOL_GPL(memory_add_physaddr_to_nid);
557 #endif