Прошу помощи в проверке моего перевода небольшого фрагмента кода от Си к делфи!

[SkAndrew]

Добрый день!

Прошу помощи в проверке моего перевода небольшого фрагмента кода от Си к делфи.

исходный код на СИ:

int fadelen, fadepos; // fade length/position
void *buffer, DWORD length
short *s=(short*)buffer; 
for (; length; length--, s++, fadepos++)
   s[0]=s[0]*fadepos/fadelen;

мой перевод на делфи цикла:

var a : Integer;
     s : ^SmallInt;
for a := length-1 downto 0 do
begin
  s^ := Trunc(s^*fadepos/fadelen);
  Inc(s);
  Inc(fadepos);
end;

Спасибо.

[OCTAGRAM]

Странно... а откуда берётся значение buffer? А то ерунда получается

[SkAndrew]

меня интересует только этот маленький фрагмент цикла, а сама процедура начинается так:

void CALLBACK FadeInDSP(HDSP handle, DWORD channel, void *buffer, DWORD length, void *user)

Спасибо.

[OCTAGRAM]

Inc(s) разве работает?

[megachuhancer]

Inc(s) разве работает?

Да.

В принципе, переведенный на Delphi код, похож по смыслу на то, что было написано на C, но...
1)Неплохо бы знать для чего этот код предназначен
2)В коде на C используется идентификатор length, и это мешает использовать в переведенном коде те же имена

...да, вроде правильно.

[SkAndrew]

Это код, который работает с библиотекой BASS

исходный:

void CALLBACK FadeInDSP(HDSP handle, DWORD channel, void *buffer, DWORD length, void *user)
{
	short *s=(short*)buffer; // assuming 16-bit data (use "float" for floating-point, eg. FLOATDSP)
	if (fadepos==fadelen) return; // fade-in completed
	length/=sizeof(*s);
	if (length>fadelen-fadepos) length=fadelen-fadepos; // limit length to remaining fade-in
	for (; length; length--, s++, fadepos++)
		s[0]=s[0]*fadepos/fadelen;
}

мой перевод:

procedure FadeInDSP(handle : HDSP; channel : DWORD; buffer : Pointer; length : DWORD; user : Pointer); stdcall; 
      var a : Integer;
          s : ^SmallInt;
begin
  s := buffer;
  if (fadepos=fadelen) then Exit;
  length := Trunc(length/SizeOf(s));
  if (length>DWORD(fadelen-fadepos)) then length := DWORD(fadelen-fadepos); // limit length to remaining fade-in
  for a := length-1 downto 0 do
  begin
    s^ := Trunc(s^*fadepos/fadelen);
    Inc(s);
    Inc(fadepos);
  end;
end;

Все правильно? ошибок нет?

Спасибо.

[megachuhancer]

Мне кажется, что ошибок нет. Хотя, если честно, я не знаю, что такое библиотека BASS. Но что касаемо перевода, ошибок вроде нет.

А какой ответ вы ожидали? Да? Нет? Что вы думаете по поводу правильности этого кода?

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

Вместо

length := Trunc(length/SizeOf(s));

можно написать

length := length div SizeOf(s);

Это позволяет избжать вещественных вычислений, когда работа только с целыми числами.

[SkAndrew]

что я думаю о правильности кода я написал в своем переводе его. :-)

А мне нужно мнение профессионалов о том, насколько я правильно интерпретировал. Спасибо.

[Пепел Феникса]

Inc(s), может и работает, но рекомендую всетаки разименовывать указатель, потому что сами указатели это считай тот же Cardinal...аккуратнее стоит быть

[megachuhancer]

А мне нужно мнение профессионалов

Нуууу... Мне довольно много приходилось переводить с Delphi на C и наоборот, и для этого знания того, что такое BASS не требуется... И вот ещё что: вас интересовала правильность перевода или что-то ещё?..

Inc(s), может и работает, но рекомендую всетаки разименовывать указатель, потому что сами указатели это считай тот же Cardinal...аккуратнее стоит быть

Если разыменовать, то увеличится само значение, а тут, как я понял, происходит сдвиг указателя(см. код на C)