вложенные директивы / условия IFDEF

[sunjob]

добрый день

проект состоит из 2х файлов

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

main.pas - главный
app.pas  - инструментарий


инструментарий "подключается модулем"

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

uses  ... app;


в обоих используются "препороцессорные условия"

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

{$IFDEF DEBUG}
..
{$ENDIF}


условие срабатывает только каждый "сам для своего модуля", т.е. если сделать установку в обоих модулях

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

{$DEFINE DEBUG}


в главном модуле, естественно, "установка" сделана до uses

добавление ключа

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

fpc ... -dDEBUG ...


не помогает, условие срабатывает только в главном модуле

[Mirage]

Так и задумано. Если надо, чтоб можно было в одном файле задавать дефайны, выносишь их в .inc и подключаешь его везде через {$I ...}

[sunjob]

сработала, спасибо

... только, все равно не понятно, почему не срабатывает

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

fpc ... -dDEBUG ...

зачем он тогда нужен, этот ключ, если проканывает только на главном модуле? ... не логично

[iskander]

Что именно не срабатывает?

main.pas:

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

program main;

uses app;

procedure Test;
begin
{$ifdef debug}
  WriteLn('debug mode is defined in main');
{$endif}
end;

begin
  Test;
  app.Test;
end.


app.pas:

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

unit app;

interface

procedure Test;

implementation

procedure Test;
begin
{$ifdef debug}
  WriteLn('debug mode is defined in app');
{$endif}
end;

end.


сборка:

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

E:\fpc64\bin\x86_64-win64\fpc.exe -CX -O3 -Xs -XX -g- -dDEBUG E:\test_param\main.pas -oE:\test_param\prog.exe


печатает:

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

debug mode is defined in main
debug mode is defined in app


[sunjob]

что именно? ну ... то именно и не срабатывает ... :о) условие, что находится во 2 модуле :о)

доберусь до кода, уточню, что у меня там нашлепано :о)

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

[Дож]

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

С чем может быть связано указанное в первом посте поведение: если уже был скомпилирован app.pas без DEBUG и в нём не было изменений (т.е. fpc видит свежие app.ppu и app.o), то fpc не пересоберёт его автоматически даже при изменении командной строки (и DEBUG, соответственно, не применится). Нужно touch'нуть или внести номинальное изменение в app.pas.

[sunjob]

да, спасибо за пендиль :о) конечно, голова моя садовая! ну а чЁ мы хотели...?! :о)

забываю про свои хитрушки и настройки:

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

FPC_RAM_DIR_BUILD = /dev/shm/tmp/fpc.build


естественно, обьектники не чистим, т.к. "их", вроде как, и ... не видно ... :о)

еще раз спасибо

[sunjob]

###!!! UPDATE !!!###

как пропустить

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

-dDEBUG

посредством сборки с пом-ю lazbuild?
в аргументах ком-строки ничего интересного не нашел :о)

зы понятное дело, в самой IDE это - без проблем

[sunjob]

UPDATE
т.е. нет такой возможности? только непосредственным подключением файла с настройками проекта?

[zub]

Настроив в lpi режимы сборки и выбрав соответствующий с помощью --build-mode

[Alexx2000]

В проекте Lazarus создать два режима сборки Release и Debug. Первый без дефайна, второй соответственно с ним. Сборка:

Release (без дефайна):

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

lazbuild --bm=release test.lpi


Debug (с дефайном):

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

lazbuild --bm=debug test.lpi


[sunjob]

посмотрим... :о)