1201_ht_bus0_dev0_fidvid_core.diff

https://openbios.org/roundup/linuxbios/issue41
Lord have mercy upon us.




git-svn-id: svn://svn.coreboot.org/coreboot/trunk@2118 2b7e53f0-3cfb-0310-b3e9-8179ed1497e1

3 files changed, 433 insertions, 1 deletions

diff --git a/src/cpu/amd/model_fxx/apic_timer.c b/src/cpu/amd/model_fxx/apic_timer.c
index 5a81f912c5..8eeb32fee9 100644
--- a/src/cpu/amd/model_fxx/apic_timer.c
+++ b/src/cpu/amd/model_fxx/apic_timer.c
@@ -7,10 +7,13 @@ void init_timer(void)
 {
 	/* Set the apic timer to no interrupts and periodic mode */
 	lapic_write(LAPIC_LVTT, (1 << 17)|(1<< 16)|(0 << 12)|(0 << 0));
+
 	/* Set the divider to 1, no divider */
 	lapic_write(LAPIC_TDCR, LAPIC_TDR_DIV_1);
+
 	/* Set the initial counter to 0xffffffff */
 	lapic_write(LAPIC_TMICT, 0xffffffff);
+
 }
 
 void udelay(unsigned usecs)
diff --git a/src/cpu/amd/model_fxx/fidvid.c b/src/cpu/amd/model_fxx/fidvid.c
new file mode 100644
index 0000000000..8d1b84c24f
--- /dev/null
+++ b/src/cpu/amd/model_fxx/fidvid.c
@@ -0,0 +1,396 @@
+#if K8_SET_FIDVID == 1
+
+#define K8_SET_FIDVID_DEBUG 0 
+
+#define K8_SET_FIDVID_STORE_AP_APICID_AT_FIRST 1
+
+static inline void print_debug_fv(const char *str, unsigned val)
+{
+#if K8_SET_FIDVID_DEBUG == 1
+        #if CONFIG_USE_INIT==1
+        	printk_debug("%s%x\r\n", str, val);
+        #else
+                print_debug(str); print_debug_hex32(val); print_debug("\r\n");
+        #endif
+#endif
+}
+
+static inline void print_debug_fv_8(const char *str, unsigned val)
+{
+#if K8_SET_FIDVID_DEBUG == 1
+        #if CONFIG_USE_INIT==1
+                printk_debug("%s%02x\r\n", str, val);
+        #else
+                print_debug(str); print_debug_hex8(val); print_debug("\r\n");
+        #endif
+#endif
+}
+
+static inline void print_debug_fv_64(const char *str, unsigned val, unsigned val2)
+{
+#if K8_SET_FIDVID_DEBUG == 1
+        #if CONFIG_USE_INIT==1
+                printk_debug("%s%x%x\r\n", str, val, val2);
+        #else
+                print_debug(str); print_debug_hex32(val); print_debug_hex32(val2); print_debug("\r\n");
+        #endif
+#endif
+}
+
+
+static void enable_fid_change(void)
+{
+	uint32_t dword;
+	unsigned nodes;
+	int i;
+
+	nodes = ((pci_read_config32(PCI_DEV(0, 0x18, 0), 0x60)>>4) & 7) + 1;
+
+	for(i=0; i<nodes; i++) {
+		dword = pci_read_config32(PCI_DEV(0, 0x18+i, 3), 0xd8);
+		dword &= 0x8ff00000;
+		dword |= (2<<28) | (0x02710);
+	        pci_write_config32(PCI_DEV(0, 0x18+i, 3), 0xd8, dword);
+
+		dword = 0x04e2a707;
+		pci_write_config32(PCI_DEV(0, 0x18+i, 3), 0xd4, dword);
+
+		dword = pci_read_config32(PCI_DEV(0, 0x18+i, 2), 0x94);
+		dword |= (1<<14);// disable the DRAM interface at first, it will be enabled by raminit again
+		pci_write_config32(PCI_DEV(0, 0x18+i, 2), 0x94, dword);
+
+                dword = 0x23070000; //enable FID/VID change
+//		dword = 0x00070000; //enable FID/VID change
+                pci_write_config32(PCI_DEV(0, 0x18+i, 3), 0x80, dword);
+
+                dword = 0x00132113;
+                pci_write_config32(PCI_DEV(0, 0x18+i, 3), 0x84, dword);
+
+	}
+}
+
+static unsigned set_fidvid(unsigned apicid, unsigned fidvid, int showmessage)
+{
+	//for (cur, new) there is one <1600MHz x8 to find out next_fid 
+	const static uint8_t next_fid_a[] = {
+	/* x4  x5  x6  x7  x8  x9 x10 x11 x12 x13 x14 x15 */ // 0:x4, 2:x5....BASE=4, MIN=4, MAX=25, INC=2 result = (xX-BASE)*INC
+/* x4 */    0,  9,  9,  8,  9,  9,  9,  9,  9,  9,  9,  9,
+/* x5 */    9,  0, 11, 11,  9,  9, 10, 11, 11, 11, 11, 11, 
+/* x6 */   11, 11,  0, 13, 11, 11, 11, 11, 12, 13, 13, 13,
+/* x7 */   13, 13, 13,  0, 13, 13, 13, 13, 13, 13, 14, 15,
+/* x8 */    4,  9,  9,  9,  0,  9,  9,  9,  9,  9,  9,  9,
+/* x9 */    4,  5, 10, 10,  8,  0,  0,  0,  0,  0,  0,  0, 
+/*x10 */    9,  5, 11, 11,  9,  0,  0,  0,  0,  0,  0,  0, 
+/*x11 */   10,  5,  6, 12, 10,  0,  0,  0,  0,  0,  0,  0,
+/*x12 */   11, 11,  6, 13, 11,  0,  0,  0,  0,  0,  0,  0,
+/*x13 */   12, 12,  6,  7, 12,  0,  0,  0,  0,  0,  0,  0,
+/*x14 */   13, 13, 13,  7, 13,  0,  0,  0,  0,  0,  0,  0,
+/*x15 */   14, 14, 14,  7, 14,  0,  0,  0,  0,  0,  0,  0, 
+	};
+
+        msr_t msr;
+        uint32_t vid;
+        uint32_t fid;
+	uint32_t vid_max;
+	uint32_t fid_max;
+        uint32_t vid_cur;
+        uint32_t fid_cur;
+	unsigned apicidx;
+
+	int steps;
+	int loop;
+
+	apicidx = lapicid();
+
+	if(apicid!=apicidx) {
+#if CONFIG_USE_INIT == 1
+		printk_err("wrong apicid, we want change %x, but it is %x\r\n", apicid, apicidx);
+#else
+		print_err("wrong apicid, we want change "); print_err_hex8(apicid); print_err(" but it is "); print_err_hex8(apicidx); print_err("\r\n");
+#endif
+		return fidvid;	
+	}
+
+	fid = (fidvid >> 8) & 0x3f;
+	vid = (fidvid >> 16) & 0x3f;
+
+	msr = rdmsr(0xc0010042);
+
+        vid_cur = msr.hi & 0x3f;
+        fid_cur = msr.lo & 0x3f;
+
+	if((vid_cur==vid) && (fid_cur==fid)) return fidvid; 
+
+        vid_max = (msr.hi>>(48-32)) & 0x3f;
+        fid_max = (msr.lo>>16) & 0x3f;
+
+        //set vid to max
+        msr.hi = 1;
+        msr.lo = (vid_max<<8) | (fid_cur);
+        msr.lo |= (1<<16); // init changes
+        wrmsr(0xc0010041, msr);
+
+        for(loop=0;loop<100000;loop++){
+		msr = rdmsr(0xc0010042);
+                if(!(msr.lo & (1<<31))) break;
+        }
+	vid_cur = msr.hi & 0x3f;
+
+	steps = 8; //??
+        while((fid_cur!=fid) && (steps-->0)) {
+		uint32_t fid_temp;	
+		if((fid_cur > (8-4)*2) && (fid> (8-4)*2)) {
+	        	if(fid_cur<fid) {
+        	        	fid_temp = fid_cur + 2;
+       	                } else {
+               	                fid_temp = fid_cur - 2;
+                       	}
+		}
+		else { //there is one < 8, So we need to lookup the table to find the fid_cur
+			int temp;
+			temp = next_fid_a[(fid_cur/2)*12+(fid/2)];
+			if(temp <= 0) break;
+			fid_temp = (temp-4) * 2;
+		}
+		if(fid_temp>fid_max) break;
+
+		fid_cur = fid_temp;
+
+	        //set target fid
+        	msr.hi = (100000/5);
+	        msr.lo = (vid_cur<<8) | fid_cur;
+	        msr.lo |= (1<<16); // init changes
+	        wrmsr(0xc0010041, msr);
+
+
+#if K8_SET_FIDVID_DEBUG == 1
+		if(showmessage) {
+			print_debug_fv_8("\tapicid in set_fidvid = ", apicid);
+			print_debug_fv_64("ctrl msr fid, vid ", msr.hi, msr.lo); 
+		}
+#endif
+
+	        for(loop=0;loop<100000;loop++){
+        		msr = rdmsr(0xc0010042);
+	                if(!(msr.lo & (1<<31))) break;
+        	}
+	        fid_cur = msr.lo & 0x3f;
+
+#if K8_SET_FIDVID_DEBUG == 1
+		if(showmessage)	{	
+                        print_debug_fv_64("status msr fid, vid ", msr.hi, msr.lo);
+		}
+#endif
+	}
+
+        //set vid to final 
+        msr.hi = 1;
+        msr.lo = (vid<<8) | (fid_cur);
+        msr.lo |= (1<<16); // init changes
+        wrmsr(0xc0010041, msr);
+
+        for(loop=0;loop<100000;loop++){
+                msr = rdmsr(0xc0010042);
+                if(!(msr.lo & (1<<31))) break;
+        }
+        vid_cur = msr.hi & 0x3f;
+
+	fidvid = (vid_cur<< 16) | (fid_cur<<8);
+
+	if(showmessage) {
+		if((fid!=fid_cur) || (vid!=vid_cur)) {
+			print_err("set fidvid failed\r\n");
+		}
+	}
+
+	return fidvid;
+
+}
+
+static void init_fidvid_ap(unsigned bsp_apicid, unsigned apicid)
+{
+
+	uint32_t send;
+        uint32_t readback;
+	msr_t msr;
+        uint32_t vid_cur;
+        uint32_t fid_cur;
+	int loop;
+
+        msr =  rdmsr(0xc0010042);
+        send = ((msr.lo>>16) & 0x3f) << 8; //max fid
+        send |= ((msr.hi>>(48-32)) & 0x3f) << 16; //max vid
+	send |= (apicid<<24); // ap apicid
+
+        vid_cur = msr.hi & 0x3f;
+        fid_cur = msr.lo & 0x3f;
+
+	// set to current
+        msr.hi = 1;
+        msr.lo = (vid_cur<<8) | (fid_cur);
+        wrmsr(0xc0010041, msr);
+
+	wait_cpu_state(bsp_apicid, 1);
+        //send signal to BSP about this AP max fid and vid
+        lapic_write(LAPIC_MSG_REG, send | 1); //AP at state 1 that sent our fid and vid
+
+//	wait_cpu_state(bsp_apicid, 2);// don't need we can use apicid directly	
+	loop = 100000;
+        while(--loop>0) {
+		//remote read BSP signal that include vid and fid that need to set
+                if(lapic_remote_read(bsp_apicid, LAPIC_MSG_REG, &readback)!=0) continue;
+                if(((readback>>24) & 0xff) == apicid) break; // it is this cpu turn
+        }
+
+	if(loop>0) {
+       		readback = set_fidvid(apicid, readback & 0xffff00, 1); // this AP
+       		//send signal to BSP that this AP fid/vid is set // allow to change state2 is together with apicid
+	        send = (apicid<<24) | (readback & 0x00ffff00); // AP at state that We set the requested fid/vid
+	}
+
+       	lapic_write(LAPIC_MSG_REG, send | 2);
+
+	wait_cpu_state(bsp_apicid, 3);
+}
+
+static unsigned calc_common_fidvid(unsigned fidvid, unsigned fidvidx)
+{
+	/* FIXME: need to check the change path to verify if it is reachable when common fid is small than 1.6G */	
+	if((fidvid & 0xff00)<=(fidvidx & 0xff00)) {
+		return fidvid;
+	}
+	else {
+		return fidvidx;
+	}
+} 
+
+struct fidvid_st {
+	unsigned common_fidvid;
+};
+
+static void init_fidvid_bsp_stage1(unsigned ap_apicid, void *gp ) 
+{		
+		unsigned readback;
+
+		struct fidvid_st *fvp = gp;
+		int loop;
+		
+                print_debug_fv("state 1: ap_apicid=", ap_apicid);
+
+		loop = 100000;
+                while(--loop > 0) {
+  	              if(lapic_remote_read(ap_apicid, LAPIC_MSG_REG, &readback)!=0) continue;
+                      if((readback & 0xff) == 1) break; //target ap is in stage 1 
+                }
+
+                print_debug_fv("\treadback=", readback);
+
+                fvp->common_fidvid = calc_common_fidvid(fvp->common_fidvid, readback & 0xffff00);
+
+                print_debug_fv("\tcommon_fidvid=", fvp->common_fidvid);
+
+}
+static void init_fidvid_bsp_stage2(unsigned ap_apicid, void *gp)
+{
+		unsigned readback;
+
+		struct fidvid_st *fvp = gp;
+		int loop;
+
+                print_debug_fv("state 2: ap_apicid=", ap_apicid);
+
+                lapic_write(LAPIC_MSG_REG, fvp->common_fidvid | (ap_apicid<<24) | 2); // all set to state2
+		
+		loop = 100000;	
+                while(--loop > 0) {
+                	if(lapic_remote_read(ap_apicid, LAPIC_MSG_REG, &readback)!=0) continue;
+                        if((readback & 0xff) == 2) break; // target ap is stage 2, and it'd FID has beed set
+                }
+
+                print_debug_fv("\treadback=", readback);
+}
+
+#if K8_SET_FIDVID_STORE_AP_APICID_AT_FIRST == 1
+struct ap_apicid_st {
+	unsigned num;
+	unsigned apicid[16]; // 8 way dual core need 16
+	/* FIXME: 32 node quad core, may need 128 */
+};
+
+static void store_ap_apicid(unsigned ap_apicid, void *gp)
+{
+	struct ap_apicid_st *p = gp;
+	
+	p->apicid[p->num++] = ap_apicid;
+
+}
+#endif
+
+static void init_fidvid_bsp(unsigned bsp_apicid) 
+{
+        uint32_t vid_max;
+        uint32_t fid_max;
+
+	struct fidvid_st fv;
+
+#if K8_SET_FIDVID_STORE_AP_APICID_AT_FIRST == 1
+	struct ap_apicid_st ap_apicidx;
+	unsigned i;
+#endif
+
+	
+        msr_t msr;
+        msr =  rdmsr(0xc0010042);
+        fid_max = ((msr.lo>>16) & 0x3f); //max fid
+        vid_max = ((msr.hi>>(48-32)) & 0x3f); //max vid
+	fv.common_fidvid = (fid_max<<8)|(vid_max<<16);
+
+
+        // for all APs (We know the APIC ID of all APs even the APIC ID is lifted)
+        // remote read from AP about max fid/vid
+
+	//let all ap trains to state 1
+	lapic_write(LAPIC_MSG_REG,  (bsp_apicid<<24) | 1);  
+
+        // calculate the common max fid/vid that could be used for all APs and BSP
+#if K8_SET_FIDVID_STORE_AP_APICID_AT_FIRST == 1
+	ap_apicidx.num = 0;
+	
+	for_each_ap(bsp_apicid, K8_SET_FIDVID_CORE0_ONLY, store_ap_apicid, &ap_apicidx);
+
+	for(i=0;i<ap_apicidx.num;i++) {
+		init_fidvid_bsp_stage1(ap_apicidx.apicid[i], &fv);
+	}
+#else
+	for_each_ap(bsp_apicid, K8_SET_FIDVID_CORE0_ONLY, init_fidvid_bsp_stage1, &fv);
+#endif
+
+
+        // set BSP fid and vid
+	print_debug_fv("bsp apicid=", bsp_apicid);
+	fv.common_fidvid = set_fidvid(bsp_apicid, fv.common_fidvid, 1);
+        print_debug_fv("common_fidvid=", fv.common_fidvid);
+
+
+        //for all APs ( We know the APIC ID of all AP even the APIC ID is lifted)
+        // send signal to the AP it could change it's fid/vid
+        // remote read singnal from AP that AP is done
+
+        fv.common_fidvid &= 0xffff00;
+
+	//set state 2 allow is in init_fidvid_bsp_stage2
+#if K8_SET_FIDVID_STORE_AP_APICID_AT_FIRST == 1
+        for(i=0;i<ap_apicidx.num;i++) {
+                init_fidvid_bsp_stage2(ap_apicidx.apicid[i], &fv);
+        }
+#else
+	for_each_ap(bsp_apicid, K8_SET_FIDVID_CORE0_ONLY, init_fidvid_bsp_stage2, &fv);
+#endif
+
+	lapic_write(LAPIC_MSG_REG, fv.common_fidvid | (bsp_apicid<<24) | 3); // clear the state
+
+	//here  wait a while, so last ap could read pack, and stop it, don't call init_timer too early or just don't use init_timer
+
+}
+
+#endif
diff --git a/src/cpu/amd/model_fxx/init_cpus.c b/src/cpu/amd/model_fxx/init_cpus.c
index 9e1772e8f8..718a0f6295 100644
--- a/src/cpu/amd/model_fxx/init_cpus.c
+++ b/src/cpu/amd/model_fxx/init_cpus.c
@@ -1,4 +1,13 @@
 //it takes the ENABLE_APIC_EXT_ID and APIC_ID_OFFSET and LIFT_BSP_APIC_ID
