diff options
-rw-r--r-- | contrib/ada/readme.txt | 2 | ||||
-rw-r--r-- | contrib/ada/test.adb | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/contrib/ada/readme.txt b/contrib/ada/readme.txt index 7f42090..efdd639 100644 --- a/contrib/ada/readme.txt +++ b/contrib/ada/readme.txt | |||
@@ -9,7 +9,7 @@ It provides Ada-style access to the ZLib C library. | |||
9 | Here are the main changes since ZLib.Ada 1.2: | 9 | Here are the main changes since ZLib.Ada 1.2: |
10 | 10 | ||
11 | - Attention: ZLib.Read generic routine have a initialization requirement | 11 | - Attention: ZLib.Read generic routine have a initialization requirement |
12 | for Read_Last parameter now. It is a bit incompartible with previous version, | 12 | for Read_Last parameter now. It is a bit incompatible with previous version, |
13 | but extends functionality, we could use new parameters Allow_Read_Some and | 13 | but extends functionality, we could use new parameters Allow_Read_Some and |
14 | Flush now. | 14 | Flush now. |
15 | 15 | ||
diff --git a/contrib/ada/test.adb b/contrib/ada/test.adb index 90773ac..8b35031 100644 --- a/contrib/ada/test.adb +++ b/contrib/ada/test.adb | |||
@@ -65,12 +65,12 @@ procedure Test is | |||
65 | Time_Stamp : Ada.Calendar.Time; | 65 | Time_Stamp : Ada.Calendar.Time; |
66 | 66 | ||
67 | procedure Generate_File; | 67 | procedure Generate_File; |
68 | -- Generate file of spetsified size with some random data. | 68 | -- Generate file of specified size with some random data. |
69 | -- The random data is repeatable, for the good compression. | 69 | -- The random data is repeatable, for the good compression. |
70 | 70 | ||
71 | procedure Compare_Streams | 71 | procedure Compare_Streams |
72 | (Left, Right : in out Root_Stream_Type'Class); | 72 | (Left, Right : in out Root_Stream_Type'Class); |
73 | -- The procedure compearing data in 2 streams. | 73 | -- The procedure comparing data in 2 streams. |
74 | -- It is for compare data before and after compression/decompression. | 74 | -- It is for compare data before and after compression/decompression. |
75 | 75 | ||
76 | procedure Compare_Files (Left, Right : String); | 76 | procedure Compare_Files (Left, Right : String); |