← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/extra/amunits/otherlibs/zlib/units/zlib.pas

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/amunits/otherlibs/zlib/units/zlib.pas
17
17
**********************************************************************}
18
18
{
19
19
  History:
20
 
  
 
20
 
21
21
  First version of this unit.
22
22
  17 Jan 2003.
23
 
  
 
23
 
24
24
  Changed cardinal > longword.
25
25
  Changed startcode for unit.
26
26
  12 Feb 2003.
27
 
  
 
27
 
28
28
  nils.sjoholm@mailbox.swipnet.se
29
29
}
30
30
 
86
86
FUNCTION GZ_Close(handle : POINTER) : LONGINT;
87
87
BEGIN
88
88
  ASM
89
 
        MOVE.L  A6,-(A7)
90
 
        MOVEA.L handle,A0
91
 
        MOVEA.L ZLibBase,A6
92
 
        JSR     -042(A6)
93
 
        MOVEA.L (A7)+,A6
94
 
        MOVE.L  D0,@RESULT
 
89
        MOVE.L  A6,-(A7)
 
90
        MOVEA.L handle,A0
 
91
        MOVEA.L ZLibBase,A6
 
92
        JSR     -042(A6)
 
93
        MOVEA.L (A7)+,A6
 
94
        MOVE.L  D0,@RESULT
95
95
  END;
96
96
END;
97
97
 
98
98
FUNCTION GZ_CompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword; strategy : longword; level : longword; VAR poutlen : longword) : LONGINT;
99
99
BEGIN
100
100
  ASM
101
 
        MOVE.L  A6,-(A7)
102
 
        MOVEA.L srcbuf,A0
103
 
        MOVE.L  srclen,D0
104
 
        MOVEA.L destbuf,A1
105
 
        MOVE.L  destlen,D1
106
 
        MOVE.L  strategy,D2
107
 
        MOVE.L  level,D3
108
 
        MOVEA.L poutlen,A2
109
 
        MOVEA.L ZLibBase,A6
110
 
        JSR     -114(A6)
111
 
        MOVEA.L (A7)+,A6
112
 
        MOVE.L  D0,@RESULT
 
101
        MOVE.L  A6,-(A7)
 
102
        MOVEA.L srcbuf,A0
 
103
        MOVE.L  srclen,D0
 
104
        MOVEA.L destbuf,A1
 
105
        MOVE.L  destlen,D1
 
106
        MOVE.L  strategy,D2
 
107
        MOVE.L  level,D3
 
108
        MOVEA.L poutlen,A2
 
109
        MOVEA.L ZLibBase,A6
 
110
        JSR     -114(A6)
 
111
        MOVEA.L (A7)+,A6
 
112
        MOVE.L  D0,@RESULT
113
113
  END;
114
114
END;
115
115
 
116
116
FUNCTION GZ_DecompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword) : LONGINT;
117
117
BEGIN
118
118
  ASM
119
 
        MOVE.L  A6,-(A7)
120
 
        MOVEA.L srcbuf,A0
121
 
        MOVE.L  srclen,D0
122
 
        MOVEA.L destbuf,A1
123
 
        MOVE.L  destlen,D1
124
 
        MOVEA.L ZLibBase,A6
125
 
        JSR     -120(A6)
126
 
        MOVEA.L (A7)+,A6
127
 
        MOVE.L  D0,@RESULT
 
119
        MOVE.L  A6,-(A7)
 
120
        MOVEA.L srcbuf,A0
 
121
        MOVE.L  srclen,D0
 
122
        MOVEA.L destbuf,A1
 
123
        MOVE.L  destlen,D1
 
124
        MOVEA.L ZLibBase,A6
 
125
        JSR     -120(A6)
 
126
        MOVEA.L (A7)+,A6
 
127
        MOVE.L  D0,@RESULT
128
128
  END;
129
129
END;
130
130
 
131
131
FUNCTION GZ_FGetC(handle : POINTER) : pLONGINT;
132
132
BEGIN
133
133
  ASM
134
 
        MOVE.L  A6,-(A7)
135
 
        MOVEA.L handle,A0
136
 
        MOVEA.L ZLibBase,A6
137
 
        JSR     -060(A6)
138
 
        MOVEA.L (A7)+,A6
139
 
        MOVE.L  D0,@RESULT
 
134
        MOVE.L  A6,-(A7)
 
135
        MOVEA.L handle,A0
 
136
        MOVEA.L ZLibBase,A6
 
137
        JSR     -060(A6)
 
138
        MOVEA.L (A7)+,A6
 
139
        MOVE.L  D0,@RESULT
140
140
  END;
141
141
END;
142
142
 
143
143
FUNCTION GZ_FGetS(handle : POINTER; buf : pCHAR; len : longword) : pCHAR;
144
144
BEGIN
145
145
  ASM
146
 
        MOVE.L  A6,-(A7)
147
 
        MOVEA.L handle,A0
148
 
        MOVEA.L buf,A1
149
 
        MOVE.L  len,D0
150
 
        MOVEA.L ZLibBase,A6
151
 
        JSR     -054(A6)
152
 
        MOVEA.L (A7)+,A6
153
 
        MOVE.L  D0,@RESULT
 
146
        MOVE.L  A6,-(A7)
 
147
        MOVEA.L handle,A0
 