+#ifndef K8_SET_FIDVID
+	#define K8_SET_FIDVID 0
+	
+#endif
+
+#ifndef K8_SET_FIDVID_CORE0_ONLY
+	/* MSR FIDVID_CTL and FIDVID_STATUS are shared by cores, so may don't need to do twice*/
+       	#define K8_SET_FIDVID_CORE0_ONLY 1
+#endif
 
 typedef void (*process_ap_t)(unsigned apicid, void *gp);
 
@@ -100,6 +109,10 @@ static inline int lapic_remote_read(int apicid, int reg, unsigned *pvalue)
 #define LAPIC_MSG_REG 0x380
 
 
+#if K8_SET_FIDVID == 1
+static void init_fidvid_ap(unsigned bsp_apicid, unsigned apicid);
+#endif
+
 static inline __attribute__((always_inline)) void print_apicid_nodeid_coreid(unsigned apicid, struct node_core_id id, const char *str)
 {
 	#if CONFIG_USE_INIT == 0
@@ -139,7 +152,11 @@ static void allow_all_aps_stop(unsigned bsp_apicid)
 }
 
 
+#if RAMINIT_SYSINFO == 1
+static unsigned init_cpus(unsigned cpu_init_detectedx ,struct sys_info *sysinfo)
+#else
 static unsigned init_cpus(unsigned cpu_init_detectedx)
