Gitiles
Code Review Sign In
review.coreboot.org / coreboot / 9631016660423d0585a1 / . / util / inteltool / ivy_memory.c
blob: 0dfa7999d68d70ef62eeef9a50ff8430d41124b8 [file] [log] [blame]
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]1/*
2 * Copyright (C) 2014 Vladimir Serbinenko
3 *
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; version 2 or (at your option) any later version of the License.
7 *
8 * This program is distributed in the hope that it will be useful,
9 * but WITHOUT ANY WARRANTY; without even the implied warranty of
10 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
11 * GNU General Public License for more details.
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]12 */
13
14#include <stdio.h>
15#include <stdlib.h>
16#include <string.h>
17#include <inttypes.h>
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]18#include <errno.h>
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]19#include "inteltool.h"
20
21extern volatile uint8_t *mchbar;
22
23static uint32_t read_mchbar32(uint32_t addr)
24{
25 return *(volatile uint32_t *)(mchbar + addr);
26}
27
28static void
29print_time(const char *string, unsigned long long time, unsigned long long tCK)
30{
31 printf(".%s = %lld /* %lld clocks = %.3lf ns */,\n",
32 string, time, time, (time * tCK) / 256.0);
33}
34
35static unsigned int
36make_spd_time(unsigned long long time, unsigned long long tCK)
37{
38 return (time * tCK) >> 5;
39}
40
41static u16 spd_ddr3_calc_crc(u8 * spd)
42{
43 int n_crc, i;
44 u8 *ptr;
45 u16 crc;
46
47 /* Find the number of bytes covered by CRC */
48 if (spd[0] & 0x80) {
49 n_crc = 117;
50 } else {
51 n_crc = 126;
52 }
53
54 /* Compute the CRC */
55 crc = 0;
56 ptr = spd;
57 while (--n_crc >= 0) {
58 crc = crc ^ (int)*ptr++ << 8;
59 for (i = 0; i < 8; ++i)
60 if (crc & 0x8000) {
61 crc = crc << 1 ^ 0x1021;
62 } else {
63 crc = crc << 1;
64 }
65 }
66 return crc;
67}
68
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]69void ivybridge_dump_timings(const char *dump_spd_file)
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]70{
71 u32 mr0[2];
72 u32 mr1[2];
73 u32 reg;
74 unsigned int CAS = 0;
75 int tWR = 0, tRFC = 0;
76 int tFAW[2], tWTR[2], tCKE[2], tRTP[2], tRRD[2];
77 int channel, slot;
78 u32 reg_4004_b30[2] = { 0, 0 };
79 unsigned int tREFI;
80 int rankmap[2];
81 u32 mad_dimm[2];
82 unsigned int tRCD[2], tXP[2], tXPDLL[2], tRAS[2], tCWL[2], tRP[2],
83 tAONPD[2];
84 unsigned int tXSOffset;
85 int two_channels = 1;
86 struct slot_info {
87 unsigned int size_mb;
88 unsigned int ranks;
89 unsigned int width;
90 } slots[2][2];
91 unsigned int tCK;
92 u8 spd[2][2][256];
93
94 memset(slots, 0, sizeof(slots));
95
96 for (channel = 0; channel < 2; channel++) {
97 rankmap[channel] = read_mchbar32(0xc14 + 0x100 * channel) >> 24;
98 }
99
100 two_channels = rankmap[0] && rankmap[1];
101
102 mr0[0] = read_mchbar32(0x0004);
103 mr1[0] = read_mchbar32(0x0008);
104 mr0[1] = read_mchbar32(0x0104);
105 mr1[1] = read_mchbar32(0x0108);
106
107 if (mr0[0] != mr0[1] && two_channels)
108 printf("MR0 mismatch: %x, %x\n", mr0[0], mr0[1]);
109 if (mr1[0] != mr1[1] && two_channels)
110 printf("MR1 mismatch: %x, %x\n", mr1[0], mr1[1]);
111
112 reg = read_mchbar32(0x5e00) & ~0x80000000;
113 printf(" .tCK = TCK_MHZ%d,\n", 400 * reg / 3);
114
115 tCK = (64 * 10 * 3) / reg;
116
117 if (mr0[0] & 1) {
118 CAS = ((mr0[0] >> 4) & 0x7) + 12;
119 } else {
120 CAS = ((mr0[0] >> 4) & 0x7) + 4;
121 }
122
123 for (channel = 0; channel < 2; channel++) {
124 mad_dimm[channel] = read_mchbar32(0x5004 + 4 * channel);
125 }
126
127 printf(".rankmap = { 0x%x, 0x%x }, \n", rankmap[0], rankmap[1]);
128
129 printf(".mad_dimm = { 0x%x, 0x%x }, \n", mad_dimm[0], mad_dimm[1]);
130
131 for (channel = 0; channel < 2; channel++)
132 if (rankmap[channel]) {
133 int ctWR;
134 static const u8 mr0_wr_t[12] =
135 { 1, 2, 3, 4, 0, 5, 0, 6, 0, 7, 0, 0 };
136 reg = read_mchbar32(0x4004 + 0x400 * channel);
137
138 ctWR = (reg >> 24) & 0x3f;
139 if (tWR && ctWR != tWR)
140 printf("/* tWR mismatch: %d, %d */\n", tWR,
141 ctWR);
142 if (!tWR)
143 tWR = ctWR;
144 if (((mr0[channel] >> 9) & 7) != mr0_wr_t[tWR - 5])
145 printf("/* encoded tWR mismatch: %d, %d */\n",
146 ((mr0[channel] >> 9) & 7),
147 mr0_wr_t[tWR - 5]);
148 reg_4004_b30[channel] = reg >> 30;
149 tFAW[channel] = (reg >> 16) & 0xff;
150 tWTR[channel] = (reg >> 12) & 0xf;
151 tCKE[channel] = (reg >> 8) & 0xf;
152 tRTP[channel] = (reg >> 4) & 0xf;
153 tRRD[channel] = (reg >> 0) & 0xf;
154
155 reg = read_mchbar32(0x4000 + 0x400 * channel);
156 tRAS[channel] = reg >> 16;
157 tCWL[channel] = (reg >> 12) & 0xf;
158 if (CAS != ((reg >> 8) & 0xf))
159 printf("/* CAS mismatch: %d, %d. */\n", CAS,
160 (reg >> 8) & 0xf);
161 tRP[channel] = (reg >> 4) & 0xf;
162 tRCD[channel] = reg & 0xf;
163
164 reg = read_mchbar32(0x400c + channel * 0x400);
165 tXPDLL[channel] = reg & 0x1f;
166 tXP[channel] = (reg >> 5) & 7;
167 tAONPD[channel] = (reg >> 8) & 0xff;
168 }
169 printf(".mobile = %d,\n", (mr0[0] >> 12) & 1);
170 print_time("CAS", CAS, tCK);
171 print_time("tWR", tWR, tCK);
172
173 printf(".reg_4004_b30 = { %d, %d },\n", reg_4004_b30[0],
174 reg_4004_b30[1]);
175 if (tFAW[0] != tFAW[1] && two_channels)
176 printf("/* tFAW mismatch: %d, %d */\n", tFAW[0], tFAW[1]);
177 print_time("tFAW", tFAW[0], tCK);
178 if (tWTR[0] != tWTR[1] && two_channels)
179 printf("/* tWTR mismatch: %d, %d */\n", tWTR[0], tWTR[1]);
180 print_time("tWTR", tWTR[0], tCK);
181 if (tCKE[0] != tCKE[1] && two_channels)
182 printf("/* tCKE mismatch: %d, %d */\n", tCKE[0], tCKE[1]);
183 print_time("tCKE", tCKE[0], tCK);
184 if (tRTP[0] != tRTP[1] && two_channels)
185 printf("/* tRTP mismatch: %d, %d */\n", tRTP[0], tRTP[1]);
186 print_time("tRTP", tRTP[0], tCK);
187 if (tRRD[0] != tRRD[1] && two_channels)
188 printf("/* tRRD mismatch: %d, %d */\n", tRRD[0], tRRD[1]);
189 print_time("tRRD", tRRD[0], tCK);
190
191 if (tRAS[0] != tRAS[1] && two_channels)
192 printf("/* tRAS mismatch: %d, %d */\n", tRAS[0], tRAS[1]);
193 print_time("tRAS", tRAS[0], tCK);
194
195 if (tCWL[0] != tCWL[1] && two_channels)
196 printf("/* tCWL mismatch: %d, %d */\n", tCWL[0], tCWL[1]);
197 print_time("tCWL", tCWL[0], tCK);
198
199 if (tRP[0] != tRP[1] && two_channels)
200 printf("/* tRP mismatch: %d, %d */\n", tRP[0], tRP[1]);
201 print_time("tRP", tRP[0], tCK);
202
203 if (tRCD[0] != tRCD[1] && two_channels)
204 printf("/* tRCD mismatch: %d, %d */\n", tRCD[0], tRCD[1]);
205 print_time("tRCD", tRCD[0], tCK);
206
207 if (tXPDLL[0] != tXPDLL[1] && two_channels)
208 printf("/* tXPDLL mismatch: %d, %d */\n", tXPDLL[0], tXPDLL[1]);
209 print_time("tXPDLL", tXPDLL[0], tCK);
210
211 if (tXP[0] != tXP[1] && two_channels)
212 printf("/* tXP mismatch: %d, %d */\n", tXP[0], tXP[1]);
213 print_time("tXP", tXP[0], tCK);
214
215 if (tAONPD[0] != tAONPD[1] && two_channels)
216 printf("/* tAONPD mismatch: %d, %d */\n", tAONPD[0], tAONPD[1]);
217 print_time("tAONPD", tAONPD[0], tCK);
218
219 reg = read_mchbar32(0x4298);
220 if (reg != read_mchbar32(0x4698) && two_channels)
221 printf("/* 4298 mismatch: %d, %d */\n", reg,
222 read_mchbar32(0x4698));
223
224 tREFI = reg & 0xffff;
225 print_time("tREFI", tREFI, tCK);
226 if ((tREFI * 9 / 1024) != (reg >> 25))
227 printf("/* tREFI mismatch: %d, %d */\n", tREFI * 9 / 1024,
228 (reg >> 25));
229 tRFC = (reg >> 16) & 0x1ff;
230 print_time("tRFC", tRFC, tCK);
231
232 reg = read_mchbar32(0x42a4);
233 if (reg != read_mchbar32(0x46a4) && two_channels)
234 printf("/* 42a4 mismatch: %d, %d */\n", reg,
235 read_mchbar32(0x46a4));
236
237 print_time("tMOD", 8 + ((reg >> 28) & 0xf), tCK);
238
239 tXSOffset = 512 - ((reg >> 16) & 0x3ff);
240 print_time("tXSOffset", tXSOffset, tCK);
241 if (tXSOffset != ((reg >> 12) & 0xf))
242 printf("/* tXSOffset mismatch: %d, %d */\n",
243 tXSOffset, (reg >> 12) & 0xf);
244 if (512 != (reg & 0xfff))
245 printf("/* tDLLK mismatch: %d, %d */\n", 512, reg & 0xfff);
246
247 reg = read_mchbar32(0x5064);
248 printf(".reg5064b0 = 0x%x,\n", reg & 0xfff);
249 if ((reg >> 12) != 0x73)
250 printf("/* mismatch 0x%x, 0x73. */\n", reg << 12);
251
252 unsigned int ch0size, ch1size;
253
254 switch (read_mchbar32(0x5000)) {
255 case 0x24:
256 reg = read_mchbar32(0x5014);
257 ch1size = reg >> 24;
258 if (((reg >> 16) & 0xff) != 2 * ch1size)
259 printf("/* ch1size mismatch: %d, %d*/\n",
260 2 * ch1size, ((ch1size >> 16) & 0xff));
261 printf(".channel_size_mb = { ?, %d },\n", ch1size * 256);
262 break;
263 case 0x21:
264 reg = read_mchbar32(0x5014);
265 ch0size = reg >> 24;
266 if (((reg >> 16) & 0xff) != 2 * ch0size)
267 printf("/* ch0size mismatch: %d, %d*/\n",
268 2 * ch0size, ((ch0size >> 16) & 0xff));
269 printf(".channel_size_mb = { %d, ? },\n", ch0size * 256);
270 break;
271 }
272
273 for (channel = 0; channel < 2; channel++) {
274 reg = mad_dimm[channel];
275 int swap = (reg >> 16) & 1;
276 slots[channel][swap].size_mb = (reg & 0xff) * 256;
277 slots[channel][swap].ranks = 1 + ((reg >> 17) & 1);
278 slots[channel][swap].width = 8 + 8 * ((reg >> 19) & 1);
279 slots[channel][!swap].size_mb = ((reg >> 8) & 0xff) * 256;
280 slots[channel][!swap].ranks = 1 + ((reg >> 18) & 1);
281 slots[channel][!swap].width = 8 + 8 * ((reg >> 20) & 1);
282 }
283 /* Undetermined: rank mirror, other modes, asr, ext_temp. */
284 memset(spd, 0, sizeof(spd));
285 for (channel = 0; channel < 2; channel++)
286 for (slot = 0; slot < 2; slot++)
287 if (slots[channel][slot].size_mb) {
288 printf("/* CH%dS%d: %d MiB */\n", channel,
289 slot, slots[channel][slot].size_mb);
290 }
291 for (channel = 0; channel < 2; channel++)
292 for (slot = 0; slot < 2; slot++)
293 if (slots[channel][slot].size_mb) {
294 int capacity_shift;
295 unsigned int ras, rc, rfc, faw;
296 u16 crc;
297 capacity_shift =
298 ffs(slots[channel][slot].size_mb *
299 slots[channel][slot].width /
300 (slots[channel][slot].ranks * 64)) - 1 -
301 5;
302
303 spd[channel][slot][0] = 0x92;
304 spd[channel][slot][1] = 0x11;
305 spd[channel][slot][2] = 0xb; /* DDR3 */
306 spd[channel][slot][3] = 3; /* SODIMM, should we use another type for desktop? */
307 spd[channel][slot][4] = capacity_shift | 0; /* 8 Banks. */
308 spd[channel][slot][5] = 0; /* FIXME */
309 spd[channel][slot][6] = 0; /* FIXME */
310 spd[channel][slot][7] =
311 ((slots[channel][slot].ranks -
312 1) << 3) | (ffs(slots[channel][slot].
313 width) - 1 - 2);
314 spd[channel][slot][8] = 3; /* Bus width 64b. No ECC yet. */
315 spd[channel][slot][9] = 0x52; /* 2.5ps. FIXME: choose dynamically if needed. */
316 spd[channel][slot][10] = 0x01;
317 spd[channel][slot][11] = 0x08; /* 1/8 ns. FIXME: choose dynamically if needed. */
318 spd[channel][slot][12] = make_spd_time(1, tCK);
319 spd[channel][slot][13] = 0;
320 spd[channel][slot][14] =
321 (1 << (CAS - 4)) & 0xff;
322 spd[channel][slot][15] = (1 << (CAS - 4)) >> 8;
323 spd[channel][slot][16] =
324 make_spd_time(CAS, tCK);
325 spd[channel][slot][17] =
326 make_spd_time(tWR, tCK);
327 spd[channel][slot][18] =
328 make_spd_time(tRCD[channel], tCK);
329 spd[channel][slot][19] =
330 make_spd_time(tRRD[channel], tCK);
331 spd[channel][slot][20] =
332 make_spd_time(tRP[channel], tCK);
333 ras = make_spd_time(tRAS[channel], tCK);
334 rc = 0x181; /* FIXME: should be make_spd_time(tRC, tCK). */
335 spd[channel][slot][22] = ras;
336 spd[channel][slot][23] = rc;
337 spd[channel][slot][21] =
338 ((ras >> 8) & 0xf) | ((rc >> 4) & 0xf0);
339 rfc = make_spd_time(tRFC, tCK);
340 spd[channel][slot][24] = rfc;
341 spd[channel][slot][25] = rfc >> 8;
342 spd[channel][slot][26] =
343 make_spd_time(tWTR[channel], tCK);
344 spd[channel][slot][27] =
345 make_spd_time(tRTP[channel], tCK);
346 faw = make_spd_time(tFAW[channel], tCK);
347 spd[channel][slot][28] = faw >> 8;
348 spd[channel][slot][29] = faw;
349 spd[channel][slot][30] = 0; /* FIXME */
350 spd[channel][slot][31] = 0; /* FIXME */
351 spd[channel][slot][32] = 0; /* FIXME */
352 spd[channel][slot][33] = 0; /* FIXME */
353 spd[channel][slot][62] = 0x65; /* Reference card F. FIXME */
354 spd[channel][slot][63] = 0; /* FIXME */
355 crc = spd_ddr3_calc_crc(spd[channel][slot]);
356 spd[channel][slot][126] = crc;
357 spd[channel][slot][127] = crc >> 8;
358 }
359
360 printf("/* SPD matching current mode: */\n");
361
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]362 FILE *dump_spd = 0;
363
364 if (dump_spd_file) {
365 dump_spd = fopen (dump_spd_file, "wb");
366 if (!dump_spd) {
367 fprintf (stderr, "Couldn't open file %s: %s\n", dump_spd_file,
368 strerror (errno));
369 exit (1);
370 }
371 }
372
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]373 for (channel = 0; channel < 2; channel++)
374 for (slot = 0; slot < 2; slot++)
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]375 {
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]376 if (slots[channel][slot].size_mb) {
377 int i;
378
379 printf("/* CH%dS%d */\n", channel, slot);
380
381 for (i = 0; i < 256; i++) {
382 if ((i & 0xf) == 0x0)
383 printf("%02x: ", i);
384 printf("%02x ", spd[channel][slot][i]);
385 if ((i & 0xf) == 0xf)
386 printf("\n");
387 }
388 printf("\n");
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]389
390 if (dump_spd) {
391 fwrite(spd[channel][slot], 1, 256, dump_spd);
392 }
393 } else {
394 if (dump_spd) {
395 char zero[256];
396 memset (zero, 0, 256);
397 fwrite(zero, 1, 256, dump_spd);
398 }
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]399 }
Vladimir Serbinenkofb69a692015-10-10 13:20:32 +0200[diff] [blame]400 }
401 if (dump_spd) {
402 fclose (dump_spd);
403 }
Vladimir Serbinenko44bc11c2014-08-16 19:14:02 +0200[diff] [blame]404
405}