Ассоциативность кеша

[meradone]

Нужно написать программу проверяющая на ассоциативность Кеш память.
Помогите, вообще мыслей нет, преподаватель задал и не хочет объяснять, что бы мы голову поломали...

[Marsel737]

meradone поподробней объясни что значит проверять на ассоциативность

[Somebody]

Действительно, неплохо бы знать, как проверять.
Вот есть немного мыслей. Например, у нас есть 4-канальный наборно-ассоциативный кеш. Выберем штук 8 элементов массива, которые будут попадать в один и тот же набор строк кеша, и будем что-нибудь в цикле с ними делать. А потом возьмём столько же элементов, но которые попадут в разные наборы. Во втором случае всё это будет работать быстрее, так как в первом случае строки постоянно будут вытесняться.
Что-то самому интересно стало... Набросал вот код, если не ошибаюсь, при diff = diffSlow должен работать медленнее, чем при diff = diffFast везде, если константы проставить под кеш процессора (и если какая-нибудь версия компилятора не выкинет полностью этот цикл; но $O- не надо ставить, а то будут мешать обращения к i и j в памяти). Ну, если слишком быстро, то итераций побольше.

{$APPTYPE CONSOLE}
{$O+,R-,Q-}

uses
  Windows;

const
  ways = 4;
  lineLength = 32;
  size = 16 * 1024;
const
  itemsCount = ways * 2;
  diffFast = (size div ways + lineLength) div sizeof(Integer);
  diffSlow = (size div ways) div sizeof(Integer);
  diff = diffSlow;

var
  a: array [0 .. diff * itemsCount - 1] of Integer;
  i, j: Integer;
  t: Cardinal;

begin
WriteLn('Let''s go!');
SetThreadAffinityMask(GetCurrentThread(), 1);
SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_HIGHEST);
t := GetTickCount();
for i := 0 to 100*1000*1000 do
  for j := 0 to itemsCount - 1 do
    inc(a[j * diff], i);
t := GetTickCount() - t;
WriteLn('Done in ', t, ' ms');
ReadLn;
end.

У меня примерно 16 секунд против 4,5.

[notHaker]

Сообщение от Somebody

Действительно, неплохо бы знать, как проверять.
Вот есть немного мыслей. Например, у нас есть 4-канальный наборно-ассоциативный кеш. Выберем штук 8 элементов массива, которые будут попадать в один и тот же набор строк кеша, и будем что-нибудь в цикле с ними делать. А потом возьмём столько же элементов, но которые попадут в разные наборы. Во втором случае всё это будет работать быстрее, так как в первом случае строки постоянно будут вытесняться.
Что-то самому интересно стало... Набросал вот код, если не ошибаюсь, при diff = diffSlow должен работать медленнее, чем при diff = diffFast везде, если константы проставить под кеш процессора (и если какая-нибудь версия компилятора не выкинет полностью этот цикл; но $O- не надо ставить, а то будут мешать обращения к i и j в памяти). Ну, если слишком быстро, то итераций побольше.

У меня примерно 16 секунд против 4,5.

хм... интересно...

[meradone]

Сообщение от Somebody

Действительно, неплохо бы знать, как проверять.
Вот есть немного мыслей. Например, у нас есть 4-канальный наборно-ассоциативный кеш. Выберем штук 8 элементов массива, которые будут попадать в один и тот же набор строк кеша, и будем что-нибудь в цикле с ними делать. А потом возьмём столько же элементов, но которые попадут в разные наборы. Во втором случае всё это будет работать быстрее, так как в первом случае строки постоянно будут вытесняться.
Что-то самому интересно стало... Набросал вот код, если не ошибаюсь, при diff = diffSlow должен работать медленнее, чем при diff = diffFast везде, если константы проставить под кеш процессора (и если какая-нибудь версия компилятора не выкинет полностью этот цикл; но $O- не надо ставить, а то будут мешать обращения к i и j в памяти). Ну, если слишком быстро, то итераций побольше.

{$APPTYPE CONSOLE}
{$O+,R-,Q-}

uses
  Windows;

const
  ways = 4;
  lineLength = 32;
  size = 16 * 1024;
const
  itemsCount = ways * 2;
  diffFast = (size div ways + lineLength) div sizeof(Integer);
  diffSlow = (size div ways) div sizeof(Integer);
  diff = diffSlow;

var
  a: array [0 .. diff * itemsCount - 1] of Integer;
  i, j: Integer;
  t: Cardinal;

begin
WriteLn('Let''s go!');
SetThreadAffinityMask(GetCurrentThread(), 1);
SetThreadPriority(GetCurrentThread(), THREAD_PRIORITY_HIGHEST);
t := GetTickCount();
for i := 0 to 100*1000*1000 do
  for j := 0 to itemsCount - 1 do
    inc(a[j * diff], i);
t := GetTickCount() - t;
WriteLn('Done in ', t, ' ms');
ReadLn;
end.

У меня примерно 16 секунд против 4,5.

Спасибо за программу, но я так и не разобрался в чем заключается сама проверка на ассоциативность...