Artifact 2109a9eb71192ab08797bc18d39142a7c13dfd42:
0000: 2f 2a 20 7a 75 74 69 6c 2e 63 20 2d 2d 20 74 61 /* zutil.c -- ta
0010: 72 67 65 74 20 64 65 70 65 6e 64 65 6e 74 20 75 rget dependent u
0020: 74 69 6c 69 74 79 20 66 75 6e 63 74 69 6f 6e 73 tility functions
0030: 20 66 6f 72 20 74 68 65 20 63 6f 6d 70 72 65 73 for the compres
0040: 73 69 6f 6e 20 6c 69 62 72 61 72 79 0a 20 2a 20 sion library. *
0050: 43 6f 70 79 72 69 67 68 74 20 28 43 29 20 31 39 Copyright (C) 19
0060: 39 35 2d 31 39 39 38 20 4a 65 61 6e 2d 6c 6f 75 95-1998 Jean-lou
0070: 70 20 47 61 69 6c 6c 79 2e 0a 20 2a 20 46 6f 72 p Gailly.. * For
0080: 20 63 6f 6e 64 69 74 69 6f 6e 73 20 6f 66 20 64 conditions of d
0090: 69 73 74 72 69 62 75 74 69 6f 6e 20 61 6e 64 20 istribution and
00a0: 75 73 65 2c 20 73 65 65 20 63 6f 70 79 72 69 67 use, see copyrig
00b0: 68 74 20 6e 6f 74 69 63 65 20 69 6e 20 7a 6c 69 ht notice in zli
00c0: 62 2e 68 20 0a 20 2a 2f 0a 0a 2f 2a 20 40 28 23 b.h . */../* @(#
00d0: 29 20 24 49 64 24 20 2a 2f 0a 0a 23 69 6e 63 6c ) $Id$ */..#incl
00e0: 75 64 65 20 22 7a 75 74 69 6c 2e 68 22 0a 0a 73 ude "zutil.h"..s
00f0: 74 72 75 63 74 20 69 6e 74 65 72 6e 61 6c 5f 73 truct internal_s
0100: 74 61 74 65 20 20 20 20 20 20 7b 69 6e 74 20 64 tate {int d
0110: 75 6d 6d 79 3b 7d 3b 20 2f 2a 20 66 6f 72 20 62 ummy;}; /* for b
0120: 75 67 67 79 20 63 6f 6d 70 69 6c 65 72 73 20 2a uggy compilers *
0130: 2f 0a 0a 23 69 66 6e 64 65 66 20 53 54 44 43 0a /..#ifndef STDC.
0140: 65 78 74 65 72 6e 20 76 6f 69 64 20 65 78 69 74 extern void exit
0150: 20 4f 46 28 28 69 6e 74 29 29 3b 0a 23 65 6e 64 OF((int));.#end
0160: 69 66 0a 0a 63 6f 6e 73 74 20 63 68 61 72 20 2a if..const char *
0170: 7a 5f 65 72 72 6d 73 67 5b 31 30 5d 20 3d 20 7b z_errmsg[10] = {
0180: 0a 22 6e 65 65 64 20 64 69 63 74 69 6f 6e 61 72 ."need dictionar
0190: 79 22 2c 20 20 20 20 20 2f 2a 20 5a 5f 4e 45 45 y", /* Z_NEE
01a0: 44 5f 44 49 43 54 20 20 20 20 20 20 20 32 20 20 D_DICT 2
01b0: 2a 2f 0a 22 73 74 72 65 61 6d 20 65 6e 64 22 2c */."stream end",
01c0: 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a 5f 53 /* Z_S
01d0: 54 52 45 41 4d 5f 45 4e 44 20 20 20 20 20 20 31 TREAM_END 1
01e0: 20 20 2a 2f 0a 22 22 2c 20 20 20 20 20 20 20 20 */."",
01f0: 20 20 20 20 20 20 20 20 20 20 20 20 2f 2a 20 5a /* Z
0200: 5f 4f 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 _OK
0210: 20 30 20 20 2a 2f 0a 22 66 69 6c 65 20 65 72 72 0 */."file err
0220: 6f 72 22 2c 20 20 20 20 20 20 20 20 20 20 2f 2a or", /*
0230: 20 5a 5f 45 52 52 4e 4f 20 20 20 20 20 20 20 20 Z_ERRNO
0240: 20 28 2d 31 29 20 2a 2f 0a 22 73 74 72 65 61 6d (-1) */."stream
0250: 20 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 20 error",
0260: 2f 2a 20 5a 5f 53 54 52 45 41 4d 5f 45 52 52 4f /* Z_STREAM_ERRO
0270: 52 20 20 28 2d 32 29 20 2a 2f 0a 22 64 61 74 61 R (-2) */."data
0280: 20 65 72 72 6f 72 22 2c 20 20 20 20 20 20 20 20 error",
0290: 20 20 2f 2a 20 5a 5f 44 41 54 41 5f 45 52 52 4f /* Z_DATA_ERRO
02a0: 52 20 20 20 20 28 2d 33 29 20 2a 2f 0a 22 69 6e R (-3) */."in
02b0: 73 75 66 66 69 63 69 65 6e 74 20 6d 65 6d 6f 72 sufficient memor
02c0: 79 22 2c 20 2f 2a 20 5a 5f 4d 45 4d 5f 45 52 52 y", /* Z_MEM_ERR
02d0: 4f 52 20 20 20 20 20 28 2d 34 29 20 2a 2f 0a 22 OR (-4) */."
02e0: 62 75 66 66 65 72 20 65 72 72 6f 72 22 2c 20 20 buffer error",
02f0: 20 20 20 20 20 20 2f 2a 20 5a 5f 42 55 46 5f 45 /* Z_BUF_E
0300: 52 52 4f 52 20 20 20 20 20 28 2d 35 29 20 2a 2f RROR (-5) */
0310: 0a 22 69 6e 63 6f 6d 70 61 74 69 62 6c 65 20 76 ."incompatible v
0320: 65 72 73 69 6f 6e 22 2c 2f 2a 20 5a 5f 56 45 52 ersion",/* Z_VER
0330: 53 49 4f 4e 5f 45 52 52 4f 52 20 28 2d 36 29 20 SION_ERROR (-6)
0340: 2a 2f 0a 22 22 7d 3b 0a 0a 0a 63 6f 6e 73 74 20 */.""};...const
0350: 63 68 61 72 20 2a 20 5a 45 58 50 4f 52 54 20 7a char * ZEXPORT z
0360: 6c 69 62 56 65 72 73 69 6f 6e 28 29 0a 7b 0a 20 libVersion().{.
0370: 20 20 20 72 65 74 75 72 6e 20 5a 4c 49 42 5f 56 return ZLIB_V
0380: 45 52 53 49 4f 4e 3b 0a 7d 0a 0a 23 69 66 64 65 ERSION;.}..#ifde
0390: 66 20 44 45 42 55 47 0a 0a 23 20 20 69 66 6e 64 f DEBUG..# ifnd
03a0: 65 66 20 76 65 72 62 6f 73 65 0a 23 20 20 20 20 ef verbose.#
03b0: 64 65 66 69 6e 65 20 76 65 72 62 6f 73 65 20 30 define verbose 0
03c0: 0a 23 20 20 65 6e 64 69 66 0a 69 6e 74 20 7a 5f .# endif.int z_
03d0: 76 65 72 62 6f 73 65 20 3d 20 76 65 72 62 6f 73 verbose = verbos
03e0: 65 3b 0a 0a 76 6f 69 64 20 7a 5f 65 72 72 6f 72 e;..void z_error
03f0: 20 28 6d 29 0a 20 20 20 20 63 68 61 72 20 2a 6d (m). char *m
0400: 3b 0a 7b 0a 20 20 20 20 66 70 72 69 6e 74 66 28 ;.{. fprintf(
0410: 73 74 64 65 72 72 2c 20 22 25 73 5c 6e 22 2c 20 stderr, "%s\n",
0420: 6d 29 3b 0a 20 20 20 20 65 78 69 74 28 31 29 3b m);. exit(1);
0430: 0a 7d 0a 23 65 6e 64 69 66 0a 0a 2f 2a 20 65 78 .}.#endif../* ex
0440: 70 6f 72 74 65 64 20 74 6f 20 61 6c 6c 6f 77 20 ported to allow
0450: 63 6f 6e 76 65 72 73 69 6f 6e 20 6f 66 20 65 72 conversion of er
0460: 72 6f 72 20 63 6f 64 65 20 74 6f 20 73 74 72 69 ror code to stri
0470: 6e 67 20 66 6f 72 20 63 6f 6d 70 72 65 73 73 28 ng for compress(
0480: 29 20 61 6e 64 0a 20 2a 20 75 6e 63 6f 6d 70 72 ) and. * uncompr
0490: 65 73 73 28 29 0a 20 2a 2f 0a 63 6f 6e 73 74 20 ess(). */.const
04a0: 63 68 61 72 20 2a 20 5a 45 58 50 4f 52 54 20 7a char * ZEXPORT z
04b0: 45 72 72 6f 72 28 65 72 72 29 0a 20 20 20 20 69 Error(err). i
04c0: 6e 74 20 65 72 72 3b 0a 7b 0a 20 20 20 20 72 65 nt err;.{. re
04d0: 74 75 72 6e 20 45 52 52 5f 4d 53 47 28 65 72 72 turn ERR_MSG(err
04e0: 29 3b 0a 7d 0a 0a 0a 23 69 66 6e 64 65 66 20 48 );.}...#ifndef H
04f0: 41 56 45 5f 4d 45 4d 43 50 59 0a 0a 76 6f 69 64 AVE_MEMCPY..void
0500: 20 7a 6d 65 6d 63 70 79 28 64 65 73 74 2c 20 73 zmemcpy(dest, s
0510: 6f 75 72 63 65 2c 20 6c 65 6e 29 0a 20 20 20 20 ource, len).
0520: 42 79 74 65 66 2a 20 64 65 73 74 3b 0a 20 20 20 Bytef* dest;.
0530: 20 63 6f 6e 73 74 20 42 79 74 65 66 2a 20 73 6f const Bytef* so
0540: 75 72 63 65 3b 0a 20 20 20 20 75 49 6e 74 20 20 urce;. uInt
0550: 6c 65 6e 3b 0a 7b 0a 20 20 20 20 69 66 20 28 6c len;.{. if (l
0560: 65 6e 20 3d 3d 20 30 29 20 72 65 74 75 72 6e 3b en == 0) return;
0570: 0a 20 20 20 20 64 6f 20 7b 0a 20 20 20 20 20 20 . do {.
0580: 20 20 2a 64 65 73 74 2b 2b 20 3d 20 2a 73 6f 75 *dest++ = *sou
0590: 72 63 65 2b 2b 3b 20 2f 2a 20 3f 3f 3f 20 74 6f rce++; /* ??? to
05a0: 20 62 65 20 75 6e 72 6f 6c 6c 65 64 20 2a 2f 0a be unrolled */.
05b0: 20 20 20 20 7d 20 77 68 69 6c 65 20 28 2d 2d 6c } while (--l
05c0: 65 6e 20 21 3d 20 30 29 3b 0a 7d 0a 0a 69 6e 74 en != 0);.}..int
05d0: 20 7a 6d 65 6d 63 6d 70 28 73 31 2c 20 73 32 2c zmemcmp(s1, s2,
05e0: 20 6c 65 6e 29 0a 20 20 20 20 63 6f 6e 73 74 20 len). const
05f0: 42 79 74 65 66 2a 20 73 31 3b 0a 20 20 20 20 63 Bytef* s1;. c
0600: 6f 6e 73 74 20 42 79 74 65 66 2a 20 73 32 3b 0a onst Bytef* s2;.
0610: 20 20 20 20 75 49 6e 74 20 20 6c 65 6e 3b 0a 7b uInt len;.{
0620: 0a 20 20 20 20 75 49 6e 74 20 6a 3b 0a 0a 20 20 . uInt j;..
0630: 20 20 66 6f 72 20 28 6a 20 3d 20 30 3b 20 6a 20 for (j = 0; j
0640: 3c 20 6c 65 6e 3b 20 6a 2b 2b 29 20 7b 0a 20 20 < len; j++) {.
0650: 20 20 20 20 20 20 69 66 20 28 73 31 5b 6a 5d 20 if (s1[j]
0660: 21 3d 20 73 32 5b 6a 5d 29 20 72 65 74 75 72 6e != s2[j]) return
0670: 20 32 2a 28 73 31 5b 6a 5d 20 3e 20 73 32 5b 6a 2*(s1[j] > s2[j
0680: 5d 29 2d 31 3b 0a 20 20 20 20 7d 0a 20 20 20 20 ])-1;. }.
0690: 72 65 74 75 72 6e 20 30 3b 0a 7d 0a 0a 76 6f 69 return 0;.}..voi
06a0: 64 20 7a 6d 65 6d 7a 65 72 6f 28 64 65 73 74 2c d zmemzero(dest,
06b0: 20 6c 65 6e 29 0a 20 20 20 20 42 79 74 65 66 2a len). Bytef*
06c0: 20 64 65 73 74 3b 0a 20 20 20 20 75 49 6e 74 20 dest;. uInt
06d0: 20 6c 65 6e 3b 0a 7b 0a 20 20 20 20 69 66 20 28 len;.{. if (
06e0: 6c 65 6e 20 3d 3d 20 30 29 20 72 65 74 75 72 6e len == 0) return
06f0: 3b 0a 20 20 20 20 64 6f 20 7b 0a 20 20 20 20 20 ;. do {.
0700: 20 20 20 2a 64 65 73 74 2b 2b 20 3d 20 30 3b 20 *dest++ = 0;
0710: 20 2f 2a 20 3f 3f 3f 20 74 6f 20 62 65 20 75 6e /* ??? to be un
0720: 72 6f 6c 6c 65 64 20 2a 2f 0a 20 20 20 20 7d 20 rolled */. }
0730: 77 68 69 6c 65 20 28 2d 2d 6c 65 6e 20 21 3d 20 while (--len !=
0740: 30 29 3b 0a 7d 0a 23 65 6e 64 69 66 0a 0a 23 69 0);.}.#endif..#i
0750: 66 64 65 66 20 5f 5f 54 55 52 42 4f 43 5f 5f 0a fdef __TURBOC__.
0760: 23 69 66 20 28 64 65 66 69 6e 65 64 28 20 5f 5f #if (defined( __
0770: 42 4f 52 4c 41 4e 44 43 5f 5f 29 20 7c 7c 20 21 BORLANDC__) || !
0780: 64 65 66 69 6e 65 64 28 53 4d 41 4c 4c 5f 4d 45 defined(SMALL_ME
0790: 44 49 55 4d 29 29 20 26 26 20 21 64 65 66 69 6e DIUM)) && !defin
07a0: 65 64 28 5f 5f 33 32 42 49 54 5f 5f 29 0a 2f 2a ed(__32BIT__)./*
07b0: 20 53 6d 61 6c 6c 20 61 6e 64 20 6d 65 64 69 75 Small and mediu
07c0: 6d 20 6d 6f 64 65 6c 20 69 6e 20 54 75 72 62 6f m model in Turbo
07d0: 20 43 20 61 72 65 20 66 6f 72 20 6e 6f 77 20 6c C are for now l
07e0: 69 6d 69 74 65 64 20 74 6f 20 6e 65 61 72 20 61 imited to near a
07f0: 6c 6c 6f 63 61 74 69 6f 6e 0a 20 2a 20 77 69 74 llocation. * wit
0800: 68 20 72 65 64 75 63 65 64 20 4d 41 58 5f 57 42 h reduced MAX_WB
0810: 49 54 53 20 61 6e 64 20 4d 41 58 5f 4d 45 4d 5f ITS and MAX_MEM_
0820: 4c 45 56 45 4c 0a 20 2a 2f 0a 23 20 20 64 65 66 LEVEL. */.# def
0830: 69 6e 65 20 4d 59 5f 5a 43 41 4c 4c 4f 43 0a 0a ine MY_ZCALLOC..
0840: 2f 2a 20 54 75 72 62 6f 20 43 20 6d 61 6c 6c 6f /* Turbo C mallo
0850: 63 28 29 20 64 6f 65 73 20 6e 6f 74 20 61 6c 6c c() does not all
0860: 6f 77 20 64 79 6e 61 6d 69 63 20 61 6c 6c 6f 63 ow dynamic alloc
0870: 61 74 69 6f 6e 20 6f 66 20 36 34 4b 20 62 79 74 ation of 64K byt
0880: 65 73 0a 20 2a 20 61 6e 64 20 66 61 72 6d 61 6c es. * and farmal
0890: 6c 6f 63 28 36 34 4b 29 20 72 65 74 75 72 6e 73 loc(64K) returns
08a0: 20 61 20 70 6f 69 6e 74 65 72 20 77 69 74 68 20 a pointer with
08b0: 61 6e 20 6f 66 66 73 65 74 20 6f 66 20 38 2c 20 an offset of 8,
08c0: 73 6f 20 77 65 0a 20 2a 20 6d 75 73 74 20 66 69 so we. * must fi
08d0: 78 20 74 68 65 20 70 6f 69 6e 74 65 72 2e 20 57 x the pointer. W
08e0: 61 72 6e 69 6e 67 3a 20 74 68 65 20 70 6f 69 6e arning: the poin
08f0: 74 65 72 20 6d 75 73 74 20 62 65 20 70 75 74 20 ter must be put
0900: 62 61 63 6b 20 74 6f 20 69 74 73 0a 20 2a 20 6f back to its. * o
0910: 72 69 67 69 6e 61 6c 20 66 6f 72 6d 20 69 6e 20 riginal form in
0920: 6f 72 64 65 72 20 74 6f 20 66 72 65 65 20 69 74 order to free it
0930: 2c 20 75 73 65 20 7a 63 66 72 65 65 28 29 2e 0a , use zcfree()..
0940: 20 2a 2f 0a 0a 23 64 65 66 69 6e 65 20 4d 41 58 */..#define MAX
0950: 5f 50 54 52 20 31 30 0a 2f 2a 20 31 30 2a 36 34 _PTR 10./* 10*64
0960: 4b 20 3d 20 36 34 30 4b 20 2a 2f 0a 0a 6c 6f 63 K = 640K */..loc
0970: 61 6c 20 69 6e 74 20 6e 65 78 74 5f 70 74 72 20 al int next_ptr
0980: 3d 20 30 3b 0a 0a 74 79 70 65 64 65 66 20 73 74 = 0;..typedef st
0990: 72 75 63 74 20 70 74 72 5f 74 61 62 6c 65 5f 73 ruct ptr_table_s
09a0: 20 7b 0a 20 20 20 20 76 6f 69 64 70 66 20 6f 72 {. voidpf or
09b0: 67 5f 70 74 72 3b 0a 20 20 20 20 76 6f 69 64 70 g_ptr;. voidp
09c0: 66 20 6e 65 77 5f 70 74 72 3b 0a 7d 20 70 74 72 f new_ptr;.} ptr
09d0: 5f 74 61 62 6c 65 3b 0a 0a 6c 6f 63 61 6c 20 70 _table;..local p
09e0: 74 72 5f 74 61 62 6c 65 20 74 61 62 6c 65 5b 4d tr_table table[M
09f0: 41 58 5f 50 54 52 5d 3b 0a 2f 2a 20 54 68 69 73 AX_PTR];./* This
0a00: 20 74 61 62 6c 65 20 69 73 20 75 73 65 64 20 74 table is used t
0a10: 6f 20 72 65 6d 65 6d 62 65 72 20 74 68 65 20 6f o remember the o
0a20: 72 69 67 69 6e 61 6c 20 66 6f 72 6d 20 6f 66 20 riginal form of
0a30: 70 6f 69 6e 74 65 72 73 0a 20 2a 20 74 6f 20 6c pointers. * to l
0a40: 61 72 67 65 20 62 75 66 66 65 72 73 20 28 36 34 arge buffers (64
0a50: 4b 29 2e 20 53 75 63 68 20 70 6f 69 6e 74 65 72 K). Such pointer
0a60: 73 20 61 72 65 20 6e 6f 72 6d 61 6c 69 7a 65 64 s are normalized
0a70: 20 77 69 74 68 20 61 20 7a 65 72 6f 20 6f 66 66 with a zero off
0a80: 73 65 74 2e 0a 20 2a 20 53 69 6e 63 65 20 4d 53 set.. * Since MS
0a90: 44 4f 53 20 69 73 20 6e 6f 74 20 61 20 70 72 65 DOS is not a pre
0aa0: 65 6d 70 74 69 76 65 20 6d 75 6c 74 69 74 61 73 emptive multitas
0ab0: 6b 69 6e 67 20 4f 53 2c 20 74 68 69 73 20 74 61 king OS, this ta
0ac0: 62 6c 65 20 69 73 20 6e 6f 74 0a 20 2a 20 70 72 ble is not. * pr
0ad0: 6f 74 65 63 74 65 64 20 66 72 6f 6d 20 63 6f 6e otected from con
0ae0: 63 75 72 72 65 6e 74 20 61 63 63 65 73 73 2e 20 current access.
0af0: 54 68 69 73 20 68 61 63 6b 20 64 6f 65 73 6e 27 This hack doesn'
0b00: 74 20 77 6f 72 6b 20 61 6e 79 77 61 79 20 6f 6e t work anyway on
0b10: 0a 20 2a 20 61 20 70 72 6f 74 65 63 74 65 64 20 . * a protected
0b20: 73 79 73 74 65 6d 20 6c 69 6b 65 20 4f 53 2f 32 system like OS/2
0b30: 2e 20 55 73 65 20 4d 69 63 72 6f 73 6f 66 74 20 . Use Microsoft
0b40: 43 20 69 6e 73 74 65 61 64 2e 0a 20 2a 2f 0a 0a C instead.. */..
0b50: 76 6f 69 64 70 66 20 7a 63 61 6c 6c 6f 63 20 28 voidpf zcalloc (
0b60: 76 6f 69 64 70 66 20 6f 70 61 71 75 65 2c 20 75 voidpf opaque, u
0b70: 6e 73 69 67 6e 65 64 20 69 74 65 6d 73 2c 20 75 nsigned items, u
0b80: 6e 73 69 67 6e 65 64 20 73 69 7a 65 29 0a 7b 0a nsigned size).{.
0b90: 20 20 20 20 76 6f 69 64 70 66 20 62 75 66 20 3d voidpf buf =
0ba0: 20 6f 70 61 71 75 65 3b 20 2f 2a 20 6a 75 73 74 opaque; /* just
0bb0: 20 74 6f 20 6d 61 6b 65 20 73 6f 6d 65 20 63 6f to make some co
0bc0: 6d 70 69 6c 65 72 73 20 68 61 70 70 79 20 2a 2f mpilers happy */
0bd0: 0a 20 20 20 20 75 6c 67 20 62 73 69 7a 65 20 3d . ulg bsize =
0be0: 20 28 75 6c 67 29 69 74 65 6d 73 2a 73 69 7a 65 (ulg)items*size
0bf0: 3b 0a 0a 20 20 20 20 2f 2a 20 49 66 20 77 65 20 ;.. /* If we
0c00: 61 6c 6c 6f 63 61 74 65 20 6c 65 73 73 20 74 68 allocate less th
0c10: 61 6e 20 36 35 35 32 30 20 62 79 74 65 73 2c 20 an 65520 bytes,
0c20: 77 65 20 61 73 73 75 6d 65 20 74 68 61 74 20 66 we assume that f
0c30: 61 72 6d 61 6c 6c 6f 63 0a 20 20 20 20 20 2a 20 armalloc. *
0c40: 77 69 6c 6c 20 72 65 74 75 72 6e 20 61 20 75 73 will return a us
0c50: 61 62 6c 65 20 70 6f 69 6e 74 65 72 20 77 68 69 able pointer whi
0c60: 63 68 20 64 6f 65 73 6e 27 74 20 68 61 76 65 20 ch doesn't have
0c70: 74 6f 20 62 65 20 6e 6f 72 6d 61 6c 69 7a 65 64 to be normalized
0c80: 2e 0a 20 20 20 20 20 2a 2f 0a 20 20 20 20 69 66 .. */. if
0c90: 20 28 62 73 69 7a 65 20 3c 20 36 35 35 32 30 4c (bsize < 65520L
0ca0: 29 20 7b 0a 20 20 20 20 20 20 20 20 62 75 66 20 ) {. buf
0cb0: 3d 20 66 61 72 6d 61 6c 6c 6f 63 28 62 73 69 7a = farmalloc(bsiz
0cc0: 65 29 3b 0a 20 20 20 20 20 20 20 20 69 66 20 28 e);. if (
0cd0: 2a 28 75 73 68 2a 29 26 62 75 66 20 21 3d 20 30 *(ush*)&buf != 0
0ce0: 29 20 72 65 74 75 72 6e 20 62 75 66 3b 0a 20 20 ) return buf;.
0cf0: 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 } else {.
0d00: 20 20 20 62 75 66 20 3d 20 66 61 72 6d 61 6c 6c buf = farmall
0d10: 6f 63 28 62 73 69 7a 65 20 2b 20 31 36 4c 29 3b oc(bsize + 16L);
0d20: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 28 62 . }. if (b
0d30: 75 66 20 3d 3d 20 4e 55 4c 4c 20 7c 7c 20 6e 65 uf == NULL || ne
0d40: 78 74 5f 70 74 72 20 3e 3d 20 4d 41 58 5f 50 54 xt_ptr >= MAX_PT
0d50: 52 29 20 72 65 74 75 72 6e 20 4e 55 4c 4c 3b 0a R) return NULL;.
0d60: 20 20 20 20 74 61 62 6c 65 5b 6e 65 78 74 5f 70 table[next_p
0d70: 74 72 5d 2e 6f 72 67 5f 70 74 72 20 3d 20 62 75 tr].org_ptr = bu
0d80: 66 3b 0a 0a 20 20 20 20 2f 2a 20 4e 6f 72 6d 61 f;.. /* Norma
0d90: 6c 69 7a 65 20 74 68 65 20 70 6f 69 6e 74 65 72 lize the pointer
0da0: 20 74 6f 20 73 65 67 3a 30 20 2a 2f 0a 20 20 20 to seg:0 */.
0db0: 20 2a 28 28 75 73 68 2a 29 26 62 75 66 2b 31 29 *((ush*)&buf+1)
0dc0: 20 2b 3d 20 28 28 75 73 68 29 28 28 75 63 68 2a += ((ush)((uch*
0dd0: 29 62 75 66 2d 30 29 20 2b 20 31 35 29 20 3e 3e )buf-0) + 15) >>
0de0: 20 34 3b 0a 20 20 20 20 2a 28 75 73 68 2a 29 26 4;. *(ush*)&
0df0: 62 75 66 20 3d 20 30 3b 0a 20 20 20 20 74 61 62 buf = 0;. tab
0e00: 6c 65 5b 6e 65 78 74 5f 70 74 72 2b 2b 5d 2e 6e le[next_ptr++].n
0e10: 65 77 5f 70 74 72 20 3d 20 62 75 66 3b 0a 20 20 ew_ptr = buf;.
0e20: 20 20 72 65 74 75 72 6e 20 62 75 66 3b 0a 7d 0a return buf;.}.
0e30: 0a 76 6f 69 64 20 20 7a 63 66 72 65 65 20 28 76 .void zcfree (v
0e40: 6f 69 64 70 66 20 6f 70 61 71 75 65 2c 20 76 6f oidpf opaque, vo
0e50: 69 64 70 66 20 70 74 72 29 0a 7b 0a 20 20 20 20 idpf ptr).{.
0e60: 69 6e 74 20 6e 3b 0a 20 20 20 20 69 66 20 28 2a int n;. if (*
0e70: 28 75 73 68 2a 29 26 70 74 72 20 21 3d 20 30 29 (ush*)&ptr != 0)
0e80: 20 7b 20 2f 2a 20 6f 62 6a 65 63 74 20 3c 20 36 { /* object < 6
0e90: 34 4b 20 2a 2f 0a 20 20 20 20 20 20 20 20 66 61 4K */. fa
0ea0: 72 66 72 65 65 28 70 74 72 29 3b 0a 20 20 20 20 rfree(ptr);.
0eb0: 20 20 20 20 72 65 74 75 72 6e 3b 0a 20 20 20 20 return;.
0ec0: 7d 0a 20 20 20 20 2f 2a 20 46 69 6e 64 20 74 68 }. /* Find th
0ed0: 65 20 6f 72 69 67 69 6e 61 6c 20 70 6f 69 6e 74 e original point
0ee0: 65 72 20 2a 2f 0a 20 20 20 20 66 6f 72 20 28 6e er */. for (n
0ef0: 20 3d 20 30 3b 20 6e 20 3c 20 6e 65 78 74 5f 70 = 0; n < next_p
0f00: 74 72 3b 20 6e 2b 2b 29 20 7b 0a 20 20 20 20 20 tr; n++) {.
0f10: 20 20 20 69 66 20 28 70 74 72 20 21 3d 20 74 61 if (ptr != ta
0f20: 62 6c 65 5b 6e 5d 2e 6e 65 77 5f 70 74 72 29 20 ble[n].new_ptr)
0f30: 63 6f 6e 74 69 6e 75 65 3b 0a 0a 20 20 20 20 20 continue;..
0f40: 20 20 20 66 61 72 66 72 65 65 28 74 61 62 6c 65 farfree(table
0f50: 5b 6e 5d 2e 6f 72 67 5f 70 74 72 29 3b 0a 20 20 [n].org_ptr);.
0f60: 20 20 20 20 20 20 77 68 69 6c 65 20 28 2b 2b 6e while (++n
0f70: 20 3c 20 6e 65 78 74 5f 70 74 72 29 20 7b 0a 20 < next_ptr) {.
0f80: 20 20 20 20 20 20 20 20 20 20 20 74 61 62 6c 65 table
0f90: 5b 6e 2d 31 5d 20 3d 20 74 61 62 6c 65 5b 6e 5d [n-1] = table[n]
0fa0: 3b 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 ;. }.
0fb0: 20 20 20 20 6e 65 78 74 5f 70 74 72 2d 2d 3b 0a next_ptr--;.
0fc0: 20 20 20 20 20 20 20 20 72 65 74 75 72 6e 3b 0a return;.
0fd0: 20 20 20 20 7d 0a 20 20 20 20 70 74 72 20 3d 20 }. ptr =
0fe0: 6f 70 61 71 75 65 3b 20 2f 2a 20 6a 75 73 74 20 opaque; /* just
0ff0: 74 6f 20 6d 61 6b 65 20 73 6f 6d 65 20 63 6f 6d to make some com
1000: 70 69 6c 65 72 73 20 68 61 70 70 79 20 2a 2f 0a pilers happy */.
1010: 20 20 20 20 41 73 73 65 72 74 28 30 2c 20 22 7a Assert(0, "z
1020: 63 66 72 65 65 3a 20 70 74 72 20 6e 6f 74 20 66 cfree: ptr not f
1030: 6f 75 6e 64 22 29 3b 0a 7d 0a 23 65 6e 64 69 66 ound");.}.#endif
1040: 0a 23 65 6e 64 69 66 20 2f 2a 20 5f 5f 54 55 52 .#endif /* __TUR
1050: 42 4f 43 5f 5f 20 2a 2f 0a 0a 0a 23 69 66 20 64 BOC__ */...#if d
1060: 65 66 69 6e 65 64 28 4d 5f 49 38 36 29 20 26 26 efined(M_I86) &&
1070: 20 21 64 65 66 69 6e 65 64 28 5f 5f 33 32 42 49 !defined(__32BI
1080: 54 5f 5f 29 0a 2f 2a 20 4d 69 63 72 6f 73 6f 66 T__)./* Microsof
1090: 74 20 43 20 69 6e 20 31 36 2d 62 69 74 20 6d 6f t C in 16-bit mo
10a0: 64 65 20 2a 2f 0a 0a 23 20 20 64 65 66 69 6e 65 de */..# define
10b0: 20 4d 59 5f 5a 43 41 4c 4c 4f 43 0a 0a 23 69 66 MY_ZCALLOC..#if
10c0: 20 28 21 64 65 66 69 6e 65 64 28 5f 4d 53 43 5f (!defined(_MSC_
10d0: 56 45 52 29 20 7c 7c 20 28 5f 4d 53 43 5f 56 45 VER) || (_MSC_VE
10e0: 52 20 3c 3d 20 36 30 30 29 29 0a 23 20 20 64 65 R <= 600)).# de
10f0: 66 69 6e 65 20 5f 68 61 6c 6c 6f 63 20 20 68 61 fine _halloc ha
1100: 6c 6c 6f 63 0a 23 20 20 64 65 66 69 6e 65 20 5f lloc.# define _
1110: 68 66 72 65 65 20 20 20 68 66 72 65 65 0a 23 65 hfree hfree.#e
1120: 6e 64 69 66 0a 0a 76 6f 69 64 70 66 20 7a 63 61 ndif..voidpf zca
1130: 6c 6c 6f 63 20 28 76 6f 69 64 70 66 20 6f 70 61 lloc (voidpf opa
1140: 71 75 65 2c 20 75 6e 73 69 67 6e 65 64 20 69 74 que, unsigned it
1150: 65 6d 73 2c 20 75 6e 73 69 67 6e 65 64 20 73 69 ems, unsigned si
1160: 7a 65 29 0a 7b 0a 20 20 20 20 69 66 20 28 6f 70 ze).{. if (op
1170: 61 71 75 65 29 20 6f 70 61 71 75 65 20 3d 20 30 aque) opaque = 0
1180: 3b 20 2f 2a 20 74 6f 20 6d 61 6b 65 20 63 6f 6d ; /* to make com
1190: 70 69 6c 65 72 20 68 61 70 70 79 20 2a 2f 0a 20 piler happy */.
11a0: 20 20 20 72 65 74 75 72 6e 20 5f 68 61 6c 6c 6f return _hallo
11b0: 63 28 28 6c 6f 6e 67 29 69 74 65 6d 73 2c 20 73 c((long)items, s
11c0: 69 7a 65 29 3b 0a 7d 0a 0a 76 6f 69 64 20 20 7a ize);.}..void z
11d0: 63 66 72 65 65 20 28 76 6f 69 64 70 66 20 6f 70 cfree (voidpf op
11e0: 61 71 75 65 2c 20 76 6f 69 64 70 66 20 70 74 72 aque, voidpf ptr
11f0: 29 0a 7b 0a 20 20 20 20 69 66 20 28 6f 70 61 71 ).{. if (opaq
1200: 75 65 29 20 6f 70 61 71 75 65 20 3d 20 30 3b 20 ue) opaque = 0;
1210: 2f 2a 20 74 6f 20 6d 61 6b 65 20 63 6f 6d 70 69 /* to make compi
1220: 6c 65 72 20 68 61 70 70 79 20 2a 2f 0a 20 20 20 ler happy */.
1230: 20 5f 68 66 72 65 65 28 70 74 72 29 3b 0a 7d 0a _hfree(ptr);.}.
1240: 0a 23 65 6e 64 69 66 20 2f 2a 20 4d 53 43 20 2a .#endif /* MSC *
1250: 2f 0a 0a 0a 23 69 66 6e 64 65 66 20 4d 59 5f 5a /...#ifndef MY_Z
1260: 43 41 4c 4c 4f 43 20 2f 2a 20 41 6e 79 20 73 79 CALLOC /* Any sy
1270: 73 74 65 6d 20 77 69 74 68 6f 75 74 20 61 20 73 stem without a s
1280: 70 65 63 69 61 6c 20 61 6c 6c 6f 63 20 66 75 6e pecial alloc fun
1290: 63 74 69 6f 6e 20 2a 2f 0a 0a 23 69 66 6e 64 65 ction */..#ifnde
12a0: 66 20 53 54 44 43 0a 65 78 74 65 72 6e 20 76 6f f STDC.extern vo
12b0: 69 64 70 20 20 63 61 6c 6c 6f 63 20 4f 46 28 28 idp calloc OF((
12c0: 75 49 6e 74 20 69 74 65 6d 73 2c 20 75 49 6e 74 uInt items, uInt
12d0: 20 73 69 7a 65 29 29 3b 0a 65 78 74 65 72 6e 20 size));.extern
12e0: 76 6f 69 64 20 20 20 66 72 65 65 20 20 20 4f 46 void free OF
12f0: 28 28 76 6f 69 64 70 66 20 70 74 72 29 29 3b 0a ((voidpf ptr));.
1300: 23 65 6e 64 69 66 0a 0a 76 6f 69 64 70 66 20 7a #endif..voidpf z
1310: 63 61 6c 6c 6f 63 20 28 6f 70 61 71 75 65 2c 20 calloc (opaque,
1320: 69 74 65 6d 73 2c 20 73 69 7a 65 29 0a 20 20 20 items, size).
1330: 20 76 6f 69 64 70 66 20 6f 70 61 71 75 65 3b 0a voidpf opaque;.
1340: 20 20 20 20 75 6e 73 69 67 6e 65 64 20 69 74 65 unsigned ite
1350: 6d 73 3b 0a 20 20 20 20 75 6e 73 69 67 6e 65 64 ms;. unsigned
1360: 20 73 69 7a 65 3b 0a 7b 0a 20 20 20 20 69 66 20 size;.{. if
1370: 28 6f 70 61 71 75 65 29 20 69 74 65 6d 73 20 2b (opaque) items +
1380: 3d 20 73 69 7a 65 20 2d 20 73 69 7a 65 3b 20 2f = size - size; /
1390: 2a 20 6d 61 6b 65 20 63 6f 6d 70 69 6c 65 72 20 * make compiler
13a0: 68 61 70 70 79 20 2a 2f 0a 20 20 20 20 72 65 74 happy */. ret
13b0: 75 72 6e 20 28 76 6f 69 64 70 66 29 63 61 6c 6c urn (voidpf)call
13c0: 6f 63 28 69 74 65 6d 73 2c 20 73 69 7a 65 29 3b oc(items, size);
13d0: 0a 7d 0a 0a 76 6f 69 64 20 20 7a 63 66 72 65 65 .}..void zcfree
13e0: 20 28 6f 70 61 71 75 65 2c 20 70 74 72 29 0a 20 (opaque, ptr).
13f0: 20 20 20 76 6f 69 64 70 66 20 6f 70 61 71 75 65 voidpf opaque
1400: 3b 0a 20 20 20 20 76 6f 69 64 70 66 20 70 74 72 ;. voidpf ptr
1410: 3b 0a 7b 0a 20 20 20 20 66 72 65 65 28 70 74 72 ;.{. free(ptr
1420: 29 3b 0a 20 20 20 20 69 66 20 28 6f 70 61 71 75 );. if (opaqu
1430: 65 29 20 72 65 74 75 72 6e 3b 20 2f 2a 20 6d 61 e) return; /* ma
1440: 6b 65 20 63 6f 6d 70 69 6c 65 72 20 68 61 70 70 ke compiler happ
1450: 79 20 2a 2f 0a 7d 0a 0a 23 65 6e 64 69 66 20 2f y */.}..#endif /
1460: 2a 20 4d 59 5f 5a 43 41 4c 4c 4f 43 20 2a 2f 0a * MY_ZCALLOC */.