Сборка падает на Delphi 13 Version 37.0.57242.3601

[uranic2]

Я конечно собрал, но поправил два файла:

• core\uFileFind.pas (убрал вложенные процедуры из анонимного потока, вызывавшие сбой компилятора.)
• Core/uWasmPluginHost.pas (Увеличил массив аргументов WASM до 11 элементов)

В связи с чем вопрос: это у меня версия Delphi не пропатченная? На какой точно собирается?
И да, видел на хабре похожие жалобы на то что собрать не могут.

[Laex]

Сборка делается на RAD Studio 13 Florence, build 37.0.59082.6021 (CompilerVersion 37). Причина, скорее всего, в версии компилятора, а не в проекте. Сборку на других версиях я не проверял. Нужен Delphi 13 (Studio\37.0). В MTN2.dpr стоит проверка CompilerVersion < 37.0, которая останавливает сборку с ошибкой на более старых версиях. Если установлена Delphi 12.x или старше, проект не соберётся, и так задумано.
uFileFind.pas внутри анонимного потока объявлены вложенные подпрограммы EmitProgress и ContentMatch. Одна из них сама содержит анонимный метод, а другая обращается к переменным внешней анонимной процедуры (Needle, Opts). В этом сочетании вложенных подпрограмм и замыканий у компилятора Delphi есть известные внутренние ошибки (Internal Error). У меня эта конструкция компилируется, значит, у Вас другой билд Delphi 13 (например, без обновления или другой Update). Точный билд, на котором падает, я назвать не могу - в Embarcadero Quality Portal таких сведений нет.

uWasmPluginHost.pas – это не причина сбоя сборки, но замечание верное. Буфер TValBuf = array[0..8] вмещает 9 значений, а проверка в CallIntsExport и CallIntsVoidExport разрешает до 12 аргументов. Реальные вызовы передают не больше 8, так что сейчас переполнения нет. Но при 10-12 аргументах запись выйдет за границы стека. Исправлю на 12 элементов, чтобы буфер и проверка совпадали.

При сборке использую MTN2/src/build.ps1

[uranic2]

Хм, кому нужны эти новомодные вложенные процедуры из анонимного потока , кроме как ИИ 😊?

Лана, обновлюсь как-нибудь на досуге...

[Laex]

Справедливо. ;) Вложенные процедуры внутри анонимного метода были не нужны, они лишь избавляли от лишних параметров, а выигрыша не давали. При этом на части сборок Delphi 13 компилятор на такой конструкции падает. Поэтому в uFileFind.pas я вынес EmitProgress и ContentMatch в обычные процедуры уровня модуля. В main это уже есть в dev-сборке.
Что до вопроса «кому это нужно» – автора конструкции вам придётся искать среди тех, кто участвовал в проекте. В README есть раздел «Как создавался проект», там сказано, что часть кода и документации написана с помощью ИИ-ассистентов. Но с компилятором важнее другое – если такой код ломает сборку, его надо менять, кто бы его ни написал.
Спасибо за второй файл – буфер значений WASM в uWasmPluginHost.pas и правда был меньше допустимого числа аргументов (9 против 12). Расширил до 12 элементов.
А сами анонимные методы я считаю полезными, и в проекте они на своём месте. Ну, например:

• Код обработчика пишется рядом с местом, где он нужен, а не в отдельном методе в другом конце модуля. Это короче и легче читается.
• Они захватывают локальные переменные и параметры окружающей процедуры. Не нужно заводить поле класса или записывать контекст в Tag, и не нужно создавать объект только ради передачи двух значений.
• Тип reference to procedure принимает и анонимный метод, и обычную процедуру, и метод объекта. Поэтому интерфейс (колбэк) остаётся единым.
• Время жизни замыкания управляется счётчиком ссылок. Захваченные значения живут, пока жив сам метод.
  В этом пректе, где я прямо выдохнул, по сравнению с использованием традиционных подходов:
• Асинхронные колбэки – TThread.Queue, TThread.Synchronize, TThread.CreateAnonymousThread, TTask.Run. В проекте так сделан поиск файлов (FindFilesAsync: поток обходит каталоги, а прогресс и результат передаются в главный поток через TThread.Queue).
• Колбэки «по завершении» – диалог закрылся, операция закончилась. Так устроены TFindDoneCallback, TPluginDialogCallback и обработчик команд диалога.
• Короткие преобразования для TArray.Sort, TList<T.Sort, фильтров и поиска, где отдельная функция не нужна.
• Тесты – общая подготовка (SetPluginDialogHost с заглушкой хоста) без отдельных классов.

Где очень хочется, но будет плохо:

• Длинные тела с глубокой вложенностью, особенно с вложенными процедурами внутри замыкания, как здесь – читается плохо и ломает компилятор на части сборок.
• Захват переменной цикла или объекта, который будет освобождён раньше, чем замыкание выполнится. Метод видит саму переменную, а не копию значения. Если значение нужно «заморозить», его копируют в локальную переменную до создания метода (как в CapCount / CapDir раньше).
  Сам для себя установил правило – тело замыкания короткое, а всё остальное выносится в обычные процедуры. Именно так переработан uFileFind.pas.