Change z_verbose from const to typed const to avoid unreachable code warning

git-svn-id: trunk@29108 -

packages/paszlib/src/zbase.pas

@@ -412,7 +412,7 @@ resourcestring Sneed_dict     = 'need dictionary';
                Sversion_error = 'incompatible version';
 
 const
-  z_verbose = 1;
+  z_verbose : longint = 1;
 
 {$IFDEF ZLIB_DEBUG}
 procedure z_error (m : string);