ada/aws
0
0
Fork 0
mirror of https://github.com/AdaCore/aws.git synced 2026-02-12 12:29:46 -08:00
Code Issues Packages Projects Releases Wiki Activity

Add some Ada 2022 pragma.

Browse Source 
Those are needed as possibly using generic units having
Ada 2022 constructs.

Adjust expected output of test 0265 accordingly.

TN: eng/toolchain/aws#87
This commit is contained in:
Pascal Obry
2025-04-23 11:50:35 +02:00
parent a38b47f3bb
commit 3fd2ec0485
5 changed files with 27 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
regtests/0265_wsdl_derived_constraints/test.out
View File

@@ -26,28 +26,28 @@ Call 2
OK
Id 3
Faultcode : Client
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-name_type_pkg.ads:33 length check failed)
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-name_type_pkg.ads:38 length check failed)
Id 4
Faultcode : Client
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-percentcompleteinteger_type_pkg.ads:36 range check failed)
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-percentcompleteinteger_type_pkg.ads:41 range check failed)
Id 5
Faultcode : Client
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-name_type_pkg.ads:33 length check failed)
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-name_type_pkg.ads:38 length check failed)
Id 6
Faultcode : Client
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-nonnegativefloat_type_pkg.ads:34 range check failed)
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-nonnegativefloat_type_pkg.ads:39 range check failed)
Id 7
Faultcode : Client
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-nonnegativeint_type_pkg.ads:34 range check failed)
Faultstring : Parameter error in call (www-ecerami-com-wsdl-deriveconstservice_wsdl-nonnegativeint_type_pkg.ads:39 range check failed)
Id 8
Faultcode : Client
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-address_type_pkg.ads:39)
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-address_type_pkg.ads:44)
Id 9
Faultcode : Client
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-address_type_pkg.ads:39)
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-address_type_pkg.ads:44)
Id 10
Faultcode : Client
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-code1_type_pkg.ads:40)
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-code1_type_pkg.ads:45)
Id 11
Faultcode : Client
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-code1_type_pkg.ads:40)
Faultstring : Parameter error in call (dynamic_predicate failed at www-ecerami-com-wsdl-deriveconstservice_wsdl-code1_type_pkg.ads:45)

5
tools/wsdl2aws-templates/s-type-array.tads
View File

@@ -7,9 +7,14 @@
--
-- $ wsdl2aws @_OPTIONS_@
pragma Ada_2022;
pragma Warnings (Off);
pragma Style_Checks (Off);
@@IF@@ not @_SAFE_POINTER_@
with Ada.Containers.Vectors;
@@END_IF@@
with Ada.Strings.Unbounded;
with SOAP.Parameters;
with SOAP.Types;

5
tools/wsdl2aws-templates/s-type-derived.tads
View File

@@ -6,6 +6,11 @@
-- This file was generated on @_NOW_@
--
-- $ wsdl2aws @_OPTIONS_@
pragma Ada_2022;
pragma Warnings (Off);
pragma Style_Checks (Off);
@@IF@@ (@_LOWER:BASE_NAME_@ = "unbounded_string") or not @_IS_EMPTY:PREDICATE_KIND_@
with Ada.Strings.Unbounded;
@@END_IF@@

4
tools/wsdl2aws-templates/s-type-enum.tads
View File

@@ -7,6 +7,10 @@
--
-- $ wsdl2aws @_OPTIONS_@
pragma Ada_2022;
pragma Warnings (Off);
pragma Style_Checks (Off);
with SOAP.Parameters;
with SOAP.Types;

4
tools/wsdl2aws-templates/s-type-record.tads
View File

@@ -7,6 +7,10 @@
--
-- $ wsdl2aws @_OPTIONS_@
pragma Ada_2022;
pragma Warnings (Off);
pragma Style_Checks (Off);
with Ada.Strings.Unbounded;
with SOAP.Parameters;