Помните, я писал, что BlackBox, возможно, делает лишнюю операцию копирования при конкатенации? Так вот. Я выяснил, что он действительно присваивает строку самой себе там, где этого можно не делать, специально вызывая для этого копирования CPC486.AddCopy и CPV486.AddCopy, т.е.:
Код:
MODULE TestConcat;
VAR a: ARRAY 100 OF CHAR;
BEGIN
a := a + "abc" (* <= Или: a := a$ + "abc", будет то же самое *)
END TestConcat.
VAR a: ARRAY 100 OF CHAR;
BEGIN
a := a + "abc" (* <= Или: a := a$ + "abc", будет то же самое *)
END TestConcat.
Вот ассемблерный листинг выхода:
| Вложения: |
|
CopySelf.png [ 159.12 КБ | Просмотров: 8483 ] |