aboutsummaryrefslogtreecommitdiff
path: root/contrib/ada
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/ada')
-rw-r--r--contrib/ada/zlib-streams.ads6
-rw-r--r--contrib/ada/zlib-thin.ads2
2 files changed, 4 insertions, 4 deletions
diff --git a/contrib/ada/zlib-streams.ads b/contrib/ada/zlib-streams.ads
index f0193c6..8e26cd4 100644
--- a/contrib/ada/zlib-streams.ads
+++ b/contrib/ada/zlib-streams.ads
@@ -31,7 +31,7 @@ package ZLib.Streams is
31 Mode : in Flush_Mode := Sync_Flush); 31 Mode : in Flush_Mode := Sync_Flush);
32 -- Flush the written data to the back stream, 32 -- Flush the written data to the back stream,
33 -- all data placed to the compressor is flushing to the Back stream. 33 -- all data placed to the compressor is flushing to the Back stream.
34 -- Should not be used untill necessary, becouse it is decreasing 34 -- Should not be used until necessary, because it is decreasing
35 -- compression. 35 -- compression.
36 36
37 function Read_Total_In (Stream : in Stream_Type) return Count; 37 function Read_Total_In (Stream : in Stream_Type) return Count;
@@ -97,13 +97,13 @@ private
97 Rest_Last : Stream_Element_Offset; 97 Rest_Last : Stream_Element_Offset;
98 -- Buffer for Read operation. 98 -- Buffer for Read operation.
99 -- We need to have this buffer in the record 99 -- We need to have this buffer in the record
100 -- becouse not all read data from back stream 100 -- because not all read data from back stream
101 -- could be processed during the read operation. 101 -- could be processed during the read operation.
102 102
103 Buffer_Size : Stream_Element_Offset; 103 Buffer_Size : Stream_Element_Offset;
104 -- Buffer size for write operation. 104 -- Buffer size for write operation.
105 -- We do not need to have this buffer 105 -- We do not need to have this buffer
106 -- in the record becouse all data could be 106 -- in the record because all data could be
107 -- processed in the write operation. 107 -- processed in the write operation.
108 108
109 Back : Stream_Access; 109 Back : Stream_Access;
diff --git a/contrib/ada/zlib-thin.ads b/contrib/ada/zlib-thin.ads
index d4407eb..810173c 100644
--- a/contrib/ada/zlib-thin.ads
+++ b/contrib/ada/zlib-thin.ads
@@ -436,7 +436,7 @@ private
436 436
437 pragma Import (C, inflateBackInit, "inflateBackInit_"); 437 pragma Import (C, inflateBackInit, "inflateBackInit_");
438 438
439 -- I stopped binding the inflateBack routines, becouse realize that 439 -- I stopped binding the inflateBack routines, because realize that
440 -- it does not support zlib and gzip headers for now, and have no 440 -- it does not support zlib and gzip headers for now, and have no
441 -- symmetric deflateBack routines. 441 -- symmetric deflateBack routines.
442 -- ZLib-Ada is symmetric regarding deflate/inflate data transformation 442 -- ZLib-Ada is symmetric regarding deflate/inflate data transformation