+#endif
 {
 		unsigned bsp_apicid = 0;
 		unsigned apicid;
@@ -193,7 +210,7 @@ static unsigned init_cpus(unsigned cpu_init_detectedx)
 			if (id.nodeid!=0) //all core0 except bsp
 				print_apicid_nodeid_coreid(apicid, id, " core0: ");
 		}
-	#if 1 
+	#if 0 
                 else { //all core1
 			print_apicid_nodeid_coreid(apicid, id, " core1: ");
                 }
@@ -202,11 +219,20 @@ static unsigned init_cpus(unsigned cpu_init_detectedx)
 #endif
 
                 if (cpu_init_detectedx) {
+		#if RAMINIT_SYSINFO == 1
+			//We need to init sblnk and sbbusn, because it is called before ht_setup_chains_x
+		        sysinfo->sblnk = get_sblnk();
+			sysinfo->sbbusn = node_link_to_bus(0, sysinfo->sblnk);
+		#endif
 			print_apicid_nodeid_coreid(apicid, id, "\r\n\r\n\r\nINIT detect from ");
 
 			print_debug("\r\nIssuing SOFT_RESET...\r\n");
 
+			#if RAMINIT_SYSINFO == 1
+                        soft_reset(sysinfo);
+			#else
 			soft_reset();
+			#endif
 
                 }
 
@@ -219,6 +245,13 @@ static unsigned init_cpus(unsigned cpu_init_detectedx)
 		lapic_write(LAPIC_MSG_REG, (apicid<<24) | 0x33); // mark the cpu is started
 
 		if(apicid != bsp_apicid) {
+	#if K8_SET_FIDVID == 1
+		#if (CONFIG_LOGICAL_CPUS == 1) && (K8_SET_FIDVID_CORE0_ONLY == 1)
+			if(id.coreid == 0 ) // only need set fid for core0
+		#endif 
+       		                init_fidvid_ap(bsp_apicid, apicid);
+	#endif
+
                         // We need to stop the CACHE as RAM for this CPU, really?
 			wait_cpu_state(bsp_apicid, 0x44);
 			lapic_write(LAPIC_MSG_REG, (apicid<<24) | 0x44); // bsp can not check it before stop_this_cpu