VPF::Определение размера процедуры

RinOSpro

Дата 1.12.2008, 11:24 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Здравствуйте! Подскажите пожалуйста можно ли получить размер процедуры/функции в памяти типа:

Код



procedure Proc1
begin
    ShowMessage('Как пролучить размер процедуры?');
end;

...

SizeOf(Proc1) // никак :(

CodeMonkey

Дата 1.12.2008, 11:56 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

Репутация: 38
Всего: 89

Обычно используют разность адресов между двумя последовательными процедурами:

Код

procedure A;
begin
  ...
end;

procedure B;
begin
  ...
end;

SizeOfA := Cardinal(@B) - Cardinal(@A);

Но это по-большому счёту грязно: нет гараний, что линкёр не переупорядочит тела процедур.

Корректный путь - использовать отладочную информацию. map-файл, например. Вот здесь по map-файлу написано чуть-чуть.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

RinOSpro

Дата 1.12.2008, 12:05 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

CodeMonkey ну это похоже что я и сейчас делаю... по ассемблерным вставкам... типа:

Код



procedure Proc1
begin
    ShowMessage('Как пролучить размер процедуры?');
end;

procedure EndProc;
asm
   DB $7A,$05,$AA,$96,$D6,$B5,$47,$B9,$AF,$A9,$95,$3E,$24,$8F,$7E,$A1
end;

...

  ptrAddr := @Proc1;

  while ptrAddr <> @EndProc do
     inc(Integer(ptrAddr));

...

Но как ты и сказал это "грязно"...

RinOSpro

Дата 3.12.2008, 11:22 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

И больше ни каких идей?

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