summaryrefslogtreecommitdiff
path: root/contrib/ada/read.adb
diff options
context:
space:
mode:
Diffstat (limited to 'contrib/ada/read.adb')
-rw-r--r--contrib/ada/read.adb9
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
108begin 113begin