short MEM_freeN(void *vmemh) /* anders compileertie niet meer */ { short error = 0; MemTail *memt; MemHead *memh= vmemh; const char *name; if (memh == NULL){ MemorY_ErroR("free","attempt to free NULL pointer"); /* print_error(err_stream, "%d\n", (memh+4000)->tag1); */ return(-1); } if(sizeof(intptr_t)==8) { if (((intptr_t) memh) & 0x7) { MemorY_ErroR("free","attempt to free illegal pointer"); return(-1); } } else { if (((intptr_t) memh) & 0x3) { MemorY_ErroR("free","attempt to free illegal pointer"); return(-1); } } memh--; if(memh->tag1 == MEMFREE && memh->tag2 == MEMFREE) { MemorY_ErroR(memh->name,"double free"); return(-1); } mem_lock_thread(); if ((memh->tag1 == MEMTAG1) && (memh->tag2 == MEMTAG2) && ((memh->len & 0x3) == 0)) { memt = (MemTail *)(((char *) memh) + sizeof(MemHead) + memh->len); if (memt->tag3 == MEMTAG3){ memh->tag1 = MEMFREE; memh->tag2 = MEMFREE; memt->tag3 = MEMFREE; /* after tags !!! */ rem_memblock(memh); mem_unlock_thread(); return(0); } error = 2; MemorY_ErroR(memh->name,"end corrupt"); name = check_memlist(memh); if (name != NULL){ if (name != memh->name) MemorY_ErroR(name,"is also corrupt"); } } else{ error = -1; name = check_memlist(memh); if (name == NULL) MemorY_ErroR("free","pointer not in memlist"); else MemorY_ErroR(name,"error in header"); } totblock--; /* here a DUMP should happen */ mem_unlock_thread(); return(error); }
short MEM_freeN(void *vmemh) /* anders compileertie niet meer */ { short error = 0; MemTail *memt; MemHead *memh= (MemHead*)vmemh; // (MemHead*) Added by Swanny 19/05/05 char *name; if (memh == 0){ MemorY_ErroR("free","attempt to free NULL pointer"); /* print_error(err_stream, "%d\n", (memh+4000)->tag1); */ return(-1); } if(sizeof(long)==8) { if (((long) memh) & 0x7) { MemorY_ErroR("free","attempt to free illegal pointer"); return(-1); } } else { if (((long) memh) & 0x3) { MemorY_ErroR("free","attempt to free illegal pointer"); return(-1); } } memh--; if(memh->tag1 == MEMFREE && memh->tag2 == MEMFREE) { MemorY_ErroR(memh->name,"double free"); return(-1); } if ((memh->tag1 == MEMTAG1) && (memh->tag2 == MEMTAG2) && ((memh->len & 0x3) == 0)) { memt = (MemTail *)(((char *) memh) + sizeof(MemHead) + memh->len); if (memt->tag3 == MEMTAG3){ memh->tag1 = MEMFREE; memh->tag2 = MEMFREE; memt->tag3 = MEMFREE; /* na tags !!! */ rem_memblock(memh); return(0); } error = 2; MemorY_ErroR(memh->name,"end corrupt"); name = check_memlist(memh); if (name != 0){ if (name != memh->name) MemorY_ErroR(name,"is also corrupt"); } } else{ error = -1; name = check_memlist(memh); if (name == 0) MemorY_ErroR("free","pointer not in memlist"); else MemorY_ErroR(name,"error in header"); } totblock--; /* hier moet een DUMP plaatsvinden */ return(error); }