Merge branch 'po/fix-decimal-32bit' into 'master'

*_decimal: Update for stable output on 64bit & 32bit platforms.

See merge request eng/toolchain/aws!50

Author: TurboGit

regtests/0355_wsdl_decimal/test.opt

@@ -1,2 +1,3 @@
 !lal DEAD
 !xmlada DEAD
+32bits OUT test32b.out

regtests/0355_wsdl_decimal/test32b.out

@@ -0,0 +1,25 @@
+0.0000
+12.0000
+12.1000
+12.2000
+12.3500
+98712.0000
+789.0000
+-2.0000
+88.0000
+12.99
+0.0010
+0.0120
+0.1230
+1.2340
+12.3450
+123.4560
+1234.5670
+12345.6780
+123456.7890
+1234567.9000
+12345679.0110
+123456790.1220
+1234567901.2330
+12345679012.3440
+123456790123.4550

regtests/0355_wsdl_decimal/wsdl_d_main.adb

@@ -45,6 +45,10 @@ procedure WSDL_D_Main is
    D    : SOAP.Types.Decimal := 0.0;
    P    : WSDL_D.Price := 12.99;
 
+   Step : constant := (if Standard'Max_Integer_Size >= 128
+                       then 0.000001
+                       else 0.0001);
+
 begin
    H := SOAP.Dispatchers.Callback.Create
      (WSDL_D_Server.HTTP_CB'Access,
@@ -69,7 +73,7 @@ begin
    WSDL_D_Service.Client.Print_Price (P);
 
    for J in 1 .. 15 loop
-      D := (D + 0.000001 * J) * 10;
+      D := (D + Step * J) * 10;
       if D /= SOAP.Types.XSD_Decimal'(SOAP.Types.D (D)).V then
          Text_IO.Put_Line ("Wrong decimal " & D'Img & " convertion");
       end if;

regtests/0359_decimal_constraints/test.opt

@@ -1,2 +1,3 @@
 !lal DEAD
 !xmlada DEAD
+32bits OUT test32b.out

regtests/0359_decimal_constraints/test32b.out

@@ -0,0 +1,26 @@
+0.0000
+12.0000
+12.1000
+12.2000
+12.3500
+98712.0000
+789.0000
+-2.0000
+88.0000
+12.99
+0.0010
+0.0120
+0.1230
+1.2340
+12.3450
+123.4560
+1234.5670
+12345.6780
+123456.7890
+1234567.9000
+12345679.0110
+123456790.1220
+1234567901.2330
+12345679012.3440
+123456790123.4550
+Expected constaint error

regtests/0359_decimal_constraints/wsdl_d_main.adb

@@ -45,6 +45,10 @@ procedure WSDL_D_Main is
    D    : SOAP.Types.Decimal := 0.0;
    P    : WSDL_D.Price := 12.99;
 
+   Step : constant := (if Standard'Max_Integer_Size >= 128
+                       then 0.000001
+                       else 0.0001);
+
 begin
    H := SOAP.Dispatchers.Callback.Create
      (WSDL_D_Server.HTTP_CB'Access,
@@ -69,7 +73,7 @@ begin
    WSDL_D_Service.Client.Print_Price (P);
 
    for J in 1 .. 15 loop
-      D := (D + 0.000001 * J) * 10;
+      D := (D + Step * J) * 10;
       if D /= SOAP.Types.XSD_Decimal'(SOAP.Types.D (D)).V then
          Text_IO.Put_Line ("Wrong decimal " & D'Img & " convertion");
       end if;