STM32F4 UART半字寻址问题：如何设置GNAT编译器使用半字寻址操作寄存器

你遇到的问题本质是GNAT默认允许对小于字的寄存器对象做拆分的字节访问，而STM32F4的部分外设寄存器仅支持半字（16位）对齐访问，拆分字节写入会触发硬件异常位误置。以下是可行的解决方案：

• 首先给寄存器类型添加Volatile_Full_Access属性，这是GNAT专门用于外设寄存器的属性，会强制要求编译器每次对该类型对象的读写都必须操作完整的对象宽度，不允许拆分出单字节访问，同时保留位域的命名访问能力。示例代码如下：

-- 定义CR1寄存器的位域结构
type CR1_Register is record
   UE     : Boolean; -- 位0：UART使能
   UESM   : Boolean; -- 位1：低功耗模式使能
   -- 其余位按照STM32数据手册定义补充
end record
with
  Volatile_Full_Access => True,
  Size => 16,
  Alignment => 2; -- 强制半字对齐

-- 明确位域的硬件偏移，避免编译器自动排位
for CR1_Register use record
   UE     at 0 range 0 .. 0;
   UESM   at 0 range 1 .. 1;
   -- 其余位的偏移对应数据手册补充
end record;

• 补充组件大小约束，明确告知编译器每个位域组件的宽度为1比特，避免编译器将多个位域合并为字节单元访问：

for CR1_Register'Component_Size use 1;

• 保留单比特操作能力的封装方案：如果你担心直接修改位域还是可能触发异常，可以封装一层读改写的操作接口，对外保留单独设置特定位的能力，内部强制走16位完整读写：

-- 先定义CR1的位枚举
type CR1_Bit is (UE, UESM, RE, TE -- 其余位枚举补充);

procedure Set_CR1_Bit (UART : in out UART_Peripheral; Bit : CR1_Bit; Value : Boolean) is
   -- 先完整读取16位寄存器值
   Temp : CR1_Register := UART.CR1;
begin
   -- 修改对应位
   case Bit is
      when UE => Temp.UE := Value;
      when UESM => Temp.UESM := Value;
      -- 其余位分支补充
   end case;
   -- 完整写入16位寄存器
   UART.CR1 := Temp;
end Set_CR1_Bit;

之前仅设置Size属性没有生效的原因是，该属性仅能约束对象的总宽度为16位，但不会限制编译器拆分访问该对象的部分字节，必须搭配Volatile_Full_Access属性才能强制编译器走完整的半字访问。

内容的提问来源于stack exchange，提问作者Peter Rogers