Форум на Исходниках.RU

Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3434906 Mon, 24 Mar 2014 06:31:17 +0000 (Компилятор) Управление опциями компиляции https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3434906 Fr0sT Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3433612 Thu, 20 Mar 2014 11:14:09 +0000 (Компилятор) Управление опциями компиляции https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3433612
Es.SaveSwitches.inc

{$if defined(EsSaveSwitches_Included)}

Вложеные инклюды файлов Es.SaveSwitches.inc/Es.RestoreSwitches - НЕ ПОДДЕРЖИВАЮТСЯ

{$ifend}

{$define EsSaveSwitches_Included}

{$IFOPT R+}

{$define Es_R_plus}

{$endif}

{$IFOPT Q+}

{$define Es_Q_plus}

{$endif}

{$IFOPT J+}

{$define Es_J_plus}

{$endif}

{$IFOPT B+}

{$define Es_B_plus}

{$endif}

Es.RestoreSwitches.inc

{$if not defined(EsSaveSwitches_Included)}

Не был включен файл Es.SaveSwitches.inc

{$ifend}

{$undef EsSaveSwitches_Included}

{$if defined(Es_R_plus)}

{$R+}

{$undef Es_R_plus}

{$else}

{$R-}

{$ifend}

{$if defined(Es_Q_plus)}

{$Q+}

{$undef Es_Q_plus}

{$else}

{$Q-}

{$ifend}

{$if defined(Es_J_plus)}

{$J+}

{$undef Es_J_plus}

{$else}

{$J-}

{$ifend}

{$if defined(Es_B_plus)}

{$B+}

{$undef Es_B_plus}

{$else}

{$B-}

{$ifend}

соответственно пользовательский код примерно так будет выглядить:

{I Es.SaveSwitches.inc}

{$R-}{$Q-}{$B+}

function MyInc(B: Byte): Byte;

begin

// мой супер пупер код

end;

{$I Es.ReporeSwitches.inc}

]]> jack128 Все языки: Статьи, заготовки в FAQ https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3413252 Wed, 12 Feb 2014 06:18:36 +0000 (Компилятор) Управление опциями компиляции https://forum.sources.ru/index.php?showtopic=386865&view=findpost&p=3413252 Управление опциями компиляции внутри текста программы

Все умеют управлять опциями компилятора внутри программы, через директивы {$X+/-} либо {$OPTIONNAME ON/OFF}. Однако при этом есть одна проблемка: затирается глобальное значение данной опции, установленное в свойствах проекта либо в начале модуля. Какой-то код, расположенный ниже примененного передергивания опции, мог рассчитывать на другое значение; могут появиться непредвиденные посторонние эффекты. Самый очевидный из них - неотлов переполнения чисел или выхода за границы массива в debug версии; но вполне вероятны и более деструктивные и неожиданные последствия.
К счастью, есть способ определить, была ли установлена опция, а значит, можно и возвращать ее прежнее значение, и значит, исключить побочные эффекты.

Инициализация: запоминаем состояние опции.

{$IFOPT R+}

{$DEFINE RangeCheckOn}

{$ENDIF}

Применение: условное включение опции

{$R-}

...

{$IFDEF RangeCheckOn}

{$R+}

{$ENDIF}

]]> Fr0sT Все языки: Статьи, заготовки в FAQ