Аналог GetTickCount для Паскаля

[k1r1ch]

Есть рекурсивная функция, которая становится бесконечной, если пользователь ввел неверные данные. Причем заранее проверить их правильность невозможно (только в ходе рекурсии). Подумал, что можно засекать время выполнения (> 2 сек значит прерывать) На Делфи я бы написал GetTickCount и сравнивал в процедуре. Но надо в Паскале или на крайняк во ФриПаскале. Если там что-нибудь такое?

[Alex Cones]

Попробуйте поставить прерывание не на время (которое будет скакать в зависимости от мощности компьютера), а на количество выполнений функции. Введи глобальную переменную типа байт и внутри рекурсии делай inc(I). Если I = 200 - прерывай. В "нейтральном" положении I:=0;

[k1r1ch]

Спасибо! Самое что интересное, такая переменная уже была, она использовалась для нумерации, а я что-то не подумал ее использовать

[Serge_Bliznykov]

аналог GetTickCount в TurboPascal делается элементарно:

var
  Ticks      : LongInt  absolute 0:$46c;

и всё, в любой момент времени Ticks содержит число "тиков"

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

[Сtrl]

Лучше по-другому делать. Если данные в ходе последней итерации не изменились - значит началась бесконечная рекурсия - нужно прервать функцию. Иначе, попросту, можно ложно диагностировать проблему.

[Serge_Bliznykov]

Сtrl
1) Вы зря поднимаете тему двухгодовой давности! (и как только Вы её нашли?! )

2) Автор вопроса уже, судя по всему решил свою проблему.
В подобных случаях подсчёт глубины вызовов - это самое "милое" дело (счётчик вызовов).

3) Ваш совет не очень корректен. что есть данные в рекурсивной функции? Рекурсивная функция может, например, обходить связный список. А он может быть закольцован...
Да и в вычислениях есть случаи, когда ряд рассходится - т.е. каждый раз данные разные - а окончания цикла не предвидится...
Кстати, скорее всего подобный бесконечный рекурсивный вызов функции/процедуры закончится переполнением стека...