fis-gtm/sr_port/zr_get_free.c

52 lines
1.6 KiB
C
Raw Permalink Normal View History

/****************************************************************
* *
* Copyright 2001, 2009 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
#include "mdef.h"
#include "gtm_string.h"
#include "rtnhdr.h"
#include "zbreak.h"
zbrk_struct *zr_get_free(z_records *zrecs, zb_code *addr)
{
z_records temp;
zbrk_struct *z_ptr;
/* NOTE: records are stored by decreasing addresses */
assert(zrecs->free < zrecs->end);
for (z_ptr = zrecs->beg; z_ptr < zrecs->free; z_ptr++)
{
if (z_ptr->mpc == addr)
return (z_ptr);
if (z_ptr->mpc < addr) /* insert here */
break;
}
assert(z_ptr == zrecs->free || z_ptr->mpc < addr);
if (1 == zrecs->end - zrecs->free) /* expand if necessary */
{
temp = *zrecs;
zr_init(zrecs, 2 * (int)(zrecs->end - zrecs->beg));
assert(2 * (temp.end - temp.beg) == (zrecs->end - zrecs->beg));
memcpy((char *)zrecs->beg, (char *)temp.beg, (temp.free - temp.beg) * SIZEOF(zbrk_struct));
assert(zrecs->free == zrecs->beg);
zrecs->free += (temp.free - temp.beg);
z_ptr = zrecs->beg + (z_ptr - temp.beg);
free(temp.beg);
}
/* shift records down into the bottom spot which was allocated */
memmove((char *)(z_ptr + 1), (char *)z_ptr, (zrecs->free - z_ptr) * SIZEOF(zbrk_struct));
memset((char *)z_ptr, 0, SIZEOF(zbrk_struct));
z_ptr->mpc = addr;
zrecs->free++;
return (z_ptr);
}