From: Yannick Moy <moy@adacore.com>
Date: Fri, 2 Sep 2022 08:40:56 +0000 (+0200)
Subject: [Ada] Reject use in SPARK of Asm intrinsics for code insertions
X-Git-Tag: basepoints/gcc-14~4603
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5ca1d6a4a544f3357fdf0594ddd6096d68405bf3;p=thirdparty%2Fgcc.git

[Ada] Reject use in SPARK of Asm intrinsics for code insertions

SPARK does not allow code insertions. This applies also to
calls to Asm intrinsics defined in System.Machine_Code.

gcc/ada/

	* libgnat/s-maccod.ads: Mark package as SPARK_Mode Off.
---

diff --git a/gcc/ada/libgnat/s-maccod.ads b/gcc/ada/libgnat/s-maccod.ads
index c3abf07a9e78..df7c7df17b28 100644
--- a/gcc/ada/libgnat/s-maccod.ads
+++ b/gcc/ada/libgnat/s-maccod.ads
@@ -33,7 +33,9 @@
 --  operations, and also for machine code statements. See GNAT documentation
 --  for full details.
 
-package System.Machine_Code is
+package System.Machine_Code
+  with SPARK_Mode => Off
+is
    pragma No_Elaboration_Code_All;
    pragma Pure;