mORMot2 的 mormot.defines.inc

到底配置了啥，居然写了700多行！

{
  这个文件是开源Synopse mORMot框架2的一部分，
  遵循MPL/GPL/LGPL三重许可协议 - 详见LICENSE.md

  定义了一组集中的条件编译指令，包含在所有框架单元中，
  也可以用于您自己的私有单元。
}

(********************** 用户触发的条件编译指令 **********************)

{  以下条件编译指令可以在您的项目选项中启用，
   以根据您的设置或项目期望调整编译。 }

{.$define USEPACKAGES}
// 如果在Delphi包中编译单元，请定义此指令
// - 将避免类似"[DCC Error] E2201 Need imported data reference ($G) to access 'VarCopyProc'"的错误
// - 应在包选项级别设置，并默认保持不变
// - 注意：您可能还应在项目选项的“生成DCU文件”中设置“仅生成DCU文件”
// -> Delphi编译器 -> 输出C/C++ -> C/C++输出文件生成

{.$define PUREMORMOT2}
// 如果定义了此指令，则不会启用mORMot 1.18的兼容类型或函数
// - 默认情况下，现有项目应该（几乎）能够使用mORMot 2进行编译
// - 您最终应该定义此条件编译指令，以完美转换代码到新的类型和方法定义

{.$define NEWRTTINOTUSED}
// 如果定义了此指令，则不会将新的RTTI（自Delphi 2010起可用）链接到可执行文件：
// 结果文件大小将大大减小，且mORMot不会受到影响（除非您使用增强的RTTI进行记录/动态数组JSON序列化）
// - 默认未定义以确保最小影响

{.$define FPCUSEVERSIONINFO}
// 为mormot.core.os.pas中的TFileVersion/TExeVersion链接低级别fileinfo/machoreader/elfreader
// - 默认禁用，以保留代码大小

{.$define NOSETTHREADNAME}
// 如果定义了此指令，则SetThreadName()不会引发用于设置线程名称的异常：
// 如果在调试应用程序时遇到问题，请定义此指令

{.$define NODIRECTTHREADMANAGER}
// 在POSIX上，省略直接的GetThreadManager() API调用，仅使用RTL函数

{.$define NOEXCEPTIONINTERCEPT}
// 如果定义了此指令，则不会拦截或记录异常

{.$define NOPATCHVMT}
// 禁用vmtAutoTable槽的运行时补丁，改用Rtti.FindType
// - 可能与NOPATCHRTL条件编译指令一起定义
// - 当内存中的可执行文件无法被修补时（例如，在安全受限的系统上，或在没有mmap支持的操作系统上）可以使用

{.$define NOPATCHRTL}
// 如果定义了此指令，则不会在x86_64上为FPC RTL打补丁以优化汇编代码
// - 可能与NOPATCHVMT条件编译指令一起定义
// - 如果发现某些兼容性问题，可以启用它

{$ifdef CPUX86}
  {.$define HASNOSSE2} // 在非常旧的CPU上强制使用x87代码
{$endif CPUX86}

{.$define NOSYNDBZEOS}
// 使mormot.db.sql.zeos.pas成为一个“空”单元 - 仅对FPC/Lazarus包定义

{.$define NOSYNDBIBX}
// 使mormot.db.sql.ibx.pas成为一个“空”单元 - 仅对FPC/Lazarus包定义

{.$define MONGO_OLDPROTOCOL}
// 可与不支持OP_MSG线协议的旧MongoDB实例（<3.6）一起使用

{.$define DISABLEAPPSQL}
// mormot.db.sql外部数据库不会通过mormot.app链接到可执行文件

{.$define DISABLEAPPNOSQL}
// MongoDB客户端不会通过mormot.app链接到可执行文件

{.$define NOSSPIAUTH}
// 禁用Windows上的mormot.lib.sspi支持，在mormot.rest.client/server单元中

{.$define NOGSSAPIAUTH}
// 禁用Posix上的mormot.lib.gsssapi支持，在mormot.rest.client/server单元中

{.$define NOPOINTEROFFSET}
// 如果您的内存非常大或已碎片化，则在64位上禁用TOrmTable偏移量
// 注意：FPCMM_MEDIUM32BIT可能需要此指令来处理大于256KB的数据

{.$define NOTORMTABLELEN}
// 禁用TOrmTable内部fLen[]预计算表 - 速度较慢但占用内存较少

{.$define NOSQLITE3STATIC}
// 禁用静态SQLite3链接 - 强制使用外部dll/so库

{.$define NOSQLITE3FPUSAVE}
// 在SQLite3引擎期间禁用SetFpuFlags()调用 - 可能提高性能

{.$define DEBUGSTORAGELOCK}
// 定义此指令以强制记录StorageLock/StorageUnLock的详细日志

{.$define DEBUGSQLVIRTUALTABLE}
// 定义此指令以强制记录SQLite3虚拟表查询计划器成本的详细日志

{.$define ONLYUSEHTTPSOCKET}
// 在POSIX上定义，但如果socket+SChannel足够，也可以在Windows上启用

{.$define OLDLIBC}
// 仅使用最旧的libc API，例如accept()而不是accept4()

{.$define OLDLINUXKERNEL}
// 仅使用最旧的Linux系统调用 - 如FPC RTL中所示

{.$define USE_OPENSSL}
// 在POSIX上定义（具有延迟绑定），但也可以在Windows上启用

{.$define USELIBCURL}
// 为https定义跨平台的libcurl
// （当我们的原生socket+OpenSSL/SChannel似乎不够好时）

{.$define LIBCURLMULTI}
// 启用mormot.lib.curl中更高级的“多会话”API函数
// 请参阅https://curl.haxx.se/libcurl/c/libcurl-multi.html接口


{$ifdef FPC}

(********************** FPC条件编译指令 **********************)

  // -----------
  // -- 全局代码生成条件编译指令

  // 注意：您可以通过在项目选项中设置以下内容来移除所有意外的提示
  // -vm11047,6058,5092,5091,5060,5058,5057,5028,5024,5023,4081,4079,4055,3187,3124,3123

  // 禁用一些显而易见的警告 - 使FPC与Delphi在这方面保持一致
  {$WARN 5089 off} // 未初始化的托管变量1
  {$WARN 5091 off} // 未初始化的托管变量2
  {$WARN 5093 off} // 函数结果变量为未初始化的托管变量1
  {$WARN 5094 off} // 函数结果变量为未初始化的托管变量2
  {$WARN 6058 off} // 调用标记为内联的子程序未被内联

  {$ifndef FPC_DELPHI}
    {$MODE DELPHI} // 例如，用于asm语法 - 为FPC 2.6兼容性禁用
  {$endif FPC_DELPHI}

  {$INLINE ON}
  {$MINENUMSIZE 1}
  {$PACKRECORDS DEFAULT} // 强制正常对齐
  {$PACKSET 1}
  {$PACKENUM 1}
  {$CODEPAGE UTF8} // 否则在大多数情况下会出现意外行为
  {$OBJECTCHECKS OFF} // 如在挂钩类时预期

  {$define HASINLINE}
  {$define HASINLINEWINAPI} // Delphi在内联Windows API调用时遇到问题
  {$define HASSAFEINLINE}   // Delphi 2007-2009在内联时遇到问题
  {$define NODELPHIASM}     // 避免例如低级的System.@LStrFromPCharLen
  {$define HASDYNARRAYTYPE} // eltype2字段，例如用于T*ObjArray
  {$define HASITERATORS}
  {$define HASIMPLICITOPERATOR}
  {$define HASDBFTWIDE}
  {$define HASTTHREADSTART}
  {$define HASINTERFACEASTOBJECT}
  {$define EXTENDEDTOSHORT_USESTR} // FPC中FloatToText使用str()
  {$define DOUBLETOSHORT_USEGRISU} // 快速的DoubleToAscii()
  {$define USERECORDWITHMETHODS}   // 仅在Delphi 7中使用"object"
  {$define FPC_OR_UNICODE}
  {$define FPC_OR_DELPHIXE}        // 绕过Delphi内部错误
  {$define FPC_OR_DELPHIXE4}


  // -----------
  // -- 识别FPC版本

  // $if FPC_FULLVERSION>20700 breaks Delphi 6-7 and SynProject :(
{$ifdef VER2_7}
  {$define ISFPC27} // 定义FPC版本为2.7
{$endif VER2_7}

{$ifdef VER3_0}
  {$define ISFPC27} // FPC 3.0仍然兼容2.7的一些特性
  {$define ISFPC30} // 定义FPC版本为3.0
  {$define HASDIRECTTYPEINFO} // 在FPC 3.0中，PTypeInfo将直接存储，无需指针解引用
  // PTypeInfo would be stored with no pointer de-reference
  // => Delphi and newer FPC uses a pointer reference to ease exe linking
{$endif VER3_0}

{$ifdef VER3_1} // 3.2版本之前的trunk版本
  {$define ISFPC27}
  {$define ISFPC30}
  {.$define HASDIRECTTYPEINFO} // 对于2016年6月之前的trunk修订版本，定义此指令
  // define this for trunk revisions older than June 2016 - see
  // http://wiki.freepascal.org/User_Changes_Trunk#RTTI_Binary_format_change
{$endif VER3_1}

{$ifdef VER3_1_1}
  {$define ISFPC32} // 定义FPC版本为3.2（虽然版本号看起来是3.1.1，但按照FPC的命名习惯，这里可能是指3.2的预发布或测试版本）
{$endif VER3_1_1}

{$ifdef VER3_2}
  {$define ISFPC27}
  {$define ISFPC30}
  {$define ISFPC32} // 明确定义FPC版本为3.2
  {$define HASGETTYPEKIND} // FPC 3.2引入了获取类型种类的功能
  {$ifdef VER3_2_2}
    {$define HASTTHREADTERMINATESET} // 引入了TThread.TerminateSet
  {$endif VER3_2_2}
  {$ifdef VER3_2_3}
    {$define HASTTHREADTERMINATESET}
  {$endif VER3_2_3}
{$endif VER3_2}

{$ifdef VER3_3} // 3.2版本之前的trunk版本（又一个可能是指向3.2预览或测试版本的定义）
  {$define ISFPC27}
  {$define ISFPC30}
  {$define ISFPC32}
  {$define HASTTHREADTERMINATESET} // 引入了TThread.TerminateSet
{$endif VER3_3}

{$ifdef VER3_4}
  {$define ISFPC27}
  {$define ISFPC30}
  {$define ISFPC32}
  {$define ISFPC34} // 定义FPC版本为3.4
  {$define FPC_PROVIDE_ATTR_TABLE} // 引入了TTypeData.AttributeTable
  {$define STRCNT32} // 即使在64位CPU上，TAnsiRec.Ref也是32位
  // see https://gitlab.com/freepascal.org/fpc/source/-/issues/38018
  {$define HASTTHREADTERMINATESET} // 引入了TThread.TerminateSet
{$endif VER3_4}

{$if not defined(VER3_0) and not defined(VER3_2) and not defined(VER2)}
  {.$define FPC_PROVIDE_ATTR_TABLE} // 自SVN 42356-42411起应定义，但在mormot.core.Rtti编译错误时应取消定义
  // on compilation error in mormot.core.Rtti, undefine the above conditional
  // see https://lists.freepascal.org/pipermail/fpc-announce/2019-July/000612.html
  {$define STRCNT32} // 新trunk特性：即使在64位CPU上，TAnsiRec.Ref也是32位
{$ifend}

// -----------
// -- 识别操作系统

// 主要是OSWINDOWS或OSPOSIX（包括OSLINUX, OSBSD, OSDARWIN, OSANDROID）

{$ifdef MSWINDOWS}
  // Windows条件编译指令
  {$define OSWINDOWS}
  {$define FPCWINDOWS}
{$else}
  {$define OSPOSIX} // POSIX/BSD系统
  {$define FPCPOSIX}
  {$ifdef BSD}
    // Darwin和BSD家族（如OpenBSD/FreeBSD）的条件编译指令
    {$define OSBSDDARWIN} // OSBSDDARWIN = OSBSD + OSDARWIN
    {$ifdef DARWIN}
      {$define OSDARWIN}
      {$define FPCDARWIN}
      {$ifdef CPUINTEL}
        {$define FPC_PIC} // 可能未在编译器选项中定义
      {$endif CPUINTEL}
      {$define NOPATCHRTL} // 不要修改RTL的汇编代码
      {$define DISABLE_SSE42} // 绕过clang汇编错误
    {$else}
      {$define OSBSD} // OSX有一些非标准的API调用
      {$define FPCBSD}
      {$ifdef OPENBSD}
        {$define OSOPENBSD} // OSBDS = OSOPENBSD + OSFREEBSD
        {$ifdef CPUX86}
          {$define FPC_PIC}
        {$endif CPUX86}
      {$endif OPENBSD}
      {$ifdef FREEBSD}
        {$define OSFREEBSD}
      {$endif FREEBSD}
    {$endif DARWIN}
  {$else}
    {$ifdef LINUX}
      // Linux条件编译指令
      {$define OSLINUX} // 例如，用于禁用epoll API
      {$define FPCLINUX}
      {$define OSLINUXANDROID}
      {$ifdef CPUX64}
        {$define OSLINUXINTEL}
        {$define OSLINUXX64}
      {$endif CPUX64}
      {$ifdef CPUX86}
        {$define OSLINUXINTEL}
        {$define OSLINUXX86}
      {$endif CPUX86}
    {$else}
      {$ifdef ANDROID}
        // Android条件编译指令
        {$define OSANDROID}
        {$define FPCANDROID}
        {$define OSLINUXANDROID}
        {$define NOPATCHRTL} // 不要修改汇编代码
        {$ifdef CPUX86}
          {$define FPC_PIC}
        {$endif CPUX86}
        {$ifdef CPUAARCH64}
          {$define OSANDROIDARM64}
        {$endif CPUAARCH64}
      {$else}
        'Unsupported Operating System - yet'
      {$endif ANDROID}
    {$endif LINUX}
  {$endif BSD}
{$endif MSWINDOWS}

// -----------
// -- 识别CPU架构

{$define FPC_SINGLEABI} // 仅在i386默认ABI <> cdecl时定义
{$ifdef CPU64}
  // 64位架构
  {$define FPC_64}
  {$ifdef CPUX64}
    {$ASMMODE INTEL} // 如Delphi所期望
    {$define CPUINTEL}
    {$define FPC_CPUINTEL}
    {$define FPC_CPUX64}
    {$ifndef OSDARWIN} // MachOS在处理我们的汇编代码时有问题
      {$define FPC_ASMX64}
      {$define ASMX64} // 支持带有全局变量的汇编
      {$define ASMINTEL} // 要么是ASMX86，要么是ASMX64
      {$define ASMX64AVX} // 支持AVX/AVX2/AVX512
      {$define ASMX64AVXNOCONST} // 支持无align32常量加载的AVX
      {$define CPUX64ASM} // FPC没有问题（Delphi XE7之前的版本有问题）
      {$define HASAESNI} // mormot.crypt.core在Darwin汇编中被拒绝
    {$endif OSDARWIN}
  {$endif CPUX64}
  {$ifdef CPUAARCH64}
    {$define CPUARM3264}
  {$endif CPUAARCH64}
{$else}
  // 32位架构
  {$define FPC_32}
  {$ifdef CPUX86}
    {$ASMMODE INTEL} // 如Delphi所期望
    {$define CPUINTEL}
    {$define FPC_CPUINTEL}
    {$define FPC_X86}
    {$ifndef FPC_PIC} // MachOS/OpenBSD/Android在i386上需要PIC
      {$define ASMX86} // 支持带有全局变量的汇编
      {$define ASMINTEL} // 要么是ASMX86，要么是ASMX64
      {$define CPUX86NOTPIC} // 使用"absolute"而不是本地寄存器
      {$define HASAESNI}
    {$endif FPC_PIC}
    {$define TSYNEXTENDED80} // 仅在32位上有真正的x87扩展类型
    {$undef FPC_SINGLEABI} // 在i386上，cdecl <> 寄存器约定
  {$endif CPUX86}
  {$ifdef CPUARM}
    {$define CPUARM3264}
  {$endif CPUARM}
  {$define STRCNT32}         // 32位 TAnsiRec.Ref  
  {$define DACNT32}          // 32位 TDynArrayRec.refCnt  
  {$endif CPU64}  
  {$ifndef CPUX64}  
    {$undef FPC_X64MM}       // 取消定义，这个单元仅适用于x86_64  
  {$endif CPUX64}

{$ifdef ISFPC32}
    /// FPC 3.x 晚期版本起才有自己的 RTTI 布局
    {$define FPC_NEWRTTI}
    /// 当 http://bugs.freepascal.org/view.php?id=26774 被修复时
    {$define HASINTERFACERTTI}
    /// FPC 3.2+ 对泛型的支持看起来不错，但会引发链接问题
    {$define HASGENERICS}
    {$define ORMGENERICS}
    {$define FPCGENERICS}
  {$endif}
  // FPC 泛型（即参数化类型）自 2.6 版本起可用
  {$define HASGENERICSSYNTAX}

  {$ifdef FPC_NEWRTTI}
    {$define ISDELPHI2010_OR_FPC_NEWRTTI}
  {$else}
    {$define DELPHI_OR_FPC_OLDRTTI}
    {$define FPC_OLDRTTI}
  {$endif}

  {$ifdef FPC_HAS_CPSTRING}
    /// 参见 http://wiki.freepascal.org/FPC_Unicode_support
    {$define HASCODEPAGE} // UNICODE 意味着 {$mode delphiunicode}
  {$endif FPC_HAS_CPSTRING}

  {$ifdef ISFPC27}
    {$define ISFPC271}
    {$define HASVARUSTRING}
    {$define HASVARUSTRARG}
    /// 如果 http://mantis.freepascal.org/view.php?id=26773 的 bug 已被修复则定义
    /// 应使用 2.7.1/trunk 分支，修订版本为 2014-11-05T22:17:54
    /// => 这将改变 TInvokeableVariantType.SetProperty() 的签名
    {$define FPC_VARIANTSETVAR}
  {$endif ISFPC27}

  {$if defined(FPC_USE_WIN32_SEH) or defined(FPC_USE_WIN64_SEH)}
    {.$define HASFASTTRYFINALLY}
    /// FPC SEH 并非完全高效，并会生成一些额外的代码/调用
  {$ifend}

{$else FPC}

(********************** Delphi Conditionals **********************)

  {$ifndef MSWINDOWS}
  'Kylix 或 Delphi for MacOS/Linux/Mobile 不受支持'
  '-> 我们建议为 POSIX 平台使用 FPC'
  {$endif MSWINDOWS}

  {$define OSWINDOWS}

  {$ifndef CONDITIONALEXPRESSIONS}
  'Delphi 2-5 不受支持'
  {$endif CONDITIONALEXPRESSIONS}
  {$ifdef VER140}
  'Delphi 6 不受支持'
  {$endif VER140}

  {$A+} // 强制正常对齐，如我们的单元所期望

  {$ifdef UNICODE}
    {$define HASVARUSTRING}
    {$define HASCODEPAGE}
    {$define FPC_OR_UNICODE}
    {$define USERECORDWITHMETHODS}
    {$define HASGENERICSSYNTAX}     // Delphi 2009+ 编译器有 TArray<>
    { 由于 Delphi 2009+ 的一个 bug，我们需要伪造记录的继承，
      因为 TDynArrayHashed = object(TDynArray) 初始化失败
      http://blog.synopse.info/post/2011/01/29/record-and-object-issue-in-Delphi-2010 }
    {$define UNDIRECTDYNARRAY}
  {$else}
    {$define HASNOSTATICRTTI}        // Delphi 7/2007 没有 TypeInfo(TGuid)
  {$endif}

  {$define ISDELPHI}
  {$define CPUINTEL}          // Delphi 目前仅支持 Intel
  {$define ASMINTEL}          // 要么是 ASMX86，要么是 ASMX64
  {$undef FPC_X64MM}          // FPC 专用单元
  {$ifdef CPUX64}
    {$undef CPU32}
    {$define CPU64}           // Delphi 64 位 CPU 编译器
    {$define CPU64DELPHI}
    {$define ASMX64}          // 支持带有全局变量的汇编
    {$define EXTENDEDTOSHORT_USESTR} // Delphi Win64 上的 FloatToText() 较慢
    {$define DOUBLETOSHORT_USEGRISU} // 快速的 DoubleToAscii() - Delphi Win32 上不可用
  {$else CPUX64}
    {$define CPU32}           // Delphi 32 位 CPU 编译器
    {$undef CPU64}
    {$define CPU32DELPHI}
    {$define CPUX86}          // 与旧版本的 Delphi 兼容
    {$define ASMX86}          // 支持带有全局变量的汇编
    {$define CPUX86NOTPIC}    // 使用 "absolute" 而不是本地寄存器
    {$define TSYNEXTENDED80}  // 仅 32 位有真正的 x87 扩展类型
  {$endif CPUX64}

  {$define DELPHI_OR_FPC_OLDRTTI}
  {$define HASINTERFACERTTI}  // 接口 RTTI（非最旧 FPC）
  {$define HASFASTTRYFINALLY} // Delphi Win32/Win64 高效使用 SEH
  {$define STRCNT32}          // 即使在 64 位 CPU 上也是 32 位的 TStrRec.refCnt
  {$define DACNT32}           // 即使在 64 位 CPU 上也是 32 位的 TDynArrayRec.refCnt
  {$warn UNSAFE_CODE OFF}     // Delphi for .Net 已不存在！
  {$warn UNSAFE_TYPE OFF}
  {$warn UNSAFE_CAST OFF}
  {$warn DUPLICATE_CTOR_DTOR OFF} // 避免 W1029 不必要的提示
  {$warn SYMBOL_PLATFORM OFF}
  {$warn SYMBOL_DEPRECATED OFF}   // 对于 faVolumeID
  {$warn UNIT_PLATFORM OFF}

  {$if CompilerVersion >= 17}     // = Delphi 2005
    // ... (省略了与 Delphi 版本相关的条件编译指令，以保持简洁)
  {$ifend}

{$endif FPC}

```pascal
(********************** 共享条件编译指令 **********************)

// -----------
// -- 关于Pascal代码的预期

  {$H+} // 使用长字符串
  {$R-} // 禁用代码中的范围检查
  {$S-} // 禁用代码中的堆栈检查
  {$X+} // 预期扩展语法
  {$W-} // 禁用堆栈帧生成
  {$Q-} // 禁用代码中的溢出检查
  {$B-} // 预期短路布尔表达式
  {$V-} // 禁用Var-String检查
  {$T-} // 类型化的@运算符
  {$Z1} // 枚举类型默认以字节存储
  {$P+} // 开放字符串参数

  {$ifdef DEBUG}
    {$assertions on} // assert()可能被禁用，例如在FPC中
  {$endif DEBUG}

// -----------
// -- CPU特定条件编译指令

{$ifdef CPUINTEL}
  {$ifdef OSWINDOWS}
    {$ifdef CPUX64}
      {$define WIN64ABI}    // 用于x86_64的汇编
      {$define OSWINDOWS64} // Win64
    {$else}
      {$define OSWINDOWS32} // Win32
    {$endif CPUX64}
    {$define THREADID32}    // 在Win32和Win64上，TThreadID为32位DWORD
  {$endif OSWINDOWS}
  {$ifdef OSPOSIX}
    {$ifdef CPUX64}
      {$define SYSVABI}     // 用于x86_64的汇编
    {$else}
      {$define THREADID32}  // 在pthread上，TThreadID为PtrUInt/pointer
    {$endif CPUX64}
  {$endif OSPOSIX}
  {$define CPUINTELARM}
{$else}
  {$undef HASAESNI}         // AES-NI是Intel特有的功能
  {$ifdef CPUARM3264}
    {$define CPUINTELARM}
  {$endif CPUARM3264}
  {$ifdef CPU32}
    {$define THREADID32}    // 在pthread上，TThreadID为PtrUInt/pointer
  {$endif CPU32}
{$endif CPUINTEL}

{$ifdef CPU32}
  {$define NOPOINTEROFFSET} // 32位CPU将始终存储指针
{$endif CPU32}

// -----------
// -- 库链接

// 一些静态链接的文件需要从以下网址下载
// https://github.com/synopse/mORMot2/releases

{$ifdef FPC}
  // Delphi不接受GCC目标文件，而libdeflate需要GCC
  {$if defined(OSOPENBSD) and defined(FPC_CROSSCOMPILING)}
    {$define NOSQLITE3STATIC} // OpenBSD在fpcupdeluxe的libgcc.a上存在问题
  {$ifend}
  {$define LIZARD_EXTERNALONLY}     // Lizard被禁用，但在某些目标上可用
  {$ifdef OSLINUX}
    {$ifdef CPUINTEL}
      {$define LIBDEFLATESTATIC}    // libdeflate静态绑定
      {$define LIBQUICKJSSTATIC}    // quickjs静态绑定
      {$undef LIZARD_EXTERNALONLY}  // 静态liblizard.a
    {$endif CPUINTEL}
    {$ifdef CPUARM}
      {.$undef LIZARD_EXTERNALONLY} // 静态liblizard.a未测试
      {.$define LIBDEFLATESTATIC}   // 编译通过，但未测试
      {.$define LIBQUICKJSSTATIC}   // 编译通过，但未测试
    {$endif CPUARM}
    {$ifdef CPUAARCH64}
      {$define LIBDEFLATESTATIC}
      {$undef LIZARD_EXTERNALONLY}  // 静态liblizard.a看起来没问题
      {.$define LIBQUICKJSSTATIC}   // 编译通过，但存在访问违规
    {$endif CPUAARCH64}
  {$endif OSLINUX}
  {$ifdef OSWINDOWS}
    {$undef LIZARD_EXTERNALONLY}    // 静态liblizard.a
    {$ifdef CPUX86}
      {$define LIBDEFLATESTATIC}
      {$define LIBQUICKJSSTATIC}
    {$endif CPUX86}
    {$ifdef CPUX64}
      {.$define LIBDEFLATESTATIC}   // Win64 + FPC 3.2 = 内部错误200603061
      {$define LIBQUICKJSSTATIC}
    {$endif CPUX64}
  {$endif OSWINDOWS}
  {$ifdef CPUARM3264}
    {$ifdef OSDARWIN}               // 不支持的架构（例如Aarch64-Darwin）
      {$define OSDARWINARM}
      {$define LIZARD_EXTERNALONLY}
      {$define NOLIBCSTATIC}
    {$endif OSDARWIN}
  {$endif CPUARM3264}
{$else}
  {$define LIZARD_EXTERNALONLY}     // Delphi Win32/Win64尚无静态.obj
  {$ifdef CPUX86}
    {$define LIBQUICKJSSTATIC}      // 我们的quickjs.obj在Win32上看起来不错 :)
  {$endif CPUX86}
  // Delphi XE4在Win64上存在链接错误
  {$ifdef CPUX64}
    {$if (CompilerVersion = 25.0) or
         (CompilerVersion = 28.0) or 
         (CompilerVersion = 29.0)}  // 确切地说，XE4、XE7或XE8已知会导致GPF
      // 其他Win32/Win64 Delphi平台“应该”能按预期工作（tm）
      {$define NOSQLITE3STATIC}
    {$ifend}
    {$define LIBQUICKJSSTATIC}      // 看起来不错，但在Delphi 10.4+ Win64上
    {$if CompilerVersion >= 34.0}    // = Delphi 10.4及更高版本
      {$undef LIBQUICKJSSTATIC}
    {$ifend}
  {$endif}
{$endif FPC}

{$ifdef OSWINDOWS}
  // 在Windows上：启用Microsoft AES加密服务提供程序（XP SP3及以上）
  // - 即使这些AES引擎速度较慢且为闭源（因此最好避免使用），但我们仍将其用于TAesPrng.GetEntropy，因为无害
  {$define USE_PROV_RSA_AES}
  // 如果你有好的库，请自行承担风险进行定义
  {.$define USE_OPENSSL}
{$else}
  {$ifndef OSANDROID}
    // 在可能是唯一且维护良好的POSIX系统上尝试OpenSSL
    {$define USE_OPENSSL}
  {$endif OSANDROID}
{$endif OSWINDOWS}
{$ifdef FORCE_OPENSSL}
  {$define USE_OPENSSL} // 如果你认为自己足够幸运
{$endif FORCE_OPENSSL}

// -----------
// -- 按平台划分的客户端-服务器功能

{$ifdef OSWINDOWS}

  {$ifndef ONLYUSEHTTPSOCKET}
    {$define USEWININET}      // 发布TWinINet/TWinHttp/TWinHttpAPI类
    {$define USEHTTPSYS}      // 启用http.sys内核模式Web服务器
  {$endif ONLYUSEHTTPSOCKET}

  {$define USE_WINIOCP}     // Windows下的I/O完成端口API很好
  // （由mormot.core.threads和mormot.net.async使用）
  // （在Linux/POSIX下，我们回退到经典的事件驱动池）

  {$ifndef NOSSPIAUTH}        // 来自mormot.lib.sspi
    {$define DOMAINRESTAUTH}  // 在mormot.rest.client/server中启用SSPI
  {$endif NOSSPIAUTH}

{$endif OSWINDOWS}

{$ifdef OSPOSIX}

  {$define ONLYUSEHTTPSOCKET} // 高效的跨平台Socket + OpenSSL API
  {$undef USE_WINIOCP}        // 禁用任何Windows特定代码

  {$ifdef OSANDROID}

    // 对于Android，请考虑使用https://github.com/gcesarmza/curl-android-ios
    // 静态库，并在项目条件编译指令中强制使用USELIBCURL
    {$define LIBCURLSTATIC}

  {$else}

    {$ifndef USE_OPENSSL}       // 如果该平台上没有OpenSSL
      {$define USELIBCURL}      // 尝试跨平台的libcurl用于https
    {$endif USE_OPENSSL}

    {$ifndef NOGSSAPIAUTH}      // mormot.lib.gssapi与Android不兼容
      {$define DOMAINRESTAUTH}  // 在mormot.rest.client/server中启用libgss
    {$endif NOGSSAPIAUTH}

  {$endif OSANDROID}

{$endif OSPOSIX}