Распределение памяти для выделения и освобождения блоков памяти внутри запрошенного пула - C (СИ) - Ответ 1001416

# include <stdio.h>
# include <stdlib.h>
# include <math.h>
short int  ident[256];
typedef char block[1024];
block* megablock;
 
void givemem()
{
    int x;
    megablock=(block*)malloc(1024);
    for (x=0;x<=127;x++) ident[x]=0x00;
    printf("Adress 0=%p\n",megablock);
}
 
int curposit(short int mask,short int y)
{
    short int x;
    for (x=0;(x<=7)&&((mask>>=1)!=0);x++);
    return x+y*8;
}
 
void mark(int devi,int len)
{
    short int x,y;
    int z;
    y=(devi+len-1)/8;
    for(z=devi;z<=(devi+len-1);z++) {x=1;ident[z/8]=ident[z/8]|(x<<(z%8));}
    x=1;
    ident[y+128]=ident[y+128]|(short int)(x<<((z-1)%8));
}
 
char *give(int size)
{
int blc=((size-1)/1024)+1,rblock,freeblock=0,oldpos=-1,oldrblock=1025;
printf("\nbnc=%d\n",blc);
    short int curblock;
    for (int x=0;x<=127;x++){
    for (short int mask=1;mask<=128;mask<<=1)
    {
    curblock=ident[x]&mask;
    if (curblock==0) freeblock=freeblock+1; 
    else
    {
        rblock=freeblock-blc;
        if (rblock==0)
        {
        printf("\n1)Videlil%d",curposit(mask,x)-blc);
        mark(curposit(mask,x)-blc,blc);
        return (char*)(megablock+curposit(mask,x)-blc);
        }
        if (rblock>0)
        {
        if (oldrblock>rblock) 
        {
            oldrblock=rblock;
            oldpos=curposit(mask,x)-freeblock;
//          printf("test%d  %d",oldrblock,oldpos);
        }
        }
        freeblock=0;
    }
    }}
    rblock=freeblock-blc;
    if (rblock==0)
        {
        printf("\n3)Videlil%d",1024-blc);
        mark(1024-blc,blc);
        return (char*)(megablock+1024-blc);
        }
        if (rblock>0)
        {
        if (oldrblock>rblock) 
        {
            oldpos=1024-freeblock;
            printf("\n4)oldpos=%d",oldpos);
            mark(oldpos,blc);
            return (char*)(megablock+oldpos);
        }
        }
        else if (oldpos>=0) return (char*)(megablock+oldpos);
    return NULL;
}
 
void freem(void* thism)
{
    int raz=(int)((char*)thism-(char*)megablock),x;
//    printf("\nraz=%d",raz/1024);
    for(x=raz/1024;((ident[128+x/8]&(1<<(x%8)))==0)&&(x<=1023);x++){ident[x/8]=ident[x/8]&~(1<<(x%8));}
//    printf("xxx=%d\n",x);
    ident[x/8]=ident[x/8]&~(1<<(x%8));
    ident[x/8+128]=ident[x/8+128]&~(1<<(x%8));
}
 
int main() 
{
    int x;
    givemem();
    char*vvv=(char*)give(102);
    //char*vvv1=(char*)give(1024*4);
    //char*vvv2=(char*)give(1024*5);
    for(x=0; x<=255;x++)printf("x=%d  vol=%d\n",x,ident[x]);
    //printf("\nOtvet=%p",vvv);
    //freem(vvv1);
    freem(vvv);
    //char*vvv3=(char*)give(1024*5);
    //freem(vvv2);
    for(x=0; x<=255;x++)printf("x=%d  vol=%d\n",x,ident[x]);
    //printf("\nOtvet=%p",vvv2);
    //freem(vvv);
    free(megablock);
    printf("\nThe End\n");
    return 0;
}