fix(platform): win64-сборка падала на GetEnvironmentVariable

Модуль Windows стоит в uses ПОСЛЕ SysUtils, поэтому его трёхпараметрический GetEnvironmentVariable(PChar;PChar;DWORD) перекрывает однопараметрический из SysUtils, и три вызова в PlatformUtils падали с «wrong number of parameters». Лечение — явная квалификация SysUtils.GetEnvironmentVariable. ★Сломалось это не сейчас: unit Windows появился в uses ещё в d209697 (вместе с QueryPerformanceCounter для монотонных часов), и с тех пор под win64 не собиралось вовсе — просто сборочная машина туда не заходила. GetAppCfgDir с %APPDATA% живёт с e9f4bf1 и до d209697 работал. Новый стенд test/platform. Кросс-RTL обычно не установлен, поэтому ветки {$IFDEF WINDOWS} и {$IFDEF DARWIN} на Linux не компилируются ВООБЩЕ, и ошибка в них всплывает только на сборочной машине. Стенд переписывает копию PlatformUtils.pas так, чтобы платформенные условия читались как свои (-dSIMWIN / -dSIMMAC), и компилирует без линковки (-Cn): системных функций тут нет, но синтаксис, типы и — главное — разрешение имён проверяются по-настоящему. Для Windows подкладывается заглушка unit Windows, объявляющая ровно те имена, которыми настоящий перекрывает SysUtils; на ней и держится вся проверка. ★Негативный контроль: на коде до правки стенд выдаёт РОВНО те же три ошибки (строки 210, 271, 273), что и сборочная машина. Чего он не делает: живых вызовов системных счётчиков — их правильность доказывает только прогон на самой платформе. Co-Authored-By: Claude Opus 5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01Bkwwyj7xVRrqnSVEseTRfV
2026-08-25 17:27:32 +00:00 · 2026-08-24 21:31:59 +03:00
parent fe3d862d00
commit f2ecd63fe1
3 changed files with 83 additions and 3 deletions
@@ -0,0 +1,44 @@
+#!/bin/sh
+# Проверка ветвей PlatformUtils под Windows и macOS БЕЗ этих платформ.
+#
+# Зачем. Кросс-RTL обычно не установлен, поэтому ветки {$IFDEF WINDOWS} и
+# {$IFDEF DARWIN} на Linux не компилируются ВООБЩЕ — ошибка в них всплывает
+# только на сборочной машине, через полчаса после коммита. Так и вышло: unit
+# Windows, добавленный ради QueryPerformanceCounter, перекрыл однопараметрический
+# SysUtils.GetEnvironmentVariable, и win64-сборка легла на трёх вызовах.
+#
+# Как. Копию PlatformUtils.pas переписываем так, чтобы платформенные условия
+# читались как наши собственные (-dSIMWIN / -dSIMMAC), и компилируем БЕЗ
+# ЛИНКОВКИ (-Cn): системных функций на Linux нет, но синтаксис, типы и — главное —
+# разрешение имён проверяются по-настоящему. Для Windows подкладывается
+# заглушка unit Windows с теми же перекрывающими объявлениями (win_stub/).
+#
+# Чего проверка НЕ делает: живых вызовов системных счётчиков. Их правильность
+# доказывает только прогон на самой платформе.
+set -e
+cd "$(dirname "$0")"
+SRC=../../PlatformUtils.pas
+WORK=$(mktemp -d)
+trap 'rm -rf "$WORK"' EXIT
+
+# ── Windows ──
+mkdir -p "$WORK/win"
+cp win_stub/Windows.pas "$WORK/win/"
+sed -e 's/{\$IFDEF WINDOWS}/{$IFDEF SIMWIN}/g' \
+    -e 's/{\$IFNDEF WINDOWS}/{$IFNDEF SIMWIN}/g' "$SRC" > "$WORK/win/PlatformUtils.pas"
+( cd "$WORK/win" && fpc -B -Mobjfpc -dHEADLESS -dSIMWIN -Fu. -FU. -Cn PlatformUtils.pas >"$WORK/win.log" 2>&1 ) \
+  || { echo "WINDOWS-ветка НЕ компилируется:"; cat "$WORK/win.log"; exit 1; }
+echo "  ok   PlatformUtils: ветка WINDOWS компилируется (заглушка unit Windows перекрывает SysUtils, как настоящий)"
+
+# ── macOS ──
+mkdir -p "$WORK/mac"
+sed -e 's/{\$IFDEF LINUX}/{$IFDEF SIMLINUX}/g' \
+    -e 's/{\$IFDEF DARWIN}/{$IFDEF SIMMAC}/g' \
+    -e 's/{\$IF DEFINED(DARWIN) AND NOT DEFINED(HEADLESS)}/{$IF DEFINED(SIMMAC) AND NOT DEFINED(HEADLESS)}/g' \
+    "$SRC" > "$WORK/mac/PlatformUtils.pas"
+( cd "$WORK/mac" && fpc -B -Mobjfpc -dHEADLESS -dSIMMAC -Fu. -FU. -Cn PlatformUtils.pas >"$WORK/mac.log" 2>&1 ) \
+  || { echo "DARWIN-ветка НЕ компилируется:"; cat "$WORK/mac.log"; exit 1; }
+echo "  ok   PlatformUtils: ветка DARWIN компилируется (mach_absolute_time, без линковки)"
+
+echo
+echo "Итого: 2 проверки, провалено 0"
@@ -0,0 +1,32 @@
+unit Windows;
+
+{
+  Заглушка модуля Windows для проверки WINDOWS-ветки на Linux.
+
+  Объявляет РОВНО те имена, которыми настоящий Windows перекрывает SysUtils —
+  само перекрытие и ловит ошибки, невидимые на Linux: unit Windows стоит в uses
+  ПОСЛЕ SysUtils, поэтому его трёхпараметрический GetEnvironmentVariable
+  выигрывает у однопараметрического из SysUtils, и вызов падает с «wrong number
+  of parameters». Ровно так win64-сборка и легла.
+}
+
+{$MODE Delphi}
+
+interface
+
+type
+  DWORD = LongWord;
+function GetEnvironmentVariable(lpName, lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;
+function QueryPerformanceCounter(var lpPerformanceCount: Int64): LongBool; stdcall;
+function QueryPerformanceFrequency(var lpFrequency: Int64): LongBool; stdcall;
+function GetTickCount64: QWord; stdcall;
+implementation
+function GetEnvironmentVariable(lpName, lpBuffer: PChar; nSize: DWORD): DWORD; stdcall;
+begin Result := 0; end;
+function QueryPerformanceCounter(var lpPerformanceCount: Int64): LongBool; stdcall;
+begin lpPerformanceCount := 123456789; Result := True; end;
+function QueryPerformanceFrequency(var lpFrequency: Int64): LongBool; stdcall;
+begin lpFrequency := 10000000; Result := True; end;
+function GetTickCount64: QWord; stdcall;
+begin Result := 42; end;
+end.