169 похожих чатов

Program pg_test; {$mode objfpc} uses sysutils; procedure profiler_init; external name 'profiler_init'; procedure profiler_reset; external

name 'profiler_reset';

{$LINK prof_lib_core}

function test_func1: integer;
var
i: integer;
begin
WriteLn('from func1');
for i:=0 to 100000000 do random(i);
Result:=0;
end;

function test_func2: integer;
begin
WriteLn('from func2');
Result:=0;
end;

procedure dummy;
begin
end;

begin
profiler_init;

WriteLn('from main');
test_func1;
WriteLn('from main');
test_func2;
WriteLn('from main');
dummy;

profiler_reset;
end.

Вроде работает ) на простом

ПС: куда только это поток 32 байта на функцию девать 🤔
упаковать бы в 16 байт 🤔?

9 ответов

27 просмотров
notme- Автор вопроса

Хм... а ведь я могу взять однопоточное приложение, например, ZCAD, и вставить счётчик вместо кода профилирования и тем самым смогу оценить количество вызовов всех функций в программе.... чтобы примерно понимать к чему готовиться... ух и крутая тулза ProcessMemoryMap 🔥

notme
Хм... а ведь я могу взять однопоточное приложение,...

Cpu-view добью для лазаря, зарелизю хексвьюху и её сделаю базовой в РММ, ещё удобнее станет

notme- Автор вопроса
notme
Хм... а ведь я могу взять однопоточное приложение,...

Пустой GUI-проект Lazarus вызывает 368 тысяч функций во время цикла "старт-стоп" 😁

notme- Автор вопроса
notme
Пустой GUI-проект Lazarus вызывает 368 тысяч функц...

@zamtmn А ZCAD, чтобы просто запуститься и завершиться - 54млн раз ) Загрузить и выгрузить Москву - 550млн раз )

notme
@zamtmn А ZCAD, чтобы просто запуститься и заверш...

кстати, патч как влияет на пересборку компилера\ртл? тоже интрументит сам себя?

notme- Автор вопроса
zamtmn
кстати, патч как влияет на пересборку компилера\рт...

сделал чтобы не влияло, пересобирается сам собой

notme
@zamtmn А ZCAD, чтобы просто запуститься и заверш...

по старту\стопу лазаруса можешь дать цифру? для утоления любопытства

notme- Автор вопроса
zamtmn
по старту\стопу лазаруса можешь дать цифру? для ут...

Не понял? 54млн - не оно? Это я запустил и завершил сразу

Похожие вопросы

Обсуждают сегодня

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой код import Data.List (isInfixOf) removing :: String -> [String] ->...
E
10
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
Кибер Бомж
8
Карта сайта