paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 12:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed paszlib compiling in objfpc/delphi mode.

Browse Source 
git-svn-id: trunk@2750 -
This commit is contained in:
yury 2006-03-05 09:48:31 +00:00
parent 5e0ebb6139
commit 03ac7991e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
packages/base/paszlib/gzio.pas
View File

@ -46,7 +46,7 @@ function gzflush (f:gzFile; flush:integer) : integer;
function gzseek (f:gzfile; offset:z_off_t; whence:integer) : z_off_t; function gzseek (f:gzfile; offset:z_off_t; whence:integer) : z_off_t;
function gztell (f:gzfile) : z_off_t; function gztell (f:gzfile) : z_off_t;
function gzclose (f:gzFile) : integer; function gzclose (f:gzFile) : integer;
function gzerror (f:gzFile; var errnum:integer) : string; function gzerror (f:gzFile; var errnum:smallint) : string;
function gzsetparams (f:gzfile; level:integer; strategy:integer) : integer; function gzsetparams (f:gzfile; level:integer; strategy:integer) : integer;
function gzrewind (f:gzFile) : integer; function gzrewind (f:gzFile) : integer;
function gzeof (f:gzfile) : boolean; function gzeof (f:gzfile) : boolean;
@ -1163,7 +1163,7 @@ end;
============================================================================} ============================================================================}
function gzerror (f:gzfile; var errnum:integer) : string; function gzerror (f:gzfile; var errnum:smallint) : string;
var var
m : string; m : string;
s : gz_streamp; s : gz_streamp;