diff options
Diffstat (limited to 'contrib/ada/read.adb')
-rw-r--r-- | contrib/ada/read.adb | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/contrib/ada/read.adb b/contrib/ada/read.adb index 184ea00..1f2efbf 100644 --- a/contrib/ada/read.adb +++ b/contrib/ada/read.adb | |||
@@ -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: read.adb,v 1.7 2003/08/12 12:12:35 vagul Exp $ | 9 | -- $Id: read.adb,v 1.8 2004/05/31 10:53:40 vagul Exp $ |
10 | 10 | ||
11 | -- Test/demo program for the generic read interface. | 11 | -- Test/demo program for the generic read interface. |
12 | 12 | ||
@@ -68,7 +68,11 @@ procedure Read is | |||
68 | -- ZLib.Read | 68 | -- ZLib.Read |
69 | -- reading data from the File_In. | 69 | -- reading data from the File_In. |
70 | 70 | ||
71 | procedure Read is new ZLib.Read (Read, Read_Buffer, Read_First, Read_Last); | 71 | procedure Read is new ZLib.Read |
72 | (Read, | ||
73 | Read_Buffer, | ||
74 | Rest_First => Read_First, | ||
75 | Rest_Last => Read_Last); | ||
72 | 76 | ||
73 | ---------- | 77 | ---------- |
74 | -- Read -- | 78 | -- Read -- |
@@ -103,6 +107,7 @@ procedure Read is | |||
103 | Pack_Size := 0; | 107 | Pack_Size := 0; |
104 | Offset := 1; | 108 | Offset := 1; |
105 | Read_First := Read_Buffer'Last + 1; | 109 | Read_First := Read_Buffer'Last + 1; |
110 | Read_Last := Read_Buffer'Last; | ||
106 | end Reset; | 111 | end Reset; |
107 | 112 | ||
108 | begin | 113 | begin |