acl4のページ0002

↑

(1)

#if (a_Version >= 1)
    #define DoublyLinkList          a_DoublyLinkList
    #define DoublyLinkList_ini      a_DoublyLinkList_ini
    #define DoublyLinkList_insTail  a_DoublyLinkList_insTail
    #define DoublyLinkList_insHead  a_DoublyLinkList_insHead
    #define DoublyLinkList_rmv      a_DoublyLinkList_rmv
#endif

a_class(a_DoublyLinkList) { a_DoublyLinkList *prv, *nxt; };
a_static void a_DoublyLinkList_ini(a_DoublyLinkList *w) { w->prv = w->nxt = w; }

a_static void a_DoublyLinkList_insTail(a_DoublyLinkList *w, a_DoublyLinkList *tgt)
{
    a_DoublyLinkList *lst = w->prv;
    lst->nxt = tgt;
    tgt->prv = lst;
    tgt->nxt = w;
    w  ->prv = tgt;
}

a_static void a_DoublyLinkList_insHead(a_DoublyLinkList *w, a_DoublyLinkList *tgt)
{
    a_DoublyLinkList *hed = w->nxt;
    w  ->nxt = tgt;
    tgt->prv = w;
    tgt->nxt = hed;
    hed->prv = tgt;
}

a_static void a_DoublyLinkList_rmv(a_DoublyLinkList *tgt)
{
    a_DoublyLinkList *prv = tgt->prv;
    a_DoublyLinkList *nxt = tgt->nxt;
    prv->nxt = nxt;
    nxt->prv = prv;
}

#if (a_Version >= 1)
    #define malloc_     a_malloc
    #define free_       a_free
    #define realloc_    a_realloc
#endif

a_class(a_malloc_Header) {
    a_DoublyLinkList lnk[1];
    intptr_t dmy[1], sz, lin;
    const char *fil;
    intptr_t serialNum, sig;
};

a_malloc_Header a_malloc_hed0[1];
#define a_malloc_Sig		0xff0055aa

a_static void *a_malloc(_argDef_  intptr_t sz)
{
    #if (a_DbgLv < 2)
        void *p = malloc(sz);
        if (p == NULL)
            a_errExit("malloc_: out of memory: sz=%d");
        return p;
    #else
        if (sz < 0)
            a_errExit("%s(%d): malloc_ size error: sz=%d", a_fil, a_lin, (int) sz);
        a_malloc_Header *h = (a_malloc_Header *) malloc(sz + sizeof (a_malloc_Header));
        if (h == NULL)
            a_errExit("%s(%d): malloc_: out of memory: sz=%d", a_fil, a_lin, (int) sz);
        if (a_malloc_hed0->lnk->prv == NULL) {
            a_DoublyLinkList_ini(a_malloc_hed0->lnk);
            a_malloc_hed0->sz = -1;
            a_malloc_hed0->sig = a_malloc_Sig;
            a_malloc_hed0->lin = 0;
        }
        a_DoublyLinkList_insTail(a_malloc_hed0->lnk, h->lnk);
        h->sz = sz;
        h->sig = a_malloc_Sig;
        h->lin = a_lin;
        h->fil = a_fil;
        h->serialNum = ++(a_malloc_hed0->serialNum);
        a_malloc_hed0->lin++;
        return h + 1;
    #endif
}

a_static void a_free(_argDef_  void *p, intptr_t sz)
{
    #if (a_DbgLv < 2)
        (void) sz;
        free(p);
    #else
        if (p == NULL) return;
        a_malloc_Header *h = (a_malloc_Header *) p - 1;
        if (h->sig != a_malloc_Sig)
            a_errExit("%s(%d): free_: bad signature", a_fil, a_lin);
        if (h->sz != sz)
            a_errExit("%s(%d): free_: bad size: sz=%d, arg=%d", a_fil, a_lin, (int) h->sz, (int) sz);
        h->sig = 0;
        h->serialNum = 0;
        a_DoublyLinkList_rmv(h->lnk);
        a_malloc_hed0->lin--;
        free(h);
    #endif
}

