projects/ldc: dmd/mem.c annotate

annotate dmd/mem.c @ 650:aa6a0b7968f7

Added test case for bug #100 Removed dubious check for not emitting static private global in other modules without access. This should be handled properly somewhere else, it's causing unresolved global errors for stuff that should work (in MiniD)

author	Tomas Lindquist Olsen <tomas.l.olsen@gmail.com>
date	Sun, 05 Oct 2008 17:28:15 +0200
parents	967178e31a13
children	b30fe7e1dbb9

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 #if USE_BOEHM_GC
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	13 // 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	14 #include "gc/gc.h"
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	15 #endif
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	16
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	17 /* 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	18 */
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	19
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	20 Mem mem;
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	21
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	22 #if USE_BOEHM_GC
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	23
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	24 static bool gc_was_init = false;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	25
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	26 void Mem::init()
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 GC_init();
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	29 gc_was_init = true;
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	30 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	31
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	32 char Mem::strdup(const char s)
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 *p;
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 if (s)
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 p = GC_strdup(s);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	39 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	40 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	41 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	42 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	43 return NULL;
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	46 void *Mem::malloc(size_t size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	47 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	48
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	49 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	50 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	51 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	52 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	53 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	54 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	55 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	56 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	57 return p;
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	60 void *Mem::calloc(size_t size, size_t n)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	61 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	62
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	63 if (!size \|\| !n)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	64 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	65 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	66 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	67 p = GC_malloc(size * n);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	68 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	69 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	70 memset(p, 0, size * n);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	71 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	72 return p;
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	75 void Mem::realloc(void p, size_t size)
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 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	78 { if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	79 { GC_free(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	80 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	81 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	82 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	83 else if (!p)
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 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	86 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	87 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	88 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	89 else
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 p = GC_realloc(p, size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	92 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	93 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	94 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	95 return p;
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	98 void Mem::free(void *p)
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 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	101 GC_free(p);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	102 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	103
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	104 void Mem::mallocdup(void o, size_t size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	105 { void *p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	106
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	107 if (!size)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	108 p = NULL;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	109 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	110 {
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	111 p = GC_malloc(size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	112 if (!p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	113 error();
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	114 else
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	115 memcpy(p,o,size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	116 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	117 return p;
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	120 void Mem::error()
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 printf("Error: out of memory\n");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	123 exit(EXIT_FAILURE);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	124 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	125
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	126 void Mem::fullcollect()
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 GC_gcollect();
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
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	131 void Mem::mark(void *pointer)
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) pointer; // necessary for VC /W4
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
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 void * operator new(size_t m_size)
6 35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	139 {
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	140 // without this we segfault with gc 7.0
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	141 if (!gc_was_init) {
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	142 mem.init();
35d93ce68cf4 [svn r10] Updated for LLVM rev. 20070913 lindquist parents: 1 diff changeset	143 }
1 c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	144 void *p = GC_malloc(m_size);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	145 if (p)
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	146 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	147 printf("Error: out of memory\n");
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	148 exit(EXIT_FAILURE);
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	149 return p;
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	150 }
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	151
c53b6e3fe49a [svn r5] Initial commit. Most things are very rough. lindquist parents: diff changeset	152 void operator delete(void *p)
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 GC_free(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
268 23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	157 #elif !USE_BOEHM_GC
1 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 void Mem::init()
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	160 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	161 }
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 char Mem::strdup(const char s)
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 *p;
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 if (s)
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 p = ::strdup(s);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	170 if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	171 return p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	172 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	173 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	174 return NULL;
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
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	177 void *Mem::malloc(size_t size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	178 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	179
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	180 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	181 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	182 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	183 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	184 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	185 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	186 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	187 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	188 return p;
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
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	191 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	192 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	193
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	194 if (!size \|\| !n)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	195 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	196 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	197 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	198 p = ::malloc(size * n);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	199 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	200 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	201 memset(p, 0, size * n);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	202 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	203 return p;
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
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	206 void Mem::realloc(void p, size_t size)
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 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	209 { if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	210 { ::free(p);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	211 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	212 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	213 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	214 else if (!p)
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 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	217 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	218 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	219 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	220 else
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 p = ::realloc(p, size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	223 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	224 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	225 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	226 return p;
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
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	229 void Mem::free(void *p)
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 if (p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	232 ::free(p);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	233 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	234
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	235 void Mem::mallocdup(void o, size_t size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	236 { void *p;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	237
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	238 if (!size)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	239 p = NULL;
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	240 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	241 {
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	242 p = ::malloc(size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	243 if (!p)
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	244 error();
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	245 else
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	246 memcpy(p,o,size);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	247 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	248 return p;
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
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	251 void Mem::error()
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 printf("Error: out of memory\n");
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	254 exit(EXIT_FAILURE);
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	255 }
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	256
23d0d9855cad [svn r289] Fixed: right shift >> was broken for unsigned types. lindquist parents: 6 diff changeset	257 void Mem::fullcollect()
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 }
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 void Mem::mark(void *pointer)
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 }
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 #endif // USE_BOEHM_GC

Mercurial > projects > ldc

annotate dmd/mem.c @ 650:aa6a0b7968f7