5128eecc9f 2011-02-23 kinaba: /* zutil.c -- target dependent utility functions for the compression library 5128eecc9f 2011-02-23 kinaba: * Copyright (C) 1995-1998 Jean-loup Gailly. 5128eecc9f 2011-02-23 kinaba: * For conditions of distribution and use, see copyright notice in zlib.h 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: /* @(#) $Id$ */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #include "zutil.h" 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: struct internal_state {int dummy;}; /* for buggy compilers */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifndef STDC 5128eecc9f 2011-02-23 kinaba: extern void exit OF((int)); 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: const char *z_errmsg[10] = { 5128eecc9f 2011-02-23 kinaba: "need dictionary", /* Z_NEED_DICT 2 */ 5128eecc9f 2011-02-23 kinaba: "stream end", /* Z_STREAM_END 1 */ 5128eecc9f 2011-02-23 kinaba: "", /* Z_OK 0 */ 5128eecc9f 2011-02-23 kinaba: "file error", /* Z_ERRNO (-1) */ 5128eecc9f 2011-02-23 kinaba: "stream error", /* Z_STREAM_ERROR (-2) */ 5128eecc9f 2011-02-23 kinaba: "data error", /* Z_DATA_ERROR (-3) */ 5128eecc9f 2011-02-23 kinaba: "insufficient memory", /* Z_MEM_ERROR (-4) */ 5128eecc9f 2011-02-23 kinaba: "buffer error", /* Z_BUF_ERROR (-5) */ 5128eecc9f 2011-02-23 kinaba: "incompatible version",/* Z_VERSION_ERROR (-6) */ 5128eecc9f 2011-02-23 kinaba: ""}; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: const char * ZEXPORT zlibVersion() 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: return ZLIB_VERSION; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifdef DEBUG 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: # ifndef verbose 5128eecc9f 2011-02-23 kinaba: # define verbose 0 5128eecc9f 2011-02-23 kinaba: # endif 5128eecc9f 2011-02-23 kinaba: int z_verbose = verbose; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void z_error (m) 5128eecc9f 2011-02-23 kinaba: char *m; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: fprintf(stderr, "%s\n", m); 5128eecc9f 2011-02-23 kinaba: exit(1); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: /* exported to allow conversion of error code to string for compress() and 5128eecc9f 2011-02-23 kinaba: * uncompress() 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: const char * ZEXPORT zError(err) 5128eecc9f 2011-02-23 kinaba: int err; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: return ERR_MSG(err); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifndef HAVE_MEMCPY 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void zmemcpy(dest, source, len) 5128eecc9f 2011-02-23 kinaba: Bytef* dest; 5128eecc9f 2011-02-23 kinaba: const Bytef* source; 5128eecc9f 2011-02-23 kinaba: uInt len; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: if (len == 0) return; 5128eecc9f 2011-02-23 kinaba: do { 5128eecc9f 2011-02-23 kinaba: *dest++ = *source++; /* ??? to be unrolled */ 5128eecc9f 2011-02-23 kinaba: } while (--len != 0); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: int zmemcmp(s1, s2, len) 5128eecc9f 2011-02-23 kinaba: const Bytef* s1; 5128eecc9f 2011-02-23 kinaba: const Bytef* s2; 5128eecc9f 2011-02-23 kinaba: uInt len; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: uInt j; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: for (j = 0; j < len; j++) { 5128eecc9f 2011-02-23 kinaba: if (s1[j] != s2[j]) return 2*(s1[j] > s2[j])-1; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: return 0; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void zmemzero(dest, len) 5128eecc9f 2011-02-23 kinaba: Bytef* dest; 5128eecc9f 2011-02-23 kinaba: uInt len; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: if (len == 0) return; 5128eecc9f 2011-02-23 kinaba: do { 5128eecc9f 2011-02-23 kinaba: *dest++ = 0; /* ??? to be unrolled */ 5128eecc9f 2011-02-23 kinaba: } while (--len != 0); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifdef __TURBOC__ 5128eecc9f 2011-02-23 kinaba: #if (defined( __BORLANDC__) || !defined(SMALL_MEDIUM)) && !defined(__32BIT__) 5128eecc9f 2011-02-23 kinaba: /* Small and medium model in Turbo C are for now limited to near allocation 5128eecc9f 2011-02-23 kinaba: * with reduced MAX_WBITS and MAX_MEM_LEVEL 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: # define MY_ZCALLOC 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: /* Turbo C malloc() does not allow dynamic allocation of 64K bytes 5128eecc9f 2011-02-23 kinaba: * and farmalloc(64K) returns a pointer with an offset of 8, so we 5128eecc9f 2011-02-23 kinaba: * must fix the pointer. Warning: the pointer must be put back to its 5128eecc9f 2011-02-23 kinaba: * original form in order to free it, use zcfree(). 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #define MAX_PTR 10 5128eecc9f 2011-02-23 kinaba: /* 10*64K = 640K */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: local int next_ptr = 0; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: typedef struct ptr_table_s { 5128eecc9f 2011-02-23 kinaba: voidpf org_ptr; 5128eecc9f 2011-02-23 kinaba: voidpf new_ptr; 5128eecc9f 2011-02-23 kinaba: } ptr_table; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: local ptr_table table[MAX_PTR]; 5128eecc9f 2011-02-23 kinaba: /* This table is used to remember the original form of pointers 5128eecc9f 2011-02-23 kinaba: * to large buffers (64K). Such pointers are normalized with a zero offset. 5128eecc9f 2011-02-23 kinaba: * Since MSDOS is not a preemptive multitasking OS, this table is not 5128eecc9f 2011-02-23 kinaba: * protected from concurrent access. This hack doesn't work anyway on 5128eecc9f 2011-02-23 kinaba: * a protected system like OS/2. Use Microsoft C instead. 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: voidpf zcalloc (voidpf opaque, unsigned items, unsigned size) 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: voidpf buf = opaque; /* just to make some compilers happy */ 5128eecc9f 2011-02-23 kinaba: ulg bsize = (ulg)items*size; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: /* If we allocate less than 65520 bytes, we assume that farmalloc 5128eecc9f 2011-02-23 kinaba: * will return a usable pointer which doesn't have to be normalized. 5128eecc9f 2011-02-23 kinaba: */ 5128eecc9f 2011-02-23 kinaba: if (bsize < 65520L) { 5128eecc9f 2011-02-23 kinaba: buf = farmalloc(bsize); 5128eecc9f 2011-02-23 kinaba: if (*(ush*)&buf != 0) return buf; 5128eecc9f 2011-02-23 kinaba: } else { 5128eecc9f 2011-02-23 kinaba: buf = farmalloc(bsize + 16L); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: if (buf == NULL || next_ptr >= MAX_PTR) return NULL; 5128eecc9f 2011-02-23 kinaba: table[next_ptr].org_ptr = buf; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: /* Normalize the pointer to seg:0 */ 5128eecc9f 2011-02-23 kinaba: *((ush*)&buf+1) += ((ush)((uch*)buf-0) + 15) >> 4; 5128eecc9f 2011-02-23 kinaba: *(ush*)&buf = 0; 5128eecc9f 2011-02-23 kinaba: table[next_ptr++].new_ptr = buf; 5128eecc9f 2011-02-23 kinaba: return buf; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void zcfree (voidpf opaque, voidpf ptr) 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: int n; 5128eecc9f 2011-02-23 kinaba: if (*(ush*)&ptr != 0) { /* object < 64K */ 5128eecc9f 2011-02-23 kinaba: farfree(ptr); 5128eecc9f 2011-02-23 kinaba: return; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: /* Find the original pointer */ 5128eecc9f 2011-02-23 kinaba: for (n = 0; n < next_ptr; n++) { 5128eecc9f 2011-02-23 kinaba: if (ptr != table[n].new_ptr) continue; 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: farfree(table[n].org_ptr); 5128eecc9f 2011-02-23 kinaba: while (++n < next_ptr) { 5128eecc9f 2011-02-23 kinaba: table[n-1] = table[n]; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: next_ptr--; 5128eecc9f 2011-02-23 kinaba: return; 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: ptr = opaque; /* just to make some compilers happy */ 5128eecc9f 2011-02-23 kinaba: Assert(0, "zcfree: ptr not found"); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: #endif /* __TURBOC__ */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #if defined(M_I86) && !defined(__32BIT__) 5128eecc9f 2011-02-23 kinaba: /* Microsoft C in 16-bit mode */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: # define MY_ZCALLOC 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #if (!defined(_MSC_VER) || (_MSC_VER <= 600)) 5128eecc9f 2011-02-23 kinaba: # define _halloc halloc 5128eecc9f 2011-02-23 kinaba: # define _hfree hfree 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: voidpf zcalloc (voidpf opaque, unsigned items, unsigned size) 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: if (opaque) opaque = 0; /* to make compiler happy */ 5128eecc9f 2011-02-23 kinaba: return _halloc((long)items, size); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void zcfree (voidpf opaque, voidpf ptr) 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: if (opaque) opaque = 0; /* to make compiler happy */ 5128eecc9f 2011-02-23 kinaba: _hfree(ptr); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #endif /* MSC */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifndef MY_ZCALLOC /* Any system without a special alloc function */ 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #ifndef STDC 5128eecc9f 2011-02-23 kinaba: extern voidp calloc OF((uInt items, uInt size)); 5128eecc9f 2011-02-23 kinaba: extern void free OF((voidpf ptr)); 5128eecc9f 2011-02-23 kinaba: #endif 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: voidpf zcalloc (opaque, items, size) 5128eecc9f 2011-02-23 kinaba: voidpf opaque; 5128eecc9f 2011-02-23 kinaba: unsigned items; 5128eecc9f 2011-02-23 kinaba: unsigned size; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: if (opaque) items += size - size; /* make compiler happy */ 5128eecc9f 2011-02-23 kinaba: return (voidpf)calloc(items, size); 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: void zcfree (opaque, ptr) 5128eecc9f 2011-02-23 kinaba: voidpf opaque; 5128eecc9f 2011-02-23 kinaba: voidpf ptr; 5128eecc9f 2011-02-23 kinaba: { 5128eecc9f 2011-02-23 kinaba: free(ptr); 5128eecc9f 2011-02-23 kinaba: if (opaque) return; /* make compiler happy */ 5128eecc9f 2011-02-23 kinaba: } 5128eecc9f 2011-02-23 kinaba: 5128eecc9f 2011-02-23 kinaba: #endif /* MY_ZCALLOC */