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