diff options
Diffstat (limited to 'gcc/ada/a-coorma.adb')
| -rw-r--r-- | gcc/ada/a-coorma.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/ada/a-coorma.adb b/gcc/ada/a-coorma.adb index 81e0d4eb246..f6823d4f7b2 100644 --- a/gcc/ada/a-coorma.adb +++ b/gcc/ada/a-coorma.adb @@ -962,7 +962,7 @@ package body Ada.Containers.Ordered_Maps is Container : out Map) is function Read_Node - (Stream : access Root_Stream_Type'Class) return Node_Access; + (Stream : not null access Root_Stream_Type'Class) return Node_Access; pragma Inline (Read_Node); procedure Read is @@ -973,7 +973,7 @@ package body Ada.Containers.Ordered_Maps is --------------- function Read_Node - (Stream : access Root_Stream_Type'Class) return Node_Access + (Stream : not null access Root_Stream_Type'Class) return Node_Access is Node : Node_Access := new Node_Type; begin @@ -1206,7 +1206,7 @@ package body Ada.Containers.Ordered_Maps is Container : Map) is procedure Write_Node - (Stream : access Root_Stream_Type'Class; + (Stream : not null access Root_Stream_Type'Class; Node : Node_Access); pragma Inline (Write_Node); @@ -1218,7 +1218,7 @@ package body Ada.Containers.Ordered_Maps is ---------------- procedure Write_Node - (Stream : access Root_Stream_Type'Class; + (Stream : not null access Root_Stream_Type'Class; Node : Node_Access) is begin |