1 /*
2 * Copyright (C) 1999, 2000 Ralf Baechle (ralf@gnu.org)
3 * Copyright (C) 1999, 2000 Silicon Graphics, Inc.
4 */
5 #include <linux/kernel.h>
6 #include <linux/sched.h>
7 #include <linux/interrupt.h>
8 #include <linux/kernel_stat.h>
9 #include <linux/param.h>
10 #include <linux/timex.h>
11 #include <linux/mm.h>
12
13 #include <asm/sn/klconfig.h>
14 #include <asm/sn/arch.h>
15 #include <asm/sn/gda.h>
16
find_component(lboard_t * brd,klinfo_t * kli,unsigned char struct_type)17 klinfo_t *find_component(lboard_t *brd, klinfo_t *kli, unsigned char struct_type)
18 {
19 int index, j;
20
21 if (kli == (klinfo_t *)NULL) {
22 index = 0;
23 } else {
24 for (j = 0; j < KLCF_NUM_COMPS(brd); j++)
25 if (kli == KLCF_COMP(brd, j))
26 break;
27 index = j;
28 if (index == KLCF_NUM_COMPS(brd)) {
29 printk("find_component: Bad pointer: 0x%p\n", kli);
30 return (klinfo_t *)NULL;
31 }
32 index++; /* next component */
33 }
34
35 for (; index < KLCF_NUM_COMPS(brd); index++) {
36 kli = KLCF_COMP(brd, index);
37 if (KLCF_COMP_TYPE(kli) == struct_type)
38 return kli;
39 }
40
41 /* Didn't find it. */
42 return (klinfo_t *)NULL;
43 }
44
find_first_component(lboard_t * brd,unsigned char struct_type)45 klinfo_t *find_first_component(lboard_t *brd, unsigned char struct_type)
46 {
47 return find_component(brd, (klinfo_t *)NULL, struct_type);
48 }
49
find_lboard(lboard_t * start,unsigned char brd_type)50 lboard_t *find_lboard(lboard_t *start, unsigned char brd_type)
51 {
52 /* Search all boards stored on this node. */
53 while (start) {
54 if (start->brd_type == brd_type)
55 return start;
56 start = KLCF_NEXT(start);
57 }
58 /* Didn't find it. */
59 return (lboard_t *)NULL;
60 }
61
find_lboard_class(lboard_t * start,unsigned char brd_type)62 lboard_t *find_lboard_class(lboard_t *start, unsigned char brd_type)
63 {
64 /* Search all boards stored on this node. */
65 while (start) {
66 if (KLCLASS(start->brd_type) == KLCLASS(brd_type))
67 return start;
68 start = KLCF_NEXT(start);
69 }
70
71 /* Didn't find it. */
72 return (lboard_t *)NULL;
73 }
74
get_cpu_cnode(cpuid_t cpu)75 cnodeid_t get_cpu_cnode(cpuid_t cpu)
76 {
77 return CPUID_TO_COMPACT_NODEID(cpu);
78 }
79
nasid_slice_to_cpuinfo(nasid_t nasid,int slice)80 klcpu_t *nasid_slice_to_cpuinfo(nasid_t nasid, int slice)
81 {
82 lboard_t *brd;
83 klcpu_t *acpu;
84
85 if (!(brd = find_lboard((lboard_t *)KL_CONFIG_INFO(nasid), KLTYPE_IP27)))
86 return (klcpu_t *)NULL;
87
88 if (!(acpu = (klcpu_t *)find_first_component(brd, KLSTRUCT_CPU)))
89 return (klcpu_t *)NULL;
90
91 do {
92 if ((acpu->cpu_info.physid) == slice)
93 return acpu;
94 } while ((acpu = (klcpu_t *)find_component(brd, (klinfo_t *)acpu,
95 KLSTRUCT_CPU)));
96 return (klcpu_t *)NULL;
97 }
98
sn_get_cpuinfo(cpuid_t cpu)99 klcpu_t *sn_get_cpuinfo(cpuid_t cpu)
100 {
101 nasid_t nasid;
102 int slice;
103 klcpu_t *acpu;
104 gda_t *gdap = GDA;
105 cnodeid_t cnode;
106
107 if (!(cpu < MAXCPUS)) {
108 printk("sn_get_cpuinfo: illegal cpuid 0x%lx\n", cpu);
109 return NULL;
110 }
111
112 cnode = get_cpu_cnode(cpu);
113 if (cnode == INVALID_CNODEID)
114 return NULL;
115
116 if ((nasid = gdap->g_nasidtable[cnode]) == INVALID_NASID)
117 return NULL;
118
119 for (slice = 0; slice < CPUS_PER_NODE; slice++) {
120 acpu = nasid_slice_to_cpuinfo(nasid, slice);
121 if (acpu && acpu->cpu_info.virtid == cpu)
122 return acpu;
123 }
124 return NULL;
125 }
126
get_cpu_slice(cpuid_t cpu)127 int get_cpu_slice(cpuid_t cpu)
128 {
129 klcpu_t *acpu;
130
131 if ((acpu = sn_get_cpuinfo(cpu)) == NULL)
132 return -1;
133 return acpu->cpu_info.physid;
134 }
135