source: trunk/poppler/mypoppler/goo/gmem.cc @ 257

Last change on this file since 257 was 257, checked in by Eugene Romanenko, 13 years ago

PDF plugin: Poppler library updated to version 0.10.0

File size: 6.5 KB
Line 
1/*
2 * gmem.c
3 *
4 * Memory routines with out-of-memory checking.
5 *
6 * Copyright 1996-2003 Glyph & Cog, LLC
7 */
8
9//========================================================================
10//
11// Modified under the Poppler project - http://poppler.freedesktop.org
12//
13// All changes made under the Poppler project to this file are licensed
14// under GPL version 2 or later
15//
16// Copyright (C) 2005 Takashi Iwai <tiwai@suse.de>
17// Copyright (C) 2007, 2008 Albert Astals Cid <aacid@kde.org>
18// Copyright (C) 2008 Jonathan Kew <jonathan_kew@sil.org>
19//
20// To see a description of the changes please see the Changelog file that
21// came with your tarball or type make ChangeLog if you are building from git
22//
23//========================================================================
24
25#include <config.h>
26#include <stdio.h>
27#include <stdlib.h>
28#include <stddef.h>
29#include <string.h>
30#include <limits.h>
31#include "gmem.h"
32
33#ifdef DEBUG_MEM
34
35typedef struct _GMemHdr {
36  unsigned int magic;
37  int size;
38  int index;
39  struct _GMemHdr *next, *prev;
40} GMemHdr;
41
42#define gMemHdrSize ((sizeof(GMemHdr) + 7) & ~7)
43#define gMemTrlSize (sizeof(long))
44
45#define gMemMagic 0xabcd9999
46
47#if gmemTrlSize==8
48#define gMemDeadVal 0xdeadbeefdeadbeefUL
49#else
50#define gMemDeadVal 0xdeadbeefUL
51#endif
52
53/* round data size so trailer will be aligned */
54#define gMemDataSize(size) \
55  ((((size) + gMemTrlSize - 1) / gMemTrlSize) * gMemTrlSize)
56
57static GMemHdr *gMemHead = NULL;
58static GMemHdr *gMemTail = NULL;
59
60static int gMemIndex = 0;
61static int gMemAlloc = 0;
62static int gMemInUse = 0;
63
64#endif /* DEBUG_MEM */
65
66void *gmalloc(size_t size) GMEM_EXCEP {
67#ifdef DEBUG_MEM
68  int size1;
69  char *mem;
70  GMemHdr *hdr;
71  void *data;
72  unsigned long *trl, *p;
73
74  if (size <= 0) {
75    return NULL;
76  }
77  size1 = gMemDataSize(size);
78  if (!(mem = (char *)malloc(size1 + gMemHdrSize + gMemTrlSize))) {
79#if USE_EXCEPTIONS
80    throw GMemException();
81#else
82    fprintf(stderr, "Out of memory\n");
83    exit(1);
84#endif
85  }
86  hdr = (GMemHdr *)mem;
87  data = (void *)(mem + gMemHdrSize);
88  trl = (unsigned long *)(mem + gMemHdrSize + size1);
89  hdr->magic = gMemMagic;
90  hdr->size = size;
91  hdr->index = gMemIndex++;
92  if (gMemTail) {
93    gMemTail->next = hdr;
94    hdr->prev = gMemTail;
95    gMemTail = hdr;
96  } else {
97    hdr->prev = NULL;
98    gMemHead = gMemTail = hdr;
99  }
100  hdr->next = NULL;
101  ++gMemAlloc;
102  gMemInUse += size;
103  for (p = (unsigned long *)data; p <= trl; ++p) {
104    *p = gMemDeadVal;
105  }
106  return data;
107#else
108  void *p;
109
110  if (size <= 0) {
111    return NULL;
112  }
113  if (!(p = malloc(size))) {
114#if USE_EXCEPTIONS
115    throw GMemException();
116#else
117    fprintf(stderr, "Out of memory\n");
118    exit(1);
119#endif
120  }
121  return p;
122#endif
123}
124
125void *grealloc(void *p, size_t size) GMEM_EXCEP {
126#ifdef DEBUG_MEM
127  GMemHdr *hdr;
128  void *q;
129  int oldSize;
130
131  if (size <= 0) {
132    if (p) {
133      gfree(p);
134    }
135    return NULL;
136  }
137  if (p) {
138    hdr = (GMemHdr *)((char *)p - gMemHdrSize);
139    oldSize = hdr->size;
140    q = gmalloc(size);
141    memcpy(q, p, size < oldSize ? size : oldSize);
142    gfree(p);
143  } else {
144    q = gmalloc(size);
145  }
146  return q;
147#else
148  void *q;
149
150  if (size <= 0) {
151    if (p) {
152      free(p);
153    }
154    return NULL;
155  }
156  if (p) {
157    q = realloc(p, size);
158  } else {
159    q = malloc(size);
160  }
161  if (!q) {
162#if USE_EXCEPTIONS
163    throw GMemException();
164#else
165    fprintf(stderr, "Out of memory\n");
166    exit(1);
167#endif
168  }
169  return q;
170#endif
171}
172
173void *gmallocn(int nObjs, int objSize) GMEM_EXCEP {
174  int n;
175
176  if (nObjs == 0) {
177    return NULL;
178  }
179  n = nObjs * objSize;
180  if (objSize <= 0 || nObjs < 0 || nObjs >= INT_MAX / objSize) {
181#if USE_EXCEPTIONS
182    throw GMemException();
183#else
184    fprintf(stderr, "Bogus memory allocation size\n");
185    exit(1);
186#endif
187  }
188  return gmalloc(n);
189}
190
191void *gmallocn_checkoverflow(int nObjs, int objSize) GMEM_EXCEP {
192  int n;
193
194  if (nObjs == 0) {
195    return NULL;
196  }
197  n = nObjs * objSize;
198  if (objSize <= 0 || nObjs < 0 || nObjs >= INT_MAX / objSize) {
199#if USE_EXCEPTIONS
200    throw GMemException();
201#else
202    fprintf(stderr, "Bogus memory allocation size\n");
203    return NULL;
204#endif
205  }
206  return gmalloc(n);
207}
208
209void *greallocn(void *p, int nObjs, int objSize) GMEM_EXCEP {
210  int n;
211
212  if (nObjs == 0) {
213    if (p) {
214      gfree(p);
215    }
216    return NULL;
217  }
218  n = nObjs * objSize;
219  if (objSize <= 0 || nObjs < 0 || nObjs >= INT_MAX / objSize) {
220#if USE_EXCEPTIONS
221    throw GMemException();
222#else
223    fprintf(stderr, "Bogus memory allocation size\n");
224    exit(1);
225#endif
226  }
227  return grealloc(p, n);
228}
229
230void *greallocn_checkoverflow(void *p, int nObjs, int objSize) GMEM_EXCEP {
231  int n;
232
233  if (nObjs == 0) {
234    if (p) {
235      gfree(p);
236    }
237    return NULL;
238  }
239  n = nObjs * objSize;
240  if (objSize <= 0 || nObjs < 0 || nObjs >= INT_MAX / objSize) {
241#if USE_EXCEPTIONS
242    throw GMemException();
243#else
244    fprintf(stderr, "Bogus memory allocation size\n");
245    return NULL;
246#endif
247  }
248  return grealloc(p, n);
249}
250
251void gfree(void *p) {
252#ifdef DEBUG_MEM
253  int size;
254  GMemHdr *hdr;
255  unsigned long *trl, *clr;
256
257  if (p) {
258    hdr = (GMemHdr *)((char *)p - gMemHdrSize);
259    if (hdr->magic == gMemMagic &&
260        ((hdr->prev == NULL) == (hdr == gMemHead)) &&
261        ((hdr->next == NULL) == (hdr == gMemTail))) {
262      if (hdr->prev) {
263        hdr->prev->next = hdr->next;
264      } else {
265        gMemHead = hdr->next;
266      }
267      if (hdr->next) {
268        hdr->next->prev = hdr->prev;
269      } else {
270        gMemTail = hdr->prev;
271      }
272      --gMemAlloc;
273      gMemInUse -= hdr->size;
274      size = gMemDataSize(hdr->size);
275      trl = (unsigned long *)((char *)hdr + gMemHdrSize + size);
276      if (*trl != gMemDeadVal) {
277        fprintf(stderr, "Overwrite past end of block %d at address %p\n",
278                hdr->index, p);
279      }
280      for (clr = (unsigned long *)hdr; clr <= trl; ++clr) {
281        *clr = gMemDeadVal;
282      }
283      free(hdr);
284    } else {
285      fprintf(stderr, "Attempted to free bad address %p\n", p);
286    }
287  }
288#else
289  if (p) {
290    free(p);
291  }
292#endif
293}
294
295#ifdef DEBUG_MEM
296void gMemReport(FILE *f) {
297  GMemHdr *p;
298
299  fprintf(f, "%d memory allocations in all\n", gMemIndex);
300  if (gMemAlloc > 0) {
301    fprintf(f, "%d memory blocks left allocated:\n", gMemAlloc);
302    fprintf(f, " index     size\n");
303    fprintf(f, "-------- --------\n");
304    for (p = gMemHead; p; p = p->next) {
305      fprintf(f, "%8d %8d\n", p->index, p->size);
306    }
307  } else {
308    fprintf(f, "No memory blocks left allocated\n");
309  }
310}
311#endif
312
313char *copyString(char *s) {
314  char *s1;
315
316  s1 = (char *)gmalloc(strlen(s) + 1);
317  strcpy(s1, s);
318  return s1;
319}
320
321char *gstrndup(const char *s, size_t n) {
322  char *s1 = (char*)gmalloc(n + 1); /* cannot return NULL for size > 0 */
323  s1[n] = '\0';
324  memcpy(s1, s, n);
325  return s1;
326}
Note: See TracBrowser for help on using the repository browser.