Можно ли как-то ускорить паскалевские циклы?

[Чудо-программист]

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

Move(Screen1^, Screen, SizeOf(Screen1))

работает раз в десять быстрее, чем

for J := 0 to ScreenMaxY do
  for I := 0 to ScreenMaxX do
    Screen[J, I] := Screen1^[J, I]

Можно ли ускорить второй вариант, оставаясь в рамках паскаля?

[Аватар]

А move не в рамках турбо паскаля?

[Чудо-программист]

В рамках, но я хочу слой с прозрачным цветом.

[Smitt&Wesson]

Можно. Если перейти на С++. Давайте не будем задавать глупых вопосов. Самый быстрый язык это - Асм. Все остальные, тормозят в той или иной степени.

[Чудо-программист]

За счет чего тормозят циклы в Паскале?

[ResourceSpace]

Да не тормозят они, просто Move целиком кусок памяти фигачит. Без вложенных циклов, иногда с развёрткой.
А есть вообще прокаченные Move которые учитывают особенности процессора, где-то в доках от AMD была одна, гигантский шмат кода такой.

Как мерял-то?) В общем попробуй сперва без вложенного цикла, а потом развернуть, по 4 операции обычно делают.

[Poma][a]

Правильно Вам сказали. Циклы тут не виноваты.
Ради прикола разверните их. (Получите огромное кол-во строк) Но этот код будет работать несильно лучше.

[Чудо-программист]

Разве развертка циклов еще действует? Я думал, это прием спектрумистов.

[Poma][a]

Ручками разверните.
Screen[0, 0] := Screen1^[0, 0];
Screen[0, 1] := Screen1^[0, 1];

[Чудо-программист]

Попробую завтра.
Только я для такого сделаю Screen и Screen1 линейными, а то вдруг он на индексации много теряет.