148
        MOVEA.L buf,A1
 
149
        MOVE.L  len,D0
 
150
        MOVEA.L ZLibBase,A6
 
151
        JSR     -054(A6)
 
152
        MOVEA.L (A7)+,A6
 
153
        MOVE.L  D0,@RESULT
154
154
  END;
155
155
END;
156
156
 
157
157
FUNCTION GZ_FileLength(handle : POINTER) : longword;
158
158
BEGIN
159
159
  ASM
160
 
        MOVE.L  A6,-(A7)
161
 
        MOVEA.L handle,A0
162
 
        MOVEA.L ZLibBase,A6
163
 
        JSR     -138(A6)
164
 
        MOVEA.L (A7)+,A6
165
 
        MOVE.L  D0,@RESULT
 
160
        MOVE.L  A6,-(A7)
 
161
        MOVEA.L handle,A0
 
162
        MOVEA.L ZLibBase,A6
 
163
        JSR     -138(A6)
 
164
        MOVEA.L (A7)+,A6
 
165
        MOVE.L  D0,@RESULT
166
166
  END;
167
167
END;
168
168
 
169
169
FUNCTION GZ_Open(filename : pCHAR; openmode : longword; strategy : longword; level : longword) : POINTER;
170
170
BEGIN
171
171
  ASM
172
 
        MOVE.L  A6,-(A7)
173
 
        MOVEA.L filename,A0
174
 
        MOVE.L  openmode,D0
175
 
        MOVE.L  strategy,D1
176
 
        MOVE.L  level,D2
177
 
        MOVEA.L ZLibBase,A6
178
 
        JSR     -030(A6)
179
 
        MOVEA.L (A7)+,A6
180
 
        MOVE.L  D0,@RESULT
 
172
        MOVE.L  A6,-(A7)
 
173
        MOVEA.L filename,A0
 
174
        MOVE.L  openmode,D0
 
175
        MOVE.L  strategy,D1
 
176
        MOVE.L  level,D2
 
177
        MOVEA.L ZLibBase,A6
 
178
        JSR     -030(A6)
 
179
        MOVEA.L (A7)+,A6
 
180
        MOVE.L  D0,@RESULT
181
181
  END;
182
182
END;
183
183
 
184
184
FUNCTION GZ_OpenFromFH(fh : LONGINT; openmode : longword; strategy : longword; level : longword) : POINTER;
185
185
BEGIN
186
186
  ASM
187
 
        MOVE.L  A6,-(A7)
188
 
        MOVEA.L fh,A0
189
 
        MOVE.L  openmode,D0
190
 
        MOVE.L  strategy,D1
191
 
        MOVE.L  level,D2
192
 
        MOVEA.L ZLibBase,A6
193
 
        JSR     -036(A6)
194
 
        MOVEA.L (A7)+,A6
195
 
        MOVE.L  D0,@RESULT
 
187
        MOVE.L  A6,-(A7)
 
188
        MOVEA.L fh,A0
 
189
        MOVE.L  openmode,D0
 
190
        MOVE.L  strategy,D1
 
191
        MOVE.L  level,D2
 
192
        MOVEA.L ZLibBase,A6
 
193
        JSR     -036(A6)
 
194
        MOVEA.L (A7)+,A6
 
195
        MOVE.L  D0,@RESULT
196
196
  END;
197
197
END;
198
198
 
199
199
FUNCTION GZ_Read(handle : POINTER; buf : POINTER; len : longword) : LONGINT;
200
200
BEGIN
201
201
  ASM
202
 
        MOVE.L  A6,-(A7)
203
 
        MOVEA.L handle,A0
204
 
        MOVEA.L buf,A1
205
 
        MOVE.L  len,D0
206
 
        MOVEA.L ZLibBase,A6
207
 
        JSR     -048(A6)
208
 
        MOVEA.L (A7)+,A6
209
 
        MOVE.L  D0,@RESULT
 
202
        MOVE.L  A6,-(A7)
 
203
        MOVEA.L handle,A0
 
204
        MOVEA.L buf,A1
 
205
        MOVE.L  len,D0
 
206
        MOVEA.L ZLibBase,A6
 
207
        JSR     -048(A6)
 
208
        MOVEA.L (A7)+,A6
 
209
        MOVE.L  D0,@RESULT
210
210
  END;
211
211
END;
212
212
 
213
213
FUNCTION GZ_Write(handle : POINTER; buf : POINTER; len : longword) : LONGINT;
214
214
BEGIN
215
215
  ASM
216
 
        MOVE.L  A6,-(A7)
217
 
        MOVEA.L handle,A0
218
 
        MOVEA.L buf,A1
219
 
        MOVE.L  len,D0
220
 
        MOVEA.L ZLibBase,A6
221
 
        JSR     -066(A6)
222
 
        MOVEA.L (A7)+,A6
223
 
        MOVE.L  D0,@RESULT
 
216
        MOVE.L  A6,-(A7)
 
217
        MOVEA.L handle,A0
 
218
        MOVEA.L buf,A1
 
219
        MOVE.L  len,D0
 
220
        MOVEA.L ZLibBase,A6
 
221
        JSR     -066(A6)
 
222
        MOVEA.L (A7)+,A6
 
223
        MOVE.L  D0,@RESULT
224
224
  END;
225
225
END;
226
226