block = BLOCK(ptr);
if ((char *) ptr < (char *) mdp->heapbase || block > mdp->heapsize) {
- printf("Ouch, this pointer is not mine. I refuse to free it.\n");
- return;
+ fprintf(stderr,"Ouch, this pointer is not mine. I refuse to free it. I refuse it to death!!\n");
+ abort();
}
type = mdp->heapinfo[block].type;
- if (type<0)
- THROWF(arg_error,0,"Asked to free a fragment in a block that is already free. I'm puzzled");
switch (type) {
+ case -1: /* Already free */
+ fprintf(stderr,"Asked to free a fragment in a block that is already free. I'm puzzled\n");
+ abort();
+ break;
+
case 0:
/* Find the free cluster previous to this one in the free list.
Start searching at the last block referenced; this may benefit
if ((mbase = mmorecore(mdp, sizeof(mtemp))) != NULL) {
memcpy(mbase, mdp, sizeof(mtemp));
} else {
- THROWF(system_error,0,"morecore failed to get some memory!");
+ fprintf(stderr, "morecore failed to get some more memory!\n");
+ abort();
}
/* Add the new heap to the linked list of heaps attached by mmalloc */
int type;
size_t block, blocks, oldlimit;
- /* Only keep real realloc and hidden malloc and free to the relevant functions */
+ /* Only keep real realloc, and reroute hidden malloc and free to the relevant functions */
if (size == 0) {
- fprintf(stderr,"free from realloc...");
mfree(mdp, ptr);
- fprintf(stderr,"done\n");
return mmalloc(mdp, 0);
} else if (ptr == NULL) {
return mmalloc(mdp, size);
block = BLOCK(ptr);
type = mdp->heapinfo[block].type;
- if (type<0)
- THROWF(arg_error,0,"Asked realloc a fragment comming from a *free* block. I'm puzzled.");
switch (type) {
+ case -1:
+ fprintf(stderr, "Asked realloc a fragment comming from a *free* block. I'm puzzled.\n");
+ abort();
+ break;
+
case 0:
/* Maybe reallocate a large block to a small fragment. */