Завершение одной процедуры из другой

[Shahimat]

Сообщение от Alex11223

Не знаю возможно ли это хоть теоретически в Дельфи, но может перед такими сложными вариантами стоит проверить производительность с исключениями?) Или с проверкой в первой процедуре. Может и не придется дальше париться.

Алекс, я решил все же проверить вариант с исключениями ради интереса.
Так вот, по моим подсчетам в случае использования исключений типа try - except скорость падает примерно в 10000 раз...(

[Alex11223]

Проверяли в релиз сборке с оптимизациями?
А возвращаемое значение вместо исключений?

[Shahimat]

Сообщение от Alex11223

Проверяли в релиз сборке с оптимизациями?
А возвращаемое значение вместо исключений?

В конечной сборке рассматривал результат, результат никакой исключение не возвращает, он остается в указателе на переменную, исключение только лишь отрубает блок с циклом, примерно так:

Procedure Some2;
begin
 try
  while True do
  begin
   ...
   Some1;
   ...
  end;
 except
  Exit;
 end;
end;

Procedure Some1;
begin
 Abort;
end;

[Alex11223]

Причем тут исключение, просто if добавьте в Some2.

[Shahimat]

Сообщение от Alex11223

Причем тут исключение, просто if сделайте в Some2.

Так весь вопрос в том и был, как без if обойтись... вообщем этот вариант не подходит)
Изначально у меня и был if в таком духе:

...
 var NextCycle: ^Boolean;
...
 NextCycle := @TrueValue;
...

Procedure some2;
begin
 While NextCycle^ do
 begin
  ...
  Some1;
  ...
 end;
end;

Procedure Some1;
begin
  NextCycle := @FalseValue;
end;

Просто скорость можно ЗНАЧИТЕЛЬНО поднять, если перейти к такой схеме:

Procedure some2;
Label
 BACK;
begin
 BACK:
  ...
  Some1;
  ...
 goto BACK;
end;

Procedure Some1;
begin
  TerminateProcedure(Some2); //Вот надо понять как это сделать...
end;

[Alex11223]

Откуда вы знаете, что она поднимется если вы не пробовали? Это невозможно так, как вы хотите, все существующие варианты уже перечислены.

Для goto что мешает убрать Some1 и делать все в Some2?

[Shahimat]

Сообщение от Alex11223

Откуда вы знаете, что она поднимется если вы не пробовали? Это невозможно так, как вы хотите, все существующие варианты уже перечислены.

Для goto что мешает убрать Some1 и делать все в Some2?

Скорость поднимется, т.к. проверка на условие будет отсутствовать.
Some1 - ссылка на произвольную процедуру, как пример, процедура завершения работы цикла. Или некая расчетная процедура.

[Аватар]

Из-за одного if-а все дебаты? В остальном прога без разветвлений?

[Shahimat]

Сообщение от Аватар

Из-за одного if-а все дебаты? В остальном прога без разветвлений?

Прога-то вся с разветвлениями) меня только эта часть кода интересует, действительно, как можно избавиться от if-а, используя спец.процедуру завершения другой процедуры, или смещения указателя на конец процедуры, или
использования неких глобальных меток (что не получилось) или еще варианты без реинжениринга самого экзешника, чтобы в рамках одного проекта это сделать. Может у кого и возникала такая проблема, надеюсь таковые есть, отпишутся как решили... На форумах видел один раз подобный вопрос, только ответа толком никто не дал.
Еще вопрос, уважаемые модераторы, вы случайно не в курсе, есть-ли среди ваших знакомых, ну или просто знакомые, кто реально занимается подобными или близкими к таковой задачами, у которых можно проконсультироваться? Если вопрос будет платный, то сочтусь.

[Alex11223]

Да не придумало пока человечество ничего сильно отличающееся от перечисленного.
... и вряд ли сильно думает, задача очень специфичная.

Сообщение от Shahimat

Some1 - ссылка на произвольную процедуру

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