VPF::[Delphi|Assembler] Копирование массива

Sovereign

Дата 3.2.2007, 17:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 7.11.2006

Репутация: нет
Всего: 4

Есть массив buf[0..w*h*3] и wbuf[0..w*h*4], нужно скопировать из buf в wbuf, так, чтобы первые три в wbuf записывались из buf, а 4-й 255, и так до конца массива, помогите сделать ввиде ассемблерной вставки в delphi, т.е

Код


for i := 0 to 320*240-1  do begin
     bufrgba[i*4]:=buf[i*3];
     bufrgba[i*4+1]:=buf[i*3+1];
     bufrgba[i*4+2]:=buf[i*3+2];
     bufrgba[i*4+3]:=255;
   end;

Это сообщение отредактировал(а) Sovereign - 3.2.2007, 19:50

JAPH

Дата 3.2.2007, 22:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 312
Регистрация: 8.1.2007
Где: Ленобласть

Репутация: 12
Всего: 23

Интересно, Delphi и Pascal одинаково относятся к таким вставкам? Просто нет знаний и возможности проверить. smile

Может, так:

Код


asm
lea esi, buf
lea edi, wbuf
mov ax, ds
mov es, ax
{Далее вычисляем w*h*3}
mov ecx, w
imul ecx, h
mov ebx, ecx {ebx = w*h}
shl ecx, 1
add ecx, ebx
{Ну и копируем ecx двойных слов из DS:ESI в ES:EDI}
repd movsd
{теперь заполняем остаток 255ками}
mov eax, 255
mov ecx, ebx
repd stosd
end;

Проверяем

Это сообщение отредактировал(а) JAPH - 3.2.2007, 22:46

--------------------

Что непонятно - спрашиваем smile

dumb

Дата 4.2.2007, 03:18 (ссылка)

(нет голосов)

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 6
Всего: 158

Цитата(Sovereign @ 3.2.2007, 17:56

)

помогите сделать ввиде ассемблерной вставки в delphi

если это задание, то ладно еще. если же ты так хочешь ускорить обработку, то лучше этого не делать - оптимизатор справится лучше.

JAPH, не, совсем не то. smile

как-то так:

Код


procedure someproc;
label next_item;
begin
asm
  push esi
  push edi
  lea esi, buf
  lea edi, wbuf
  mov ecx, w
  imul ecx, h
  cld
next_item:
  lodsd
  or eax,$ff000000
  stosd
  dec esi
  loop next_item
  pop edi
  pop esi
end;
end;

MBo

Дата 4.2.2007, 08:30 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 234
Регистрация: 10.6.2002

Репутация: 7
Всего: 18

Код


var
  AIn: array of TRGBTriple;
  AOut: array of Integer;
  PIn: PByte;
  POut: PInteger;
  N, i: Integer;
begin
  N := 10;
  SetLength(AIn, N);
  SetLength(AOut, N);
  for i := 0 to N - 1 do begin
    AIn[i].rgbtBlue := i;
    AIn[i].rgbtGreen := i or $40;
    AIn[i].rgbtRed := i or $80;
  end;
  PIn := @AIn[0];
  POut := @AOut[0];
  for i := 0 to N - 2 do begin
    POut^ := PInteger(PIn)^ or $FF000000;
    Inc(POut);
    Inc(PIn, 3);
  end;
//последний элемент обрабатываем специальным образом, чтобы не вылезти за свою память
  Move(AIn[N-1], AOut[N-1], 3);
  AOut[N-1] := AOut[N-1] or $FF000000;
end;

Sovereign

Дата 4.2.2007, 15:24 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 58
Регистрация: 7.11.2006

Репутация: нет
Всего: 4

2 dumb c вставкой стало немного лучше,всем спасибо =)

Это сообщение отредактировал(а) Sovereign - 5.2.2007, 13:25

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »