基于GPR双目标项目的My_Array地址配置方案咨询

方案1：GPR预处理器符号+Ada条件编译 #

这是最直接的实现方式，无需大幅改动现有代码：

1. 修改GPR项目文件，为不同Target定义预编译符号：

mySources := "My project files"
case Rules.Target is
    when "CASE1" =>
         mySources := "File1" & mySources;
         -- 定义预编译符号，告知编译器当前为CASE1
         for Preprocessing_Switches use ("-DCASE1");
    when "CASE2" =>
         mySources := "File2" & mySources;
    when others =>
end case;
for Source_Dirs use mySources;

2. 修改commonFile，用条件编译控制地址绑定逻辑：

-- Type definition
type My_Array_Type is array (Boolean) of My_Type;

-- Variable definition
My_Array : My_Array_Type;
-- 仅在CASE1编译时启用地址绑定
#if defined(CASE1)
for My_Array'Address use local_Address;
#end if;

此时File2可以是空文件，或仅存放CASE2特有的无关代码——因为CASE2编译时会跳过地址绑定逻辑，My_Array自动使用编译器分配的默认地址。

方案2：Ada包抽象封装 #

如果希望代码结构更具扩展性，可将地址配置逻辑封装为抽象包：

1. 创建通用接口包：

package Address_Config is
    -- 默认返回空地址，用于CASE2场景
    function Get_My_Array_Address return System.Address is (System.Null_Address);
end Address_Config;

2. File1作为CASE1的实现，重写包体：

package body Address_Config is
    local_Address : constant System.Address := Function_to_get_Address();
    function Get_My_Array_Address return System.Address is (local_Address);
end Address_Config;

3. 修改commonFile，结合条件编译使用配置：

with Address_Config; use Address_Config;

-- Type definition
type My_Array_Type is array (Boolean) of My_Type;

-- Variable definition
#if defined(CASE1)
My_Array : My_Array_Type;
for My_Array'Address use Get_My_Array_Address();
#else
My_Array : My_Array_Type;
#end if;

这种方式将地址配置逻辑解耦，后续新增Target时只需添加对应包体即可。

方案3：拆分源文件适配不同Target #

把My_Array的定义拆分为两个文件：

• commonFile_CASE1.adb：包含带地址绑定的My_Array
• commonFile_CASE2.adb：包含默认地址的My_Array

然后在GPR中根据Target选择对应文件：

mySources := "My project files"
case Rules.Target is
    when "CASE1" =>
         mySources := "File1" & "commonFile_CASE1.adb" & mySources;
    when "CASE2" =>
         mySources := "File2" & "commonFile_CASE2.adb" & mySources;
    when others =>
end case;
for Source_Dirs use mySources;

该方案逻辑直观，避免了条件编译的代码杂乱，适合简单场景。

关于架构调整的建议 #

如果当前项目规模较小，方案1或2完全能满足需求，无需大规模重构。若后续会新增更多Target、地址配置逻辑更复杂，方案2的抽象包方式扩展性更强，更利于长期维护。

内容的提问来源于stack exchange，提问作者A.Pissicat