55
66/* @(#) $Id$ */
77
8- #if defined( __MVS__ ) /* pcg */
9- /* MVS control section (CSECT) names default to the file name and cannot
10- match any extern function name in the file. This only applies to the
11- CSECT compiler option. Without a csect name, when maintenance is
12- applied to an MVS program the newly introduced csect is ordered ahead
13- of the previos csects. With csect names, the new csect replaces the
14- old csect. So without csect names, as maintenance is applied
15- throughout the life of the executable, the executable size
16- continually increases--not a good thing.
17-
18- These files required the pragma since they contained external function
19- names that matched the file names, which is the default csect name
20- generated by the compiler with the csect option. You cannot have the
21- same externally visible name defined for two different entities */
22- #pragma csect( CODE, "adler32C" )
23- #pragma csect( STATIC, "adler32S" )
24- #pragma csect( TEST, "adler32T" )
25- #endif /* __MVS__ */
26-
27- #define ZLIB_INTERNAL /* pcg */
28- #if defined( INC_ALL )
29- #include "zutil.h"
30- #else
31- #include "zlib/zutil.h"
32- #endif /* Compiler-specific includes */
33-
34- #if defined( USE_COMPRESSION ) && !defined( HAS_ZLIB )
35-
36- local uLong adler32_combine_ OF ( (uLong adler1 , uLong adler2 , z_off64_t len2 ));
8+ #if defined( __MVS__ ) /* pcg */
9+ /* MVS control section (CSECT) names default to the file name and cannot
10+ match any extern function name in the file. This only applies to the
11+ CSECT compiler option. Without a csect name, when maintenance is
12+ applied to an MVS program the newly introduced csect is ordered ahead
13+ of the previos csects. With csect names, the new csect replaces the
14+ old csect. So without csect names, as maintenance is applied
15+ throughout the life of the executable, the executable size
16+ continually increases--not a good thing.
17+
18+ These files required the pragma since they contained external function
19+ names that matched the file names, which is the default csect name
20+ generated by the compiler with the csect option. You cannot have the
21+ same externally visible name defined for two different entities */
22+ #pragma csect( CODE, "adler32C" )
23+ #pragma csect( STATIC, "adler32S" )
24+ #pragma csect( TEST, "adler32T" )
25+ #endif /* __MVS__ */
26+
27+ #define ZLIB_INTERNAL /* pcg */
28+ #if defined( INC_ALL ) /* pcg */
29+ #include "zutil.h"
30+ #else
31+ #include "zlib/zutil.h"
32+ #endif /* Compiler-specific includes */
33+
34+ #if defined( USE_COMPRESSION ) && !defined( HAS_ZLIB ) /* pcg */
3735
3836#define BASE 65521U /* largest prime smaller than 65536 */
3937#define NMAX 5552
@@ -86,8 +84,7 @@ local uLong adler32_combine_ OF((uLong adler1, uLong adler2, z_off64_t len2));
8684#endif
8785
8886/* ========================================================================= */
89- uLong ZEXPORT adler32_z ( uLong adler , const Bytef * buf , z_size_t len ) /* pcg */
90- {
87+ uLong ZEXPORT adler32_z (uLong adler , const Bytef * buf , z_size_t len ) {
9188 unsigned long sum2 ;
9289 unsigned n ;
9390
@@ -154,14 +151,12 @@ uLong ZEXPORT adler32_z( uLong adler, const Bytef *buf, z_size_t len ) /* pcg */
154151}
155152
156153/* ========================================================================= */
157- uLong ZEXPORT adler32 ( uLong adler , const Bytef * buf , uInt len ) /* pcg */
158- {
154+ uLong ZEXPORT adler32 (uLong adler , const Bytef * buf , uInt len ) {
159155 return adler32_z (adler , buf , len );
160156}
161157
162158/* ========================================================================= */
163- local uLong adler32_combine_ ( uLong adler1 , uLong adler2 , z_off64_t len2 ) /* pcg */
164- {
159+ local uLong adler32_combine_ (uLong adler1 , uLong adler2 , z_off64_t len2 ) {
165160 unsigned long sum1 ;
166161 unsigned long sum2 ;
167162 unsigned rem ;
@@ -186,13 +181,12 @@ local uLong adler32_combine_( uLong adler1, uLong adler2, z_off64_t len2 ) /* p
186181}
187182
188183/* ========================================================================= */
189- uLong ZEXPORT adler32_combine ( uLong adler1 , uLong adler2 , z_off_t len2 ) /* pcg */
190- {
184+ uLong ZEXPORT adler32_combine (uLong adler1 , uLong adler2 , z_off_t len2 ) {
191185 return adler32_combine_ (adler1 , adler2 , len2 );
192186}
193187
194- uLong ZEXPORT adler32_combine64 ( uLong adler1 , uLong adler2 , z_off64_t len2 ) /* pcg */
195- {
188+ uLong ZEXPORT adler32_combine64 (uLong adler1 , uLong adler2 , z_off64_t len2 ) {
196189 return adler32_combine_ (adler1 , adler2 , len2 );
197190}
191+
198192#endif /* USE_COMPRESSION && !HAS_ZLIB */
0 commit comments