freepascal.ru

Пытаюсь нагрузить машину бесполезной работой:

Код: Выделить всё

program hangup;

{$mode objfpc}

uses Crt;

var
CyclesCount: Integer = 1000000;
i: Integer;
z: Integer = 1;

BEGIN
for i := 0 to CyclesCount do
   begin
   z:= z + i;
   if z = 0 then
      begin
         asm
            NOP;
         end;
      end;
   end;
END.


сырец компилируется. Запускается.
Но выполнение происходит слишком быстро. Может быть компилятор оптимизирует каким-либо образом код?? Как отключить такую оптимизацию?

я запилил в 100 раз больший итератор и вместо сложения - умножение. задержка теперь заметна на глаз.