52 lines
1.6 KiB
C
52 lines
1.6 KiB
C
|
/****************************************************************
|
||
|
* *
|
||
|
* 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);
|
||
|
}
|