Вопрос странный немного... в секции interface идёт константа const TableExt:

Question

Вопрос странный немного... в секции interface идёт константа const TableExt:

array [0..39] of record
_type: byte;
_ext : string;
end = (
(_type:typeDAT ; _ext:'.DAT'),
(_type:typeDAT ; _ext:'.TEMPLATE'),
(_type:typeLayout ; _ext:'.LAYOUT'),
она попадает в конечный файл даже если нет на неё ссылок нигде. Как сделать, чтобы эта фигня попадала в EXE только если есть ссылка на неё?

#lazarus #programming #russian

0

15.05.2024

8 ответов

19 просмотров

notme

можно попробовать вынести в отдельный юнит и включить SmartLinking

0

17 дней назад

Alexey Kulakov Автор вопроса

notme
можно попробовать вынести в отдельный юнит и включ...

оно и так в отдельном :( -CX и -XX не помогли

0

17 дней назад

notme

Alexey Kulakov
оно и так в отдельном :( -CX и -XX не помогли

так в этом юните значит не только оно, а что-то ещё, что где-то используется, гранулярность при линковке - весь юнит на сколько я понял хотя не, там даже на отдельные ф-ии и процедуры вроде бьётся, но вот такие константы.... это не процедуры и не ф-ии, можно попробовать issue создать?

0

17 дней назад

Renat Suleymanov

livontiy
Как такой копипаст код делается?

```pascal ;; тут твой код ```

0

17 дней назад

notme

Alexey Kulakov
оно и так в отдельном :( -CX и -XX не помогли

unit Unit1; interface type TRec = record _type: byte; _ext : string; end; const TableExt: array [0..2] of TRec = ( (_type:0; _ext:''), (_type:0; _ext:''), (_type:0; _ext:'') ); procedure init; implementation procedure init; var _TableExt: array [0..2] of TRec = ( (_type:0 ; _ext:'.DAT'), (_type:1 ; _ext:'.TEMPLATE'), (_type:2 ; _ext:'.LAYOUT') ); begin TableExt:=_TableExt; end; end. Вот так работает, но... тут тебе нужно будет конечно init звать ну или так: ... var TableExt: array [0..2] of TRec; ... @Awkward_im

0

15 дней назад

notme

notme
unit Unit1; interface type TRec = record ...

Кстати даже -CX -XX не требуется, само отсекается как-то

0

15 дней назад

Alexey Kulakov Автор вопроса

notme
unit Unit1; interface type TRec = record ...

ты же должен понимать, что это НЕ сработает, ибо массив с нулями и пустыми строками всё равно попадёт в секцию данных

0

15 дней назад