]> git.openfabrics.org - ~shefty/rdma-dev.git/blob - arch/x86_64/mm/numa.c
x86_64: fix e820_hole_size based on address ranges
[~shefty/rdma-dev.git] / arch / x86_64 / mm / numa.c
1 /* 
2  * Generic VM initialization for x86-64 NUMA setups.
3  * Copyright 2002,2003 Andi Kleen, SuSE Labs.
4  */ 
5 #include <linux/kernel.h>
6 #include <linux/mm.h>
7 #include <linux/string.h>
8 #include <linux/init.h>
9 #include <linux/bootmem.h>
10 #include <linux/mmzone.h>
11 #include <linux/ctype.h>
12 #include <linux/module.h>
13 #include <linux/nodemask.h>
14
15 #include <asm/e820.h>
16 #include <asm/proto.h>
17 #include <asm/dma.h>
18 #include <asm/numa.h>
19 #include <asm/acpi.h>
20
21 #ifndef Dprintk
22 #define Dprintk(x...)
23 #endif
24
25 struct pglist_data *node_data[MAX_NUMNODES] __read_mostly;
26 bootmem_data_t plat_node_bdata[MAX_NUMNODES];
27
28 struct memnode memnode;
29
30 unsigned char cpu_to_node[NR_CPUS] __read_mostly = {
31         [0 ... NR_CPUS-1] = NUMA_NO_NODE
32 };
33 unsigned char apicid_to_node[MAX_LOCAL_APIC] __cpuinitdata = {
34         [0 ... MAX_LOCAL_APIC-1] = NUMA_NO_NODE
35 };
36 cpumask_t node_to_cpumask[MAX_NUMNODES] __read_mostly;
37
38 int numa_off __initdata;
39 unsigned long __initdata nodemap_addr;
40 unsigned long __initdata nodemap_size;
41
42
43 /*
44  * Given a shift value, try to populate memnodemap[]
45  * Returns :
46  * 1 if OK
47  * 0 if memnodmap[] too small (of shift too small)
48  * -1 if node overlap or lost ram (shift too big)
49  */
50 static int __init
51 populate_memnodemap(const struct bootnode *nodes, int numnodes, int shift)
52 {
53         int i; 
54         int res = -1;
55         unsigned long addr, end;
56
57         memset(memnodemap, 0xff, memnodemapsize);
58         for (i = 0; i < numnodes; i++) {
59                 addr = nodes[i].start;
60                 end = nodes[i].end;
61                 if (addr >= end)
62                         continue;
63                 if ((end >> shift) >= memnodemapsize)
64                         return 0;
65                 do {
66                         if (memnodemap[addr >> shift] != 0xff)
67                                 return -1;
68                         memnodemap[addr >> shift] = i;
69                         addr += (1UL << shift);
70                 } while (addr < end);
71                 res = 1;
72         } 
73         return res;
74 }
75
76 static int __init allocate_cachealigned_memnodemap(void)
77 {
78         unsigned long pad, pad_addr;
79
80         memnodemap = memnode.embedded_map;
81         if (memnodemapsize <= 48)
82                 return 0;
83
84         pad = L1_CACHE_BYTES - 1;
85         pad_addr = 0x8000;
86         nodemap_size = pad + memnodemapsize;
87         nodemap_addr = find_e820_area(pad_addr, end_pfn<<PAGE_SHIFT,
88                                       nodemap_size);
89         if (nodemap_addr == -1UL) {
90                 printk(KERN_ERR
91                        "NUMA: Unable to allocate Memory to Node hash map\n");
92                 nodemap_addr = nodemap_size = 0;
93                 return -1;
94         }
95         pad_addr = (nodemap_addr + pad) & ~pad;
96         memnodemap = phys_to_virt(pad_addr);
97
98         printk(KERN_DEBUG "NUMA: Allocated memnodemap from %lx - %lx\n",
99                nodemap_addr, nodemap_addr + nodemap_size);
100         return 0;
101 }
102
103 /*
104  * The LSB of all start and end addresses in the node map is the value of the
105  * maximum possible shift.
106  */
107 static int __init
108 extract_lsb_from_nodes (const struct bootnode *nodes, int numnodes)
109 {
110         int i, nodes_used = 0;
111         unsigned long start, end;
112         unsigned long bitfield = 0, memtop = 0;
113
114         for (i = 0; i < numnodes; i++) {
115                 start = nodes[i].start;
116                 end = nodes[i].end;
117                 if (start >= end)
118                         continue;
119                 bitfield |= start;
120                 nodes_used++;
121                 if (end > memtop)
122                         memtop = end;
123         }
124         if (nodes_used <= 1)
125                 i = 63;
126         else
127                 i = find_first_bit(&bitfield, sizeof(unsigned long)*8);
128         memnodemapsize = (memtop >> i)+1;
129         return i;
130 }
131
132 int __init compute_hash_shift(struct bootnode *nodes, int numnodes)
133 {
134         int shift;
135
136         shift = extract_lsb_from_nodes(nodes, numnodes);
137         if (allocate_cachealigned_memnodemap())
138                 return -1;
139         printk(KERN_DEBUG "NUMA: Using %d for the hash shift.\n",
140                 shift);
141
142         if (populate_memnodemap(nodes, numnodes, shift) != 1) {
143                 printk(KERN_INFO
144         "Your memory is not aligned you need to rebuild your kernel "
145         "with a bigger NODEMAPSIZE shift=%d\n",
146                         shift);
147                 return -1;
148         }
149         return shift;
150 }
151
152 #ifdef CONFIG_SPARSEMEM
153 int early_pfn_to_nid(unsigned long pfn)
154 {
155         return phys_to_nid(pfn << PAGE_SHIFT);
156 }
157 #endif
158
159 static void * __init
160 early_node_mem(int nodeid, unsigned long start, unsigned long end,
161               unsigned long size)
162 {
163         unsigned long mem = find_e820_area(start, end, size);
164         void *ptr;
165         if (mem != -1L)
166                 return __va(mem);
167         ptr = __alloc_bootmem_nopanic(size,
168                                 SMP_CACHE_BYTES, __pa(MAX_DMA_ADDRESS));
169         if (ptr == 0) {
170                 printk(KERN_ERR "Cannot find %lu bytes in node %d\n",
171                         size, nodeid);
172                 return NULL;
173         }
174         return ptr;
175 }
176
177 /* Initialize bootmem allocator for a node */
178 void __init setup_node_bootmem(int nodeid, unsigned long start, unsigned long end)
179
180         unsigned long start_pfn, end_pfn, bootmap_pages, bootmap_size, bootmap_start; 
181         unsigned long nodedata_phys;
182         void *bootmap;
183         const int pgdat_size = round_up(sizeof(pg_data_t), PAGE_SIZE);
184
185         start = round_up(start, ZONE_ALIGN); 
186
187         printk(KERN_INFO "Bootmem setup node %d %016lx-%016lx\n", nodeid, start, end);
188
189         start_pfn = start >> PAGE_SHIFT;
190         end_pfn = end >> PAGE_SHIFT;
191
192         node_data[nodeid] = early_node_mem(nodeid, start, end, pgdat_size);
193         if (node_data[nodeid] == NULL)
194                 return;
195         nodedata_phys = __pa(node_data[nodeid]);
196
197         memset(NODE_DATA(nodeid), 0, sizeof(pg_data_t));
198         NODE_DATA(nodeid)->bdata = &plat_node_bdata[nodeid];
199         NODE_DATA(nodeid)->node_start_pfn = start_pfn;
200         NODE_DATA(nodeid)->node_spanned_pages = end_pfn - start_pfn;
201
202         /* Find a place for the bootmem map */
203         bootmap_pages = bootmem_bootmap_pages(end_pfn - start_pfn); 
204         bootmap_start = round_up(nodedata_phys + pgdat_size, PAGE_SIZE);
205         bootmap = early_node_mem(nodeid, bootmap_start, end,
206                                         bootmap_pages<<PAGE_SHIFT);
207         if (bootmap == NULL)  {
208                 if (nodedata_phys < start || nodedata_phys >= end)
209                         free_bootmem((unsigned long)node_data[nodeid],pgdat_size);
210                 node_data[nodeid] = NULL;
211                 return;
212         }
213         bootmap_start = __pa(bootmap);
214         Dprintk("bootmap start %lu pages %lu\n", bootmap_start, bootmap_pages); 
215         
216         bootmap_size = init_bootmem_node(NODE_DATA(nodeid),
217                                          bootmap_start >> PAGE_SHIFT, 
218                                          start_pfn, end_pfn); 
219
220         free_bootmem_with_active_regions(nodeid, end);
221
222         reserve_bootmem_node(NODE_DATA(nodeid), nodedata_phys, pgdat_size); 
223         reserve_bootmem_node(NODE_DATA(nodeid), bootmap_start, bootmap_pages<<PAGE_SHIFT);
224 #ifdef CONFIG_ACPI_NUMA
225         srat_reserve_add_area(nodeid);
226 #endif
227         node_set_online(nodeid);
228
229
230 /* Initialize final allocator for a zone */
231 void __init setup_node_zones(int nodeid)
232
233         unsigned long start_pfn, end_pfn, memmapsize, limit;
234
235         start_pfn = node_start_pfn(nodeid);
236         end_pfn = node_end_pfn(nodeid);
237
238         Dprintk(KERN_INFO "Setting up memmap for node %d %lx-%lx\n",
239                 nodeid, start_pfn, end_pfn);
240
241         /* Try to allocate mem_map at end to not fill up precious <4GB
242            memory. */
243         memmapsize = sizeof(struct page) * (end_pfn-start_pfn);
244         limit = end_pfn << PAGE_SHIFT;
245 #ifdef CONFIG_FLAT_NODE_MEM_MAP
246         NODE_DATA(nodeid)->node_mem_map = 
247                 __alloc_bootmem_core(NODE_DATA(nodeid)->bdata, 
248                                 memmapsize, SMP_CACHE_BYTES, 
249                                 round_down(limit - memmapsize, PAGE_SIZE), 
250                                 limit);
251 #endif
252
253
254 void __init numa_init_array(void)
255 {
256         int rr, i;
257         /* There are unfortunately some poorly designed mainboards around
258            that only connect memory to a single CPU. This breaks the 1:1 cpu->node
259            mapping. To avoid this fill in the mapping for all possible
260            CPUs, as the number of CPUs is not known yet. 
261            We round robin the existing nodes. */
262         rr = first_node(node_online_map);
263         for (i = 0; i < NR_CPUS; i++) {
264                 if (cpu_to_node[i] != NUMA_NO_NODE)
265                         continue;
266                 numa_set_node(i, rr);
267                 rr = next_node(rr, node_online_map);
268                 if (rr == MAX_NUMNODES)
269                         rr = first_node(node_online_map);
270         }
271
272 }
273
274 #ifdef CONFIG_NUMA_EMU
275 /* Numa emulation */
276 char *cmdline __initdata;
277
278 /*
279  * Setups up nid to range from addr to addr + size.  If the end boundary is
280  * greater than max_addr, then max_addr is used instead.  The return value is 0
281  * if there is additional memory left for allocation past addr and -1 otherwise.
282  * addr is adjusted to be at the end of the node.
283  */
284 static int __init setup_node_range(int nid, struct bootnode *nodes, u64 *addr,
285                                    u64 size, u64 max_addr)
286 {
287         int ret = 0;
288         nodes[nid].start = *addr;
289         *addr += size;
290         if (*addr >= max_addr) {
291                 *addr = max_addr;
292                 ret = -1;
293         }
294         nodes[nid].end = *addr;
295         node_set(nid, node_possible_map);
296         printk(KERN_INFO "Faking node %d at %016Lx-%016Lx (%LuMB)\n", nid,
297                nodes[nid].start, nodes[nid].end,
298                (nodes[nid].end - nodes[nid].start) >> 20);
299         return ret;
300 }
301
302 /*
303  * Splits num_nodes nodes up equally starting at node_start.  The return value
304  * is the number of nodes split up and addr is adjusted to be at the end of the
305  * last node allocated.
306  */
307 static int __init split_nodes_equally(struct bootnode *nodes, u64 *addr,
308                                       u64 max_addr, int node_start,
309                                       int num_nodes)
310 {
311         unsigned int big;
312         u64 size;
313         int i;
314
315         if (num_nodes <= 0)
316                 return -1;
317         if (num_nodes > MAX_NUMNODES)
318                 num_nodes = MAX_NUMNODES;
319         size = (max_addr - *addr - e820_hole_size(*addr, max_addr)) /
320                num_nodes;
321         /*
322          * Calculate the number of big nodes that can be allocated as a result
323          * of consolidating the leftovers.
324          */
325         big = ((size & ~FAKE_NODE_MIN_HASH_MASK) * num_nodes) /
326               FAKE_NODE_MIN_SIZE;
327
328         /* Round down to nearest FAKE_NODE_MIN_SIZE. */
329         size &= FAKE_NODE_MIN_HASH_MASK;
330         if (!size) {
331                 printk(KERN_ERR "Not enough memory for each node.  "
332                        "NUMA emulation disabled.\n");
333                 return -1;
334         }
335
336         for (i = node_start; i < num_nodes + node_start; i++) {
337                 u64 end = *addr + size;
338                 if (i < big)
339                         end += FAKE_NODE_MIN_SIZE;
340                 /*
341                  * The final node can have the remaining system RAM.  Other
342                  * nodes receive roughly the same amount of available pages.
343                  */
344                 if (i == num_nodes + node_start - 1)
345                         end = max_addr;
346                 else
347                         while (end - *addr - e820_hole_size(*addr, end) <
348                                size) {
349                                 end += FAKE_NODE_MIN_SIZE;
350                                 if (end > max_addr) {
351                                         end = max_addr;
352                                         break;
353                                 }
354                         }
355                 if (setup_node_range(i, nodes, addr, end - *addr, max_addr) < 0)
356                         break;
357         }
358         return i - node_start + 1;
359 }
360
361 /*
362  * Splits the remaining system RAM into chunks of size.  The remaining memory is
363  * always assigned to a final node and can be asymmetric.  Returns the number of
364  * nodes split.
365  */
366 static int __init split_nodes_by_size(struct bootnode *nodes, u64 *addr,
367                                       u64 max_addr, int node_start, u64 size)
368 {
369         int i = node_start;
370         size = (size << 20) & FAKE_NODE_MIN_HASH_MASK;
371         while (!setup_node_range(i++, nodes, addr, size, max_addr))
372                 ;
373         return i - node_start;
374 }
375
376 /*
377  * Sets up the system RAM area from start_pfn to end_pfn according to the
378  * numa=fake command-line option.
379  */
380 static int __init numa_emulation(unsigned long start_pfn, unsigned long end_pfn)
381 {
382         struct bootnode nodes[MAX_NUMNODES];
383         u64 addr = start_pfn << PAGE_SHIFT;
384         u64 max_addr = end_pfn << PAGE_SHIFT;
385         int num_nodes = 0;
386         int coeff_flag;
387         int coeff = -1;
388         int num = 0;
389         u64 size;
390         int i;
391
392         memset(&nodes, 0, sizeof(nodes));
393         /*
394          * If the numa=fake command-line is just a single number N, split the
395          * system RAM into N fake nodes.
396          */
397         if (!strchr(cmdline, '*') && !strchr(cmdline, ',')) {
398                 num_nodes = split_nodes_equally(nodes, &addr, max_addr, 0,
399                                                 simple_strtol(cmdline, NULL, 0));
400                 if (num_nodes < 0)
401                         return num_nodes;
402                 goto out;
403         }
404
405         /* Parse the command line. */
406         for (coeff_flag = 0; ; cmdline++) {
407                 if (*cmdline && isdigit(*cmdline)) {
408                         num = num * 10 + *cmdline - '0';
409                         continue;
410                 }
411                 if (*cmdline == '*') {
412                         if (num > 0)
413                                 coeff = num;
414                         coeff_flag = 1;
415                 }
416                 if (!*cmdline || *cmdline == ',') {
417                         if (!coeff_flag)
418                                 coeff = 1;
419                         /*
420                          * Round down to the nearest FAKE_NODE_MIN_SIZE.
421                          * Command-line coefficients are in megabytes.
422                          */
423                         size = ((u64)num << 20) & FAKE_NODE_MIN_HASH_MASK;
424                         if (size)
425                                 for (i = 0; i < coeff; i++, num_nodes++)
426                                         if (setup_node_range(num_nodes, nodes,
427                                                 &addr, size, max_addr) < 0)
428                                                 goto done;
429                         if (!*cmdline)
430                                 break;
431                         coeff_flag = 0;
432                         coeff = -1;
433                 }
434                 num = 0;
435         }
436 done:
437         if (!num_nodes)
438                 return -1;
439         /* Fill remainder of system RAM, if appropriate. */
440         if (addr < max_addr) {
441                 if (coeff_flag && coeff < 0) {
442                         /* Split remaining nodes into num-sized chunks */
443                         num_nodes += split_nodes_by_size(nodes, &addr, max_addr,
444                                                          num_nodes, num);
445                         goto out;
446                 }
447                 switch (*(cmdline - 1)) {
448                 case '*':
449                         /* Split remaining nodes into coeff chunks */
450                         if (coeff <= 0)
451                                 break;
452                         num_nodes += split_nodes_equally(nodes, &addr, max_addr,
453                                                          num_nodes, coeff);
454                         break;
455                 case ',':
456                         /* Do not allocate remaining system RAM */
457                         break;
458                 default:
459                         /* Give one final node */
460                         setup_node_range(num_nodes, nodes, &addr,
461                                          max_addr - addr, max_addr);
462                         num_nodes++;
463                 }
464         }
465 out:
466         memnode_shift = compute_hash_shift(nodes, num_nodes);
467         if (memnode_shift < 0) {
468                 memnode_shift = 0;
469                 printk(KERN_ERR "No NUMA hash function found.  NUMA emulation "
470                        "disabled.\n");
471                 return -1;
472         }
473
474         /*
475          * We need to vacate all active ranges that may have been registered by
476          * SRAT.
477          */
478         remove_all_active_ranges();
479         for_each_node_mask(i, node_possible_map) {
480                 e820_register_active_regions(i, nodes[i].start >> PAGE_SHIFT,
481                                                 nodes[i].end >> PAGE_SHIFT);
482                 setup_node_bootmem(i, nodes[i].start, nodes[i].end);
483         }
484         acpi_fake_nodes(nodes, num_nodes);
485         numa_init_array();
486         return 0;
487 }
488 #endif /* CONFIG_NUMA_EMU */
489
490 void __init numa_initmem_init(unsigned long start_pfn, unsigned long end_pfn)
491
492         int i;
493
494         nodes_clear(node_possible_map);
495
496 #ifdef CONFIG_NUMA_EMU
497         if (cmdline && !numa_emulation(start_pfn, end_pfn))
498                 return;
499         nodes_clear(node_possible_map);
500 #endif
501
502 #ifdef CONFIG_ACPI_NUMA
503         if (!numa_off && !acpi_scan_nodes(start_pfn << PAGE_SHIFT,
504                                           end_pfn << PAGE_SHIFT))
505                 return;
506         nodes_clear(node_possible_map);
507 #endif
508
509 #ifdef CONFIG_K8_NUMA
510         if (!numa_off && !k8_scan_nodes(start_pfn<<PAGE_SHIFT, end_pfn<<PAGE_SHIFT))
511                 return;
512         nodes_clear(node_possible_map);
513 #endif
514         printk(KERN_INFO "%s\n",
515                numa_off ? "NUMA turned off" : "No NUMA configuration found");
516
517         printk(KERN_INFO "Faking a node at %016lx-%016lx\n", 
518                start_pfn << PAGE_SHIFT,
519                end_pfn << PAGE_SHIFT); 
520                 /* setup dummy node covering all memory */ 
521         memnode_shift = 63; 
522         memnodemap = memnode.embedded_map;
523         memnodemap[0] = 0;
524         nodes_clear(node_online_map);
525         node_set_online(0);
526         node_set(0, node_possible_map);
527         for (i = 0; i < NR_CPUS; i++)
528                 numa_set_node(i, 0);
529         node_to_cpumask[0] = cpumask_of_cpu(0);
530         e820_register_active_regions(0, start_pfn, end_pfn);
531         setup_node_bootmem(0, start_pfn << PAGE_SHIFT, end_pfn << PAGE_SHIFT);
532 }
533
534 __cpuinit void numa_add_cpu(int cpu)
535 {
536         set_bit(cpu, &node_to_cpumask[cpu_to_node(cpu)]);
537
538
539 void __cpuinit numa_set_node(int cpu, int node)
540 {
541         cpu_pda(cpu)->nodenumber = node;
542         cpu_to_node[cpu] = node;
543 }
544
545 unsigned long __init numa_free_all_bootmem(void) 
546
547         int i;
548         unsigned long pages = 0;
549         for_each_online_node(i) {
550                 pages += free_all_bootmem_node(NODE_DATA(i));
551         }
552         return pages;
553
554
555 void __init paging_init(void)
556
557         int i;
558         unsigned long max_zone_pfns[MAX_NR_ZONES];
559         memset(max_zone_pfns, 0, sizeof(max_zone_pfns));
560         max_zone_pfns[ZONE_DMA] = MAX_DMA_PFN;
561         max_zone_pfns[ZONE_DMA32] = MAX_DMA32_PFN;
562         max_zone_pfns[ZONE_NORMAL] = end_pfn;
563
564         sparse_memory_present_with_active_regions(MAX_NUMNODES);
565         sparse_init();
566
567         for_each_online_node(i) {
568                 setup_node_zones(i); 
569         }
570
571         free_area_init_nodes(max_zone_pfns);
572
573
574 static __init int numa_setup(char *opt)
575
576         if (!opt)
577                 return -EINVAL;
578         if (!strncmp(opt,"off",3))
579                 numa_off = 1;
580 #ifdef CONFIG_NUMA_EMU
581         if (!strncmp(opt, "fake=", 5))
582                 cmdline = opt + 5;
583 #endif
584 #ifdef CONFIG_ACPI_NUMA
585         if (!strncmp(opt,"noacpi",6))
586                 acpi_numa = -1;
587         if (!strncmp(opt,"hotadd=", 7))
588                 hotadd_percent = simple_strtoul(opt+7, NULL, 10);
589 #endif
590         return 0;
591
592
593 early_param("numa", numa_setup);
594
595 /*
596  * Setup early cpu_to_node.
597  *
598  * Populate cpu_to_node[] only if x86_cpu_to_apicid[],
599  * and apicid_to_node[] tables have valid entries for a CPU.
600  * This means we skip cpu_to_node[] initialisation for NUMA
601  * emulation and faking node case (when running a kernel compiled
602  * for NUMA on a non NUMA box), which is OK as cpu_to_node[]
603  * is already initialized in a round robin manner at numa_init_array,
604  * prior to this call, and this initialization is good enough
605  * for the fake NUMA cases.
606  */
607 void __init init_cpu_to_node(void)
608 {
609         int i;
610         for (i = 0; i < NR_CPUS; i++) {
611                 u8 apicid = x86_cpu_to_apicid[i];
612                 if (apicid == BAD_APICID)
613                         continue;
614                 if (apicid_to_node[apicid] == NUMA_NO_NODE)
615                         continue;
616                 numa_set_node(i,apicid_to_node[apicid]);
617         }
618 }
619
620 EXPORT_SYMBOL(cpu_to_node);
621 EXPORT_SYMBOL(node_to_cpumask);
622 EXPORT_SYMBOL(memnode);
623 EXPORT_SYMBOL(node_data);
624
625 #ifdef CONFIG_DISCONTIGMEM
626 /*
627  * Functions to convert PFNs from/to per node page addresses.
628  * These are out of line because they are quite big.
629  * They could be all tuned by pre caching more state.
630  * Should do that.
631  */
632
633 int pfn_valid(unsigned long pfn)
634 {
635         unsigned nid;
636         if (pfn >= num_physpages)
637                 return 0;
638         nid = pfn_to_nid(pfn);
639         if (nid == 0xff)
640                 return 0;
641         return pfn >= node_start_pfn(nid) && (pfn) < node_end_pfn(nid);
642 }
643 EXPORT_SYMBOL(pfn_valid);
644 #endif