a_static void *a_realloc(_argDef_  void *p, intptr_t sz0, intptr_t sz1)
{
    #if (a_DbgLv < 2)
        (void) sz0;
        p = realloc(p, sz1);
        if (p == NULL)
            a_errExit("realloc_: out of memory: sz1=%d");
        return p;
    #else
        if (sz1 < 0)
            a_errExit("%s(%d): realloc_ size error: sz1=%d", a_fil, a_lin, (int) sz1);
        if (p == NULL)
            return a_malloc(a_fil, a_lin, sz1);
        a_malloc_Header *h = (a_malloc_Header *) p - 1;
        if (h->sig != a_malloc_Sig)
            a_errExit("%s(%d): realloc_: bad signature", a_fil, a_lin);
        if (h->sz != sz0)
            a_errExit("%s(%d): realloc_: bad size: sz=%d, arg=%d", a_fil, a_lin, (int) h->sz, (int) sz0);
        h->sig = 0;
        intptr_t sn = h->serialNum;
        h->serialNum = 0;
        a_DoublyLinkList *prv = h->lnk->prv;
        a_DoublyLinkList *nxt = h->lnk->nxt;
        prv->nxt = nxt;
        nxt->prv = prv;
        a_malloc_Header *h1 = (a_malloc_Header *) realloc(h, sz1 + sizeof (a_malloc_Header));
        if (h1 == NULL)
            a_errExit("%s(%d): realloc_: out of memory: sz1=%d", a_fil, a_lin, (int) sz1);
        prv->nxt = h1->lnk;
        nxt->prv = h1->lnk;
        h1->sig = a_malloc_Sig;
        h1->serialNum = sn;
        h1->sz = sz1;
        h1->lin = a_lin;
        h1->fil = a_fil;
        return h1 + 1;
    #endif
}

a_static intptr_t a_malloc_totalSiz(_argDef_  intptr_t *pn)
{
    intptr_t s = 0;
    #if (a_DbgLv >= 2)
        (void) a_fil; (void) a_lin;
        if (a_malloc_hed0->lnk->prv != NULL) {
            a_DoublyLinkList *t = a_malloc_hed0->lnk->nxt;
            for (;;) {
                a_malloc_Header *h = (a_malloc_Header *) t;
                if (h->sz < 0) break;
                s += h->sz;
                t = t->nxt;
            }
        }
    #endif
    if (pn != NULL) *pn = a_malloc_hed0->lin;
    return s;
}

a_static void a_malloc_debugList(_argDef)
{
    #if (a_DbgLv >= 2)
        fprintf(stderr, "%s(%d): malloc_debugList()\n", a_fil, a_lin);
        if (a_malloc_hed0->lnk->prv != NULL) {
            a_DoublyLinkList *t = a_malloc_hed0->lnk->nxt;
            for (;;) {
                a_malloc_Header *h = (a_malloc_Header *) t;
                if (h->sz < 0) break;
                fprintf(stderr, "  [p:%08x sz:%d / %s(%d)]\n", (int) (intptr_t) (h + 1), h->sz, h->fil, h->lin);
                t = t->nxt;
            }
        }
    #endif
}
↑

(2) DoublyLinkList

↑

(3) malloc_, free_, realloc_

↑

(4) 使い方

#define a_Version 1
#include <acl4.c>

int main()
{
    char *p = malloc_(_arg_  12);
    char *q = malloc_(_arg_  34);
    char *r = malloc_(_arg_  56);
    char *s = malloc_(_arg_  78);
    free_(_arg_ q, 34);
    r = realloc_(_arg_  r, 56, 90);
    a_malloc_debugList(_arg);
    return 0;
}
>t0002a
t0002a.c(12): malloc_debugList()
  [p:00d2cb38 sz:12 / t0002a.c(6)]
  [p:00d330e8 sz:90 / t0002a.c(11)]
  [p:00d33070 sz:78 / t0002a.c(9)]
↑

(5)

↑

(99) 更新履歴

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS