Как обьявить свою директиву компилятора глобально.

Вопросы программирования на Free Pascal, использования компилятора и утилит.

Модератор: Модераторы

Ответить
Аватара пользователя
wofs
постоялец
Сообщения: 379
Зарегистрирован: 05.10.2009 10:16:55
Откуда: Астрахань
Контактная информация:

Как обьявить свою директиву компилятора глобально.

Сообщение wofs »

Доброго дня.
Встал вопрос - как объявить свою директиву компилятора, что бы она была доступна глобально?
Например, мне нужно определенный кусок кода компилировать только в определенной версии, я прописываю:

Код: Выделить всё

{$IFDEF COMPILE_THIS}
//Код, который нужно скомпилировать.
{$ENDIF}


Далее в начале модуля прописываем

Код: Выделить всё

{$DEFINE COMPILE_THIS}

и все тип топ, но прописывать в каждом модуле $DEFINE - некомильфо. Как обьявить эту диррективу глобально (наподобие WIN32, UNIX etc.)?
zub
долгожитель
Сообщения: 2890
Зарегистрирован: 14.11.2005 22:51:26
Контактная информация:

Сообщение zub »

если голый FPC - в параметрах компилятора -dCOMPILE_THIS
если лазарь - в опциях проекта это есть, можно даже настроить переключение определений и build modes
я в начале всех юнитов проекта даелаю {$INCLUDE def.inc} и в этом def.inc прописываю нужное
Аватара пользователя
wofs
постоялец
Сообщения: 379
Зарегистрирован: 05.10.2009 10:16:55
Откуда: Астрахань
Контактная информация:

Сообщение wofs »

zub писал(а):если лазарь - в опциях проекта это есть, можно даже настроить переключение определений и build modes

Да, в лазарус, не нашел, ткните носом пожалуйста... Понимаю, что где-то в "Режимах сборки", но не могу понять где.
zub
долгожитель
Сообщения: 2890
Зарегистрирован: 14.11.2005 22:51:26
Контактная информация:

Сообщение zub »

https://imgur.com/a/LJ5nKol

Добавлено спустя 7 минут 17 секунд:
В режимах сборки ADD->Cusdom Options->В появившейся строчке вписываешь -dCOMPILE_THIS, распределение по режимам регулируешь чекбоксами
Аватара пользователя
wofs
постоялец
Сообщения: 379
Зарегистрирован: 05.10.2009 10:16:55
Откуда: Астрахань
Контактная информация:

Сообщение wofs »

zub
Спасибо большое!
Ответить