projects/ldc: dmd/mem.c annotate

annotate dmd/mem.c @ 268:23d0d9855cad trunk

[svn r289] Fixed: right shift >> was broken for unsigned types. Fixed: debug info for classes now started.

author	lindquist
date	Sun, 15 Jun 2008 18:52:27 +0200
parents	35d93ce68cf4
children	967178e31a13

rev	line source
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	1
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	2 /* Copyright (c) 2000 Digital Mars */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	3 /* All Rights Reserved */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	4
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	5 #include <cstdio>
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	6 #include <cstdlib>
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	7 #include <cstring>
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	8 #include <cassert>
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	9
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	10 #include "mem.h"
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	11
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	12 #define USE_BOEHM_GC 0
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	13
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	14 #if USE_BOEHM_GC
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	15 // I needed to perfix the dir after upgrading to gc 7.0
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	16 #include "gc/gc.h"
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	17 #endif
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	18
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	19 /* This implementation of the storage allocator uses the standard C allocation package.
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	20 */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	21
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	22 Mem mem;
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	23
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	24 #if USE_BOEHM_GC
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	25
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	26 static bool gc_was_init = false;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	27
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	28 void Mem::init()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	29 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	30 GC_init();
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	31 gc_was_init = true;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	32 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	33
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	34 char Mem::strdup(const char s)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	35 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	36 char *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	37
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	38 if (s)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	39 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	40 p = GC_strdup(s);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	41 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	42 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	43 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	44 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	45 return NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	46 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	47
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	48 void *Mem::malloc(size_t size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	49 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	50
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	51 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	52 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	53 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	54 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	55 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	56 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	57 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	58 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	59 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	60 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	61
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	62 void *Mem::calloc(size_t size, size_t n)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	63 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	64
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	65 if (!size \|\| !n)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	66 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	67 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	68 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	69 p = GC_malloc(size * n);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	70 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	71 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	72 memset(p, 0, size * n);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	73 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	74 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	75 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	76
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	77 void Mem::realloc(void p, size_t size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	78 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	79 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	80 { if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	81 { GC_free(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	82 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	83 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	84 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	85 else if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	86 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	87 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	88 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	89 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	90 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	91 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	92 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	93 p = GC_realloc(p, size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	94 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	95 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	96 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	97 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	98 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	99
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	100 void Mem::free(void *p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	101 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	102 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	103 GC_free(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	104 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	105
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	106 void Mem::mallocdup(void o, size_t size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	107 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	108
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	109 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	110 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	111 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	112 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	113 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	114 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	115 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	116 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	117 memcpy(p,o,size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	118 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	119 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	120 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	121
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	122 void Mem::error()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	123 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	124 printf("Error: out of memory\n");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	125 exit(EXIT_FAILURE);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	126 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	127
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	128 void Mem::fullcollect()
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	129 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	130 GC_gcollect();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	131 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	132
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	133 void Mem::mark(void *pointer)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	134 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	135 (void) pointer; // necessary for VC /W4
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	136 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	137
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	138 /* =================================================== */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	139
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	140 void * operator new(size_t m_size)
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	141 {
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	142 // without this we segfault with gc 7.0
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	143 if (!gc_was_init) {
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	144 mem.init();
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	145 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	146 void *p = GC_malloc(m_size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	147 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	148 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	149 printf("Error: out of memory\n");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	150 exit(EXIT_FAILURE);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	151 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	152 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	153
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	154 void operator delete(void *p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	155 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	156 GC_free(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	157 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	158
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	159 #elif !USE_BOEHM_GC
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	160
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	161 void Mem::init()
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	162 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	163 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	164
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	165 char Mem::strdup(const char s)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	166 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	167 char *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	168
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	169 if (s)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	170 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	171 p = ::strdup(s);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	172 if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	173 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	174 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	175 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	176 return NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	177 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	178
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	179 void *Mem::malloc(size_t size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	180 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	181
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	182 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	183 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	184 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	185 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	186 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	187 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	188 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	189 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	190 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	191 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	192
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	193 void *Mem::calloc(size_t size, size_t n)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	194 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	195
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	196 if (!size \|\| !n)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	197 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	198 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	199 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	200 p = ::malloc(size * n);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	201 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	202 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	203 memset(p, 0, size * n);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	204 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	205 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	206 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	207
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	208 void Mem::realloc(void p, size_t size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	209 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	210 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	211 { if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	212 { ::free(p);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	213 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	214 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	215 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	216 else if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	217 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	218 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	219 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	220 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	221 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	222 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	223 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	224 p = ::realloc(p, size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	225 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	226 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	227 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	228 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	229 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	230
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	231 void Mem::free(void *p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	232 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	233 if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	234 ::free(p);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	235 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	236
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	237 void Mem::mallocdup(void o, size_t size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	238 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	239
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	240 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	241 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	242 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	243 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	244 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	245 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	246 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	247 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	248 memcpy(p,o,size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	249 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	250 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	251 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	252
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	253 void Mem::error()
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	254 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	255 printf("Error: out of memory\n");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	256 exit(EXIT_FAILURE);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	257 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	258
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	259 void Mem::fullcollect()
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	260 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	261 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	262
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	263 void Mem::mark(void *pointer)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	264 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	265 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	266
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	267 #endif // USE_BOEHM_GC

Mercurial > projects > ldc

annotate dmd/mem.c @ 268:23d0d9855cad trunk