CVS difference for arm/source/pre_io.mss

Differences between 1.71 and version 1.72
Log of other versions for file arm/source/pre_io.mss

--- arm/source/pre_io.mss	2015/04/03 04:12:42	1.71
+++ arm/source/pre_io.mss	2017/12/20 04:30:56	1.72
@@ -1,9 +1,9 @@
 @Part(predefio, Root="ada.mss")
 
-@Comment{$Date: 2015/04/03 04:12:42 $}
+@Comment{$Date: 2017/12/20 04:30:56 $}
 
 @Comment{$Source: e:\\cvsroot/ARM/Source/pre_io.mss,v $}
-@Comment{$Revision: 1.71 $}
+@Comment{$Revision: 1.72 $}
 @LabeledClause{Input-Output}
 @begin{Intro}
 @ChgRef{Version=[2],Kind=[Revised],ARef=[AI95-00285-01]}
@@ -1302,6 +1302,7 @@
       @key[procedure] @AdaSubDefn{Get}(Item  : @key[out] Num;
                     Width : @key[in]  Field := 0);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Put}(File  : @key[in] File_Type;
                     Item  : @key[in] Num;
                     Width : @key[in] Field := Default_Width;
@@ -1311,10 +1312,12 @@
                     Base  : @key[in] Number_Base := Default_Base);
       @key[procedure] @AdaSubDefn{Get}(From : @key[in]  String;
                     Item : @key[out] Num;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in] Num;
-                    Base : @key[in] Number_Base := Default_Base);
+                    Base : @key[in] Number_Base := Default_Base)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
 
    @key[end] Integer_IO;
 
@@ -1331,6 +1334,7 @@
       @key[procedure] @AdaSubDefn{Get}(Item  : @key[out] Num;
                     Width : @key[in]  Field := 0);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Put}(File  : @key[in] File_Type;
                     Item  : @key[in] Num;
                     Width : @key[in] Field := Default_Width;
@@ -1340,10 +1344,12 @@
                     Base  : @key[in] Number_Base := Default_Base);
       @key[procedure] @AdaSubDefn{Get}(From : @key[in]  String;
                     Item : @key[out] Num;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in] Num;
-                    Base : @key[in] Number_Base := Default_Base);
+                    Base : @key[in] Number_Base := Default_Base)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
 
    @key[end] Modular_IO;
 
@@ -1373,13 +1379,16 @@
                     Aft  : @key[in] Field := Default_Aft;
                     Exp  : @key[in] Field := Default_Exp);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Get}(From : @key[in] String;
                     Item : @key[out] Num;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in] Num;
                     Aft  : @key[in] Field := Default_Aft;
-                    Exp  : @key[in] Field := Default_Exp);
+                    Exp  : @key[in] Field := Default_Exp)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
    @key[end] Float_IO;
 
    @key[generic]
@@ -1406,13 +1415,16 @@
                     Aft  : @key[in] Field := Default_Aft;
                     Exp  : @key[in] Field := Default_Exp);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Get}(From : @key[in]  String;
                     Item : @key[out] Num;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in] Num;
                     Aft  : @key[in] Field := Default_Aft;
-                    Exp  : @key[in] Field := Default_Exp);
+                    Exp  : @key[in] Field := Default_Exp)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
    @key[end] Fixed_IO;
 
    @key[generic]
@@ -1439,13 +1451,16 @@
                     Aft  : @key[in] Field := Default_Aft;
                     Exp  : @key[in] Field := Default_Exp);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Get}(From : @key[in]  String;
                     Item : @key[out] Num;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in] Num;
                     Aft  : @key[in] Field := Default_Aft;
-                    Exp  : @key[in] Field := Default_Exp);
+                    Exp  : @key[in] Field := Default_Exp)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
    @key[end] Decimal_IO;
 
    --@RI{ Generic package for Input-Output of Enumeration Types}
@@ -1469,12 +1484,15 @@
                     Width : @key[in] Field    := Default_Width;
                     Set   : @key[in] Type_Set := Default_Setting);
 
+@ChgRef{Version=[5],Kind=[Revised],ARef=[AI12-0241-1]}
       @key[procedure] @AdaSubDefn{Get}(From : @key[in]  String;
                     Item : @key[out] Enum;
-                    Last : @key[out] Positive);
+                    Last : @key[out] Positive)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
       @key[procedure] @AdaSubDefn{Put}(To   : @key[out] String;
                     Item : @key[in]  Enum;
-                    Set  : @key[in]  Type_Set := Default_Setting);
+                    Set  : @key[in]  Type_Set := Default_Setting)@Chg{Version=[5],New=[
+         @key[with] Nonblocking],Old=[]};
    @key[end] Enumeration_IO;
 
 @keepnext@;--@RI{ Exceptions}

Questions? Ask the ACAA Technical Agent