source: git/factory/mmutil.c @ 6c5d86

/* emacs edit mode for this file is -*- C -*- */
/* $Id: mmutil.c,v 1.2 1997-06-19 12:22:04 schmidt Exp $ */

#define _POSIX_SOURCE 1

#include <config.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "memman.h"
#include "mmprivate.h"

#ifdef __alpha__
const size_t mm_mcbSizes [MAXLIST] = {   8,  16,  24,  32,
                                         40,  48,  56,  64,
                                         80,  96, 112, 128,
                                         160, 192, 224, 256,
                                         512, 1024 };
#else
/*const*/ size_t mm_mcbSizes [MAXLIST] = {   8,  12,  16,  20,  24,  28,  32,
                                             40,  48,  56,  64,
                                             80,  96, 112, 128,
                                             160, 192, 224, 256,
                                             512, 1024 };
#endif

int
mmGetIndex( size_t size )
{
    int i;

    if ( size > mm_mcbSizes[MAXLIST-1] )
        return -1;
    else {
        for ( i = 0; i < MAXLIST; i++ )
            if ( size <= mm_mcbSizes[i] )
                return i;
    }
    return MAXLIST-1;
}

mcb
mmNewMCBList( int i )
{
    char* blk = (char*)mmGetBlock();
    char* top;
    mcb dummy, p;
    size_t offset = mm_mcbSizes[i];

    dummy = (mcb)blk;
    p = dummy;
    top = blk + MAXDATA - offset;
    while ( (char*)p < top ) {
        *p = (void*)((char*)p + offset);
        p = (mcb)*p;
    }
    *p = NULL;

    return dummy;
}

#ifdef MDEBUG

void
mmMoveDBMCB ( pDBMCB from, pDBMCB to, DBMCB * what )
{
    what->prev->next = what->next;
    if ( what->next != NULL )
        what->next->prev = what->prev;
    what->prev = to;
    what->next = to->next;
    if (to->next!=NULL)
        to->next->prev=what;
    to->next = what;
}

void
mmMoveDBMCBInto ( pDBMCB to, pDBMCB what )
{
    if (to->next !=NULL) {
        what->next = to->next;
        what->next->prev = what;
    }
    to->next = what;
    what->prev = to;
}

void
mmTakeOutDBMCB ( pDBMCB from, pDBMCB what )
{
    what->prev->next = what->next;
    if ( what->next != NULL )
        what->next->prev = what->prev;
}

int
mmPrintDBMCB ( DBMCB * what, char* msg , int given_size)
{
    DBMCB * before=NULL;
    (void)fprintf( stderr, "warning: %s\n", msg );
    (void)fprintf( stderr, "block %x allocated in: %s, line no %d\n",
                   (int)what, what->fname, what->lineno );
    if (strcmp(msg,"size")==0)
        (void)fprintf( stderr, "size is: %d, but free call said %d \n",
                       (int)what->size, given_size );
    else
        (void)fprintf( stderr, "size is: %d\n", (int)what->size );
#ifdef MM_BEFORE
    {
        char * queue="used";
        DBMCB *x=&mm_theDBused;
        while (x!=NULL) {
            if (((unsigned)x<(unsigned)what) && ((unsigned)before<(unsigned)x))
                before=x;
            x=x->next;
        }
        x=&mm_theDBfree;
        while (x!=NULL) {
            if (((unsigned)x<(unsigned)what) && ((unsigned)before<(unsigned)x)) {
                before=x;
                queue="free";
            }
            x=x->next;
        }
        x=before;
        fprintf( stderr, "previous (%s queue) at %x to %x, alloc: %s, l: %d, size:%d\n",
                 queue,x,(unsigned)x+RealSizeFromSize(x->size),x->fname,x->lineno,x->size);
    }
#endif
    return 0;
}

void
mmTestList ( )
{
    DBMCB * what=mm_theDBused.next;
    fprintf(stderr,"list of used blocks:\n");
    while (what!=NULL) {
        (void)fprintf( stderr, "%d bytes at %p in: %s, line no %d\n",
                       (int)what->size, what, what->fname, what->lineno);
        what=what->next;
    }
/*
  //what=mm_theDBfree.next;
  //fprintf(stderr,"list of free blocks:\n");
  //while (what!=NULL)
  //{
  //  (void)fprintf( stderr, "%d bytes at %p in: %s, line no %d\n",
  //     what->size, what, what->fname, what->lineno );
  //  what=what->next;
  // }
  */
}

void
mmPrintFL( const char* fname, const int lineno )
{
    (void)fprintf( stderr, "occured in %s line %d\n", fname, lineno );
}

int
mmCheckDBMCB ( DBMCB * what, int flags, int size )
{
    char * patptr;
    int i;

    if ( ((int)what % 4 ) != 0 ) {
        (void)fprintf( stderr, "warning: odd address" );
        return 0;
    }
    if ( (void*)what > mm_maxAddr ) {
        (void)fprintf( stderr, "warning: address too high" );
        return 0;
    }
    if ( (void*)what < mm_minAddr ) {
        (void)fprintf( stderr, "warning: address too low" );
        return 0;
    }
    if ( ( what->flags & flags ) != flags )
        return mmPrintDBMCB( what, "flags", 0 );
    if ( what->size != size )
        return mmPrintDBMCB( what, "size", size );
    if ( what->pattern != PATTERN )
        return mmPrintDBMCB( what, "front pattern", 0 );
    patptr = ((char*)&what->data) + size;
    for ( i = 4; i > 0; i-- )
        if ( *(patptr++) != PATTERN2 ) return mmPrintDBMCB( what, "back pattern", 0 );
    if ( ( what->next != NULL ) && ( what->next->prev != what ) )
        return mmPrintDBMCB( what, "chain:n", 0 );
    if ( ( what->prev != NULL ) && ( what->prev->next != what ) ) {
        mmPrintDBMCB( what->prev, "prev", 0 );
        return mmPrintDBMCB( what, "chain:p", 0 );
    }
    return 1;
}

int
mmDBTestBlock( const void* adr, const size_t size, const char * fname, const int lineno )
{
    DBMCB * what;

    if ( ( adr == NULL ) || ( size == 0 ) )
        return 1; /*TRUE*/

    what = (DBMCB*)((char*)(adr) - DebugOffsetFront);
    if ( mm_status == MM_TMP ) {
        if ( ! mmCheckDBMCB( what, MM_TMPFLAG | MM_USEDFLAG, size ) ) {
            mmPrintFL( fname, lineno );
            return 0; /*FALSE*/
        }
    }
    else {
        if ( ! mmCheckDBMCB( what, MM_NORMFLAG | MM_USEDFLAG, size ) ) {
            mmPrintFL( fname, lineno );
            return 0; /*FALSE*/
        }
    }
    return 1; /*TRUE*/
}

int
mmDBTest( const void* adr, const char * fname, const int lineno )
{
    if (adr!=NULL) {
        size_t l;
        adr = (size_t*)adr-1;
        l= (adr<=mm_maxAddr) ? (*(size_t*)((int)adr&(~3))) :0;
        return mmDBTestBlock( adr,l, fname, lineno );
    }
    return 1; /*TRUE*/
}

#endif /* MDEBUG */