Chameleon

Chameleon Svn Source Tree

Root/trunk/i386/libsaio/spd.c

1/*
2 * spd.c - serial presence detect memory information
3 *
4 * Originally restored from pcefi10.5 by netkas
5 * Dynamic mem detection original impl. by Rekursor
6 * System profiler fix and other fixes by Mozodojo.
7 */
8
9#include "libsaio.h"
10#include "pci.h"
11#include "platform.h"
12#include "spd.h"
13#include "cpu.h"
14#include "saio_internal.h"
15#include "bootstruct.h"
16#include "memvendors.h"
17
18#ifndef DEBUG_SPD
19#define DEBUG_SPD 0
20#endif
21
22#if DEBUG_SPD
23#define DBG(x...)printf(x)
24#else
25#define DBG(x...)msglog(x)
26#endif
27
28static const char *spd_memory_types[] =
29{
30"RAM", /* 00h Undefined */
31"FPM", /* 01h FPM */
32"EDO", /* 02h EDO */
33"",/* 03h PIPELINE NIBBLE */
34"SDRAM", /* 04h SDRAM */
35"",/* 05h MULTIPLEXED ROM */
36"DDR SGRAM",/* 06h SGRAM DDR */
37"DDR SDRAM",/* 07h SDRAM DDR */
38"DDR2 SDRAM", /* 08h SDRAM DDR 2 */
39"",/* 09h Undefined */
40"",/* 0Ah Undefined */
41"DDR3 SDRAM"/* 0Bh SDRAM DDR 3 */
42};
43
44#define UNKNOWN_MEM_TYPE 2
45static uint8_t spd_mem_to_smbios[] =
46{
47UNKNOWN_MEM_TYPE,/* 00h Undefined */
48UNKNOWN_MEM_TYPE,/* 01h FPM */
49UNKNOWN_MEM_TYPE,/* 02h EDO */
50UNKNOWN_MEM_TYPE,/* 03h PIPELINE NIBBLE */
51SMB_MEM_TYPE_SDRAM,/* 04h SDRAM */
52SMB_MEM_TYPE_ROM,/* 05h MULTIPLEXED ROM */
53SMB_MEM_TYPE_SGRAM,/* 06h SGRAM DDR */
54SMB_MEM_TYPE_DDR,/* 07h SDRAM DDR */
55SMB_MEM_TYPE_DDR2,/* 08h SDRAM DDR 2 */
56UNKNOWN_MEM_TYPE,/* 09h Undefined */
57UNKNOWN_MEM_TYPE,/* 0Ah Undefined */
58SMB_MEM_TYPE_DDR3/* 0Bh SDRAM DDR 3 */
59};
60#define SPD_TO_SMBIOS_SIZE (sizeof(spd_mem_to_smbios)/sizeof(uint8_t))
61
62#define rdtsc(low,high) \
63__asm__ __volatile__("rdtsc" : "=a" (low), "=d" (high))
64
65#define SMBHSTSTS 0
66#define SMBHSTCNT 2
67#define SMBHSTCMD 3
68#define SMBHSTADD 4
69#define SMBHSTDAT 5
70#define SBMBLKDAT 7
71
72int spd_indexes[] = {
73SPD_MEMORY_TYPE,
74SPD_DDR3_MEMORY_BANK,
75SPD_DDR3_MEMORY_CODE,
76SPD_NUM_ROWS,
77SPD_NUM_COLUMNS,
78SPD_NUM_DIMM_BANKS,
79SPD_NUM_BANKS_PER_SDRAM,
804,7,8,9,12,64, /* TODO: give names to these values */
8195,96,97,98, 122,123,124,125 /* UIS */
82};
83#define SPD_INDEXES_SIZE (sizeof(spd_indexes) / sizeof(int))
84
85/** Read one byte from the intel i2c, used for reading SPD on intel chipsets only. */
86
87unsigned char smb_read_byte_intel(uint32_t base, uint8_t adr, uint8_t cmd)
88{
89int l1, h1, l2, h2;
90unsigned long long t;
91
92outb(base + SMBHSTSTS, 0x1f);// reset SMBus Controller
93outb(base + SMBHSTDAT, 0xff);
94
95rdtsc(l1, h1);
96while ( inb(base + SMBHSTSTS) & 0x01) // wait until read
97{
98rdtsc(l2, h2);
99t = ((h2 - h1) * 0xffffffff + (l2 - l1)) / (Platform.CPU.TSCFrequency / 100);
100if (t > 5)
101{
102return 0xFF;// break
103}
104}
105
106outb(base + SMBHSTCMD, cmd);
107outb(base + SMBHSTADD, (adr << 1) | 0x01 );
108outb(base + SMBHSTCNT, 0x48 );
109
110rdtsc(l1, h1);
111
112while (!( inb(base + SMBHSTSTS) & 0x02))// wait til command finished
113{
114rdtsc(l2, h2);
115t = ((h2 - h1) * 0xffffffff + (l2 - l1)) / (Platform.CPU.TSCFrequency / 100);
116if (t > 5)
117{
118break;// break after 5ms
119}
120}
121return inb(base + SMBHSTDAT);
122}
123
124/* SPD i2c read optimization: prefetch only what we need, read non prefetcheable bytes on the fly */
125#define READ_SPD(spd, base, slot, x) spd[x] = smb_read_byte_intel(base, 0x50 + slot, x)
126
127/** Read from spd *used* values only*/
128static void init_spd(char * spd, uint32_t base, int slot)
129{
130int i;
131for (i = 0; i < SPD_INDEXES_SIZE; i++)
132{
133READ_SPD(spd, base, slot, spd_indexes[i]);
134}
135}
136
137// Get Vendor Name from spd, 2 cases handled DDR3 and DDR2,
138// have different formats, always return a valid ptr.*/
139const char * getVendorName(RamSlotInfo_t* slot, uint32_t base, int slot_num)
140{
141uint8_t bank = 0;
142uint8_t code = 0;
143int i = 0;
144uint8_t * spd = (uint8_t *) slot->spd;
145
146if (spd[SPD_MEMORY_TYPE]==SPD_MEMORY_TYPE_SDRAM_DDR3) // DDR3
147{
148bank = (spd[SPD_DDR3_MEMORY_BANK] & 0x07f); // constructors like Patriot use b7=1
149code = spd[SPD_DDR3_MEMORY_CODE];
150for (i=0; i < VEN_MAP_SIZE; i++)
151{
152if (bank==vendorMap[i].bank && code==vendorMap[i].code)
153{
154return vendorMap[i].name;
155}
156}
157}
158else if (spd[SPD_MEMORY_TYPE]==SPD_MEMORY_TYPE_SDRAM_DDR2 || spd[SPD_MEMORY_TYPE]==SPD_MEMORY_TYPE_SDRAM_DDR)
159{
160if(spd[64]==0x7f)
161{
162for (i=64; i<72 && spd[i]==0x7f;i++)
163{
164bank++;
165READ_SPD(spd, base, slot_num, (uint8_t)(i+1)); // prefetch next spd byte to read for next loop
166}
167READ_SPD(spd, base, slot_num,(uint8_t)i);
168code = spd[i];
169}
170else
171{
172code = spd[64];
173bank = 0;
174}
175for (i=0; i < VEN_MAP_SIZE; i++)
176{
177if (bank==vendorMap[i].bank && code==vendorMap[i].code)
178{
179return vendorMap[i].name;
180}
181}
182}
183/* OK there is no vendor id here lets try to match the partnum if it exists */
184if (strstr(slot->PartNo,"GU332") == slot->PartNo) { // Unifosa fingerprint
185return "Unifosa";
186}
187return "NoName";
188}
189
190/* Get Default Memory Module Speed (no overclocking handled) */
191int getDDRspeedMhz(const char * spd)
192{
193
194if ((spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR2) || (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR))
195{
196switch(spd[9])
197{
198case 0x50:
199return 400;
200case 0x3d:
201return 533;
202case 0x30:
203return 667;
204case 0x25:
205default:
206return 800;
207case 0x1E:
208return 1066;
209}
210}
211else if (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR3)
212{
213switch(spd[12])
214{
215case 0x0f:
216return 1066;
217case 0x0c:
218return 1333;
219case 0x0a:
220return 1600;
221case 0x14:
222default:
223return 800;
224}
225}
226return 800; // default freq for unknown types
227}
228
229#define SMST(a) ((uint8_t)((spd[a] & 0xf0) >> 4))
230#define SLST(a) ((uint8_t)(spd[a] & 0x0f))
231
232/* Get DDR3 or DDR2 serial number, 0 most of the times, always return a valid ptr */
233const char *getDDRSerial(const char* spd)
234{
235static char asciiSerial[17];
236
237if (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR3) // DDR3
238{
239snprintf(asciiSerial, sizeof(asciiSerial), "%2X%2X%2X%2X%2X%2X%2X%2X", SMST(122) /*& 0x7*/, SLST(122), SMST(123), SLST(123), SMST(124), SLST(124), SMST(125), SLST(125));
240}
241else if (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR2 || spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR) // DDR2 or DDR
242{
243snprintf(asciiSerial, sizeof(asciiSerial), "%2X%2X%2X%2X%2X%2X%2X%2X", SMST(95) /*& 0x7*/, SLST(95), SMST(96), SLST(96), SMST(97), SLST(97), SMST(98), SLST(98));
244}
245else
246{
247sprintf(asciiSerial, "0000000000000000");
248}
249
250return strdup(asciiSerial);
251}
252
253/* Get DDR3 or DDR2 Part Number, always return a valid ptr */
254const char *getDDRPartNum(char *spd, uint32_t base, int slot)
255{
256static char asciiPartNo[32];
257int i, start=0, index = 0;
258
259if (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR3)
260{
261start = 128;
262}
263else if (spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR2 || spd[SPD_MEMORY_TYPE] == SPD_MEMORY_TYPE_SDRAM_DDR)
264{
265start = 73;
266}
267
268// Check that the spd part name is zero terminated and that it is ascii:
269bzero(asciiPartNo, sizeof(asciiPartNo));
270char c;
271for (i = start; i < start + sizeof(asciiPartNo); i++)
272{
273READ_SPD(spd, base, slot, (uint8_t)i); // only read once the corresponding model part (ddr3 or ddr2)
274c = spd[i];
275if (isalpha(c) || isdigit(c) || ispunct(c))
276{
277// It seems that System Profiler likes only letters and digits...
278asciiPartNo[index++] = c;
279}
280else if (!isascii(c))
281{
282break;
283}
284}
285
286return strdup(asciiPartNo);
287}
288
289int mapping []= {0,2,1,3,4,6,5,7,8,10,9,11};
290
291/* Read from smbus the SPD content and interpret it for detecting memory attributes */
292static void read_smb_intel(pci_dt_t *smbus_dev) {
293int i, speed;
294uint8_t spd_size, spd_type;
295uint32_t base, mmio, hostc;
296//bool dump = false;
297RamSlotInfo_t* slot;
298
299uint16_t cmd = pci_config_read16(smbus_dev->dev.addr, 0x04);
300DBG("SMBus CmdReg: 0x%x\n", cmd);
301pci_config_write16(smbus_dev->dev.addr, 0x04, cmd | 1);
302
303mmio = pci_config_read32(smbus_dev->dev.addr, 0x10);// & ~0x0f;
304base = pci_config_read16(smbus_dev->dev.addr, 0x20) & 0xFFFE;
305hostc = pci_config_read8(smbus_dev->dev.addr, 0x40);
306
307verbose("Scanning SMBus [%04x:%04x], mmio: 0x%x, ioport: 0x%x, hostc: 0x%x\n",
308smbus_dev->vendor_id, smbus_dev->device_id, mmio, base, hostc);
309
310//Azi: no use for this!
311// getBoolForKey("DumpSPD", &dump, &bootInfo->chameleonConfig);
312// needed at least for laptops
313bool fullBanks = Platform.DMI.MemoryModules == Platform.DMI.CntMemorySlots;
314
315char spdbuf[MAX_SPD_SIZE];
316// Search MAX_RAM_SLOTS slots
317for (i = 0; i < MAX_RAM_SLOTS; i++) {
318slot = &Platform.RAM.DIMM[i];
319spd_size = smb_read_byte_intel(base, 0x50 + i, 0);
320DBG("SPD[0] (size): %d @0x%x\n", spd_size, 0x50 + i);
321// Check spd is present
322if (spd_size && (spd_size != 0xff))
323{
324slot->spd = spdbuf;
325slot->InUse = true;
326
327bzero(slot->spd, spd_size);
328
329// Copy spd data into buffer
330
331//for (x = 0; x < spd_size; x++) slot->spd[x] = smb_read_byte_intel(base, 0x50 + i, x);
332init_spd(slot->spd, base, i);
333
334switch (slot->spd[SPD_MEMORY_TYPE])
335{
336case SPD_MEMORY_TYPE_SDRAM_DDR:
337
338slot->ModuleSize = (((1 << ((slot->spd[SPD_NUM_ROWS] & 0x0f)
339+ (slot->spd[SPD_NUM_COLUMNS] & 0x0f) - 17)) *
340((slot->spd[SPD_NUM_DIMM_BANKS] & 0x7) + 1) *
341slot->spd[SPD_NUM_BANKS_PER_SDRAM])/3)*2;
342break;
343
344case SPD_MEMORY_TYPE_SDRAM_DDR2:
345
346slot->ModuleSize = ((1 << ((slot->spd[SPD_NUM_ROWS] & 0x0f) + (slot->spd[SPD_NUM_COLUMNS] & 0x0f) - 17)) *
347((slot->spd[SPD_NUM_DIMM_BANKS] & 0x7) + 1) * slot->spd[SPD_NUM_BANKS_PER_SDRAM]);
348break;
349
350case SPD_MEMORY_TYPE_SDRAM_DDR3:
351
352slot->ModuleSize = ((slot->spd[4] & 0x0f) + 28 ) + ((slot->spd[8] & 0x7) + 3 );
353slot->ModuleSize -= (slot->spd[7] & 0x7) + 25;
354slot->ModuleSize = ((1 << slot->ModuleSize) * (((slot->spd[7] >> 3) & 0x1f) + 1));
355
356break;
357
358default:
359slot->ModuleSize = 0;
360break;
361
362}
363
364spd_type = (slot->spd[SPD_MEMORY_TYPE] < ((char) 12) ? slot->spd[SPD_MEMORY_TYPE] : 0);
365slot->Type = spd_mem_to_smbios[spd_type];
366if (slot->Type == UNKNOWN_MEM_TYPE)
367{
368continue;
369}
370slot->PartNo = getDDRPartNum(slot->spd, base, i);
371slot->Vendor = getVendorName(slot, base, i);
372slot->SerialNo = getDDRSerial(slot->spd);
373
374// determine spd speed
375speed = (uint16_t)getDDRspeedMhz(slot->spd);
376if (slot->Frequency < speed)
377{
378slot->Frequency = speed;
379}
380
381// pci memory controller if available, is more reliable
382if (Platform.RAM.Frequency > 0)
383{
384uint32_t freq = (uint32_t)Platform.RAM.Frequency / 500000;
385// now round off special cases
386uint32_t fmod100 = freq %100;
387switch(fmod100)
388{
389case 1:freq--;break;
390case 32:freq++;break;
391case 65:freq++; break;
392case 98:freq+=2;break;
393case 99:freq++; break;
394}
395slot->Frequency = freq;
396}
397
398verbose("Slot: %d Type %d %dMB (%s) %dMHz Vendor=%s\n PartNo=%s SerialNo=%s\n",
399i,
400(int)slot->Type,
401slot->ModuleSize,
402spd_memory_types[spd_type],
403slot->Frequency,
404slot->Vendor,
405slot->PartNo,
406slot->SerialNo);
407slot->InUse = true;
408}
409
410// laptops sometimes show slot 0 and 2 with slot 1 empty when only 2 slots are presents so:
411Platform.DMI.DIMM[i]=
412 (uint32_t)((i > 0 && Platform.RAM.DIMM[1].InUse == false && fullBanks && Platform.DMI.CntMemorySlots == 2) ? mapping[i] : i); // for laptops case, mapping setup would need to be more generic than this
413
414slot->spd = NULL;
415
416} // for
417}
418
419static struct smbus_controllers_t smbus_controllers[] = {
420
421{0x8086, 0x1C22, "P67", read_smb_intel }, // Z68, Q67
422{0x8086, 0x1D22, "X79", read_smb_intel },
423{0x8086, 0x1D70, "X79", read_smb_intel },
424{0x8086, 0x1D71, "X79", read_smb_intel },
425{0x8086, 0x1D72, "C608", read_smb_intel },
426{0x8086, 0x1E22, "Z77", read_smb_intel }, // H77, Q77
427{0x8086, 0x2330, "DH89xxCC", read_smb_intel },
428{0x8086, 0x2413, "82801AA", read_smb_intel },
429{0x8086, 0x2423, "BAM", read_smb_intel },
430{0x8086, 0x2443, "BAM", read_smb_intel },
431{0x8086, 0x2483, "CAM", read_smb_intel },
432{0x8086, 0x24C3, "ICH4", read_smb_intel },
433{0x8086, 0x24D3, "ICH5", read_smb_intel },
434{0x8086, 0x25A4, "6300ESB", read_smb_intel },
435{0x8086, 0x266A, "ICH6", read_smb_intel },
436{0x8086, 0x269B, "ESB", read_smb_intel },
437{0x8086, 0x27DA, "ICH7", read_smb_intel },
438{0x8086, 0x283E, "ICH8", read_smb_intel },
439{0x8086, 0x2930, "ICH9", read_smb_intel },
440{0x8086, 0x3A30, "ICH10", read_smb_intel },
441{0x8086, 0x3A60, "ICH10", read_smb_intel },
442{0x8086, 0x3B30, "P55", read_smb_intel },
443{0x8086, 0x5032, "EP80579", read_smb_intel },
444{0x8086, 0x8119, "US15W", read_smb_intel },
445{0x8086, 0x8C22, "HSW", read_smb_intel }, // Z87, H87, Q87, H81
446{0x8086, 0x8CA2, "Z97/H97", read_smb_intel }, // new
447{0x8086, 0x8D22, "X99", read_smb_intel }, // new
448{0x8086, 0x9C22, "HSW-ULT", read_smb_intel }
449
450};
451
452// initial call : pci_dt = root_pci_dev;
453// find_and_read_smbus_controller(root_pci_dev);
454bool find_and_read_smbus_controller(pci_dt_t* pci_dt)
455{
456pci_dt_t*current = pci_dt;
457int i;
458
459while (current)
460{
461#if 0
462printf("%02x:%02x.%x [%04x] [%04x:%04x] :: %s\n",
463current->dev.bits.bus, current->dev.bits.dev, current->dev.bits.func,
464current->class_id, current->vendor_id, current->device_id,
465get_pci_dev_path(current));
466#endif
467for ( i = 0; i < sizeof(smbus_controllers) / sizeof(smbus_controllers[0]); i++ )
468{
469if (current->vendor_id == smbus_controllers[i].vendor && current->device_id == smbus_controllers[i].device)
470{
471smbus_controllers[i].read_smb(current); // read smb
472return true;
473}
474}
475find_and_read_smbus_controller(current->children);
476current = current->next;
477}
478return false; // not found
479}
480
481void scan_spd(PlatformInfo_t *p)
482{
483find_and_read_smbus_controller(root_pci_dev);
484}
485
486

Archive Download this file

Revision: 2539