diff options
Diffstat (limited to 'contrib/ada/zlib-streams.ads')
-rw-r--r-- | contrib/ada/zlib-streams.ads | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/ada/zlib-streams.ads b/contrib/ada/zlib-streams.ads index 1d5e904..5c68667 100644 --- a/contrib/ada/zlib-streams.ads +++ b/contrib/ada/zlib-streams.ads | |||
@@ -6,7 +6,7 @@ | |||
6 | -- Open source license information is in the zlib.ads file. -- | 6 | -- Open source license information is in the zlib.ads file. -- |
7 | ---------------------------------------------------------------- | 7 | ---------------------------------------------------------------- |
8 | 8 | ||
9 | -- $Id: zlib-streams.ads,v 1.11 2003/08/12 13:15:31 vagul Exp $ | 9 | -- $Id: zlib-streams.ads,v 1.12 2004/05/31 10:53:40 vagul Exp $ |
10 | 10 | ||
11 | package ZLib.Streams is | 11 | package ZLib.Streams is |
12 | 12 | ||
@@ -77,6 +77,8 @@ package ZLib.Streams is | |||
77 | -- !!! When the Need_Header is False ZLib-Ada is using undocumented | 77 | -- !!! When the Need_Header is False ZLib-Ada is using undocumented |
78 | -- ZLib 1.1.4 functionality to do not create/wait for ZLib headers. | 78 | -- ZLib 1.1.4 functionality to do not create/wait for ZLib headers. |
79 | 79 | ||
80 | function Is_Open (Stream : Stream_Type) return Boolean; | ||
81 | |||
80 | procedure Close (Stream : in out Stream_Type); | 82 | procedure Close (Stream : in out Stream_Type); |
81 | 83 | ||
82 | private | 84 | private |
@@ -109,4 +111,4 @@ private | |||
109 | Writer : Filter_Type; | 111 | Writer : Filter_Type; |
110 | end record; | 112 | end record; |
111 | 113 | ||
112 | end ZLib.Streams; | 114 | end ZLib.Streams; \ No newline at end of file |