12
12
You should have received a copy of the GNU General Public License
13
13
along with this program; if not, write to the Free Software
14
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA */
14
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA */
16
16
/* remove current record in heap-database */
18
#include "heap_priv.h"
20
int heap_delete(HP_INFO *info, const unsigned char *record)
20
int heap_delete(HP_INFO *info, const uchar *record)
23
HP_SHARE *share=info->getShare();
23
HP_SHARE *share=info->s;
24
24
HP_KEYDEF *keydef, *end, *p_lastinx;
28
28
if (info->opt_flag & READ_CHECK_USED)
29
return(errno); /* Record changed */
29
return(my_errno); /* Record changed */
32
32
if ( --(share->records) < share->blength >> 1) share->blength>>=1;
33
33
pos=info->current_ptr;
35
35
p_lastinx = share->keydef + info->lastinx;
36
for (keydef = share->keydef, end = keydef + share->keys; keydef < end;
36
for (keydef = share->keydef, end = keydef + share->keys; keydef < end;
39
if (hp_delete_key(info, keydef, record, pos, keydef == p_lastinx))
39
if ((*keydef->delete_key)(info, keydef, record, pos, keydef == p_lastinx))
43
43
info->update=HA_STATE_DELETED;
44
hp_free_chunks(&share->recordspace, pos);
44
*((uchar**) pos)=share->del_link;
46
pos[share->reclength]=0; /* Record deleted */
45
48
info->current_hash_ptr=0;
49
52
if (++(share->records) == share->blength)
50
53
share->blength+= share->blength;
59
Remove one key from rb-tree
62
int hp_rb_delete_key(HP_INFO *info, register HP_KEYDEF *keyinfo,
63
const uchar *record, uchar *recpos, int flag)
65
heap_rb_param custom_arg;
70
info->last_pos= NULL; /* For heap_rnext/heap_rprev */
72
custom_arg.keyseg= keyinfo->seg;
73
custom_arg.key_length= hp_rb_make_key(keyinfo, info->recbuf, record, recpos);
74
custom_arg.search_flag= SEARCH_SAME;
75
old_allocated= keyinfo->rb_tree.allocated;
76
res= tree_delete(&keyinfo->rb_tree, info->recbuf, custom_arg.key_length,
78
info->s->index_length-= (old_allocated - keyinfo->rb_tree.allocated);
71
99
int hp_delete_key(HP_INFO *info, register HP_KEYDEF *keyinfo,
72
const unsigned char *record, unsigned char *recpos, int flag)
100
const uchar *record, uchar *recpos, int flag)
74
uint32_t blength,pos2,pos_hashnr,lastpos_hashnr;
102
ulong blength,pos2,pos_hashnr,lastpos_hashnr;
75
103
HASH_INFO *lastpos,*gpos,*pos,*pos3,*empty,*last_ptr;
76
HP_SHARE *share=info->getShare();
104
HP_SHARE *share=info->s;
78
106
blength=share->blength;
79
107
if (share->records+1 == blength)
80
108
blength+= blength;
82
/* find the very last HASH_INFO pointer in the index */
83
/* note that records has already been decremented */
84
109
lastpos=hp_find_hash(&keyinfo->block,share->records);
110
135
info->current_ptr = last_ptr ? last_ptr->ptr_to_rec : 0;
114
/* gpos says we have previous HASH_INFO, change previous to point to next, this way unlinking "empty" */
115
gpos->next_key=pos->next_key;
139
gpos->next_key=pos->next_key; /* unlink current ptr */
117
140
else if (pos->next_key)
119
/* no previous gpos, this pos is the first in the list and it has pointer to "next" */
120
/* move next HASH_INFO data to our pos, to free up space at the next position */
121
/* remember next pos as "empty", nobody refers to "empty" at this point */
122
142
empty=pos->next_key;
123
143
pos->ptr_to_rec=empty->ptr_to_rec;
124
144
pos->next_key=empty->next_key;
128
/* this was the only HASH_INFO at this position */
129
147
keyinfo->hash_buckets--;
132
149
if (empty == lastpos) /* deleted last hash key */