Ada类型定义报错：scale超出最大值18，如何修改上限？

你定义的Fixed-Point类型：

type Long_Money_Type is delta 10.0**(-22) digits 38;

在GNAT 8.3.0上可正常编译，但在GNAT 10.3.1中触发scale和digits超出最大值18的错误，原因是GNAT新版本对64位系统默认的Fixed-Point类型存储做了更严格的标准对齐——默认64位存储的Fixed-Point类型最大支持scale=18、digits=18，旧版本的宽松行为属于非标准扩展。

以下是可行的解决方式：

• 启用GNAT非标准扩展编译选项
  编译时添加-gnatX参数，允许编译器使用非标准的Ada扩展特性，可放宽对Fixed-Point类型的限制，兼容你原来的类型定义。

• 指定128位存储大小
  在类型定义中显式指定128位存储，以支持更大的scale和digits范围：

  type Long_Money_Type is delta 10.0**(-22) digits 38 with Size => 128;
  

  注意该特性依赖GNAT对128位类型的支持，部分平台可能需要配合特定编译选项。

• 调整精度以符合标准限制
  如果业务场景允许，降低delta和digits的值到编译器默认支持的范围，比如：

  type Long_Money_Type is delta 10.0**(-18) digits 18;
  

  这种方式能保证代码的可移植性，避免依赖编译器的非标准特性。

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