← Back to branch summary

~drizzle-trunk/drizzle/development

« back to all changes in this revision

Viewing changes to storage/myisam/mi_write.c

  • Committer: brian
  • Date: 2008-06-25 05:29:13 UTC
  • Revision ID: brian@localhost.localdomain-20080625052913-6upwo0jsrl4lnapl
clean slate

Show diffs side-by-side

added added

removed removed

Lines of Context:
storage/myisam/mi_write.c
11
11
 
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 */
15
15
 
16
16
/* Write a row to a MyISAM table */
17
17
 
18
 
#include "myisam_priv.h"
19
 
 
20
 
#include "drizzled/internal/m_string.h"
21
 
#include <drizzled/util/test.h>
22
 
 
23
 
using namespace drizzled;
 
18
#include "fulltext.h"
 
19
#include "rt_index.h"
24
20
 
25
21
#define MAX_POINTER_LENGTH 8
26
22
 
27
23
        /* Functions declared in this file */
28
24
 
29
25
static int w_search(MI_INFO *info,MI_KEYDEF *keyinfo,
30
 
                    uint32_t comp_flag, unsigned char *key,
31
 
                    uint32_t key_length, internal::my_off_t pos, unsigned char *father_buff,
32
 
                    unsigned char *father_keypos, internal::my_off_t father_page,
33
 
                    bool insert_last);
34
 
static int _mi_balance_page(MI_INFO *info,MI_KEYDEF *keyinfo,unsigned char *key,
35
 
                            unsigned char *curr_buff,unsigned char *father_buff,
36
 
                            unsigned char *father_keypos,internal::my_off_t father_page);
37
 
static unsigned char *_mi_find_last_pos(MI_KEYDEF *keyinfo, unsigned char *page,
38
 
                                unsigned char *key, uint32_t *return_key_length,
39
 
                                unsigned char **after_key);
40
 
int _mi_ck_write_tree(register MI_INFO *info, uint32_t keynr,unsigned char *key,
41
 
                      uint32_t key_length);
42
 
int _mi_ck_write_btree(register MI_INFO *info, uint32_t keynr,unsigned char *key,
43
 
                       uint32_t key_length);
 
26
                    uint comp_flag, uchar *key,
 
27
                    uint key_length, my_off_t pos, uchar *father_buff,
 
28
                    uchar *father_keypos, my_off_t father_page,
 
29
                    my_bool insert_last);
 
30
static int _mi_balance_page(MI_INFO *info,MI_KEYDEF *keyinfo,uchar *key,
 
31
                            uchar *curr_buff,uchar *father_buff,
 
32
                            uchar *father_keypos,my_off_t father_page);
 
33
static uchar *_mi_find_last_pos(MI_KEYDEF *keyinfo, uchar *page,
 
34
                                uchar *key, uint *return_key_length,
 
35
                                uchar **after_key);
 
36
int _mi_ck_write_tree(register MI_INFO *info, uint keynr,uchar *key,
 
37
                      uint key_length);
 
38
int _mi_ck_write_btree(register MI_INFO *info, uint keynr,uchar *key,
 
39
                       uint key_length);
44
40
 
45
41
        /* Write new record to database */
46
42
 
47
 
int mi_write(MI_INFO *info, unsigned char *record)
 
43
int mi_write(MI_INFO *info, uchar *record)
48
44
{
49
45
  MYISAM_SHARE *share=info->s;
50
 
  uint32_t i;
 
46
  uint i;
51
47
  int save_errno;
52
 
  internal::my_off_t filepos;
53
 
  unsigned char *buff;
54
 
  bool lock_tree= share->concurrent_insert;
 
48
  my_off_t filepos;
 
49
  uchar *buff;
 
50
  my_bool lock_tree= share->concurrent_insert;
 
51
  DBUG_ENTER("mi_write");
 
52
  DBUG_PRINT("enter",("isam: %d  data: %d",info->s->kfile,info->dfile));
55
53
 
 
54
  DBUG_EXECUTE_IF("myisam_pretend_crashed_table_on_usage",
 
55
                  mi_print_error(info->s, HA_ERR_CRASHED);
 
56
                  DBUG_RETURN(my_errno= HA_ERR_CRASHED););
56
57
  if (share->options & HA_OPTION_READ_ONLY_DATA)
57
58
  {
58
 
    return(errno=EACCES);
 
59
    DBUG_RETURN(my_errno=EACCES);
59
60
  }
60
61
  if (_mi_readinfo(info,F_WRLCK,1))
61
 
    return(errno);
 
62
    DBUG_RETURN(my_errno);
 
63
  dont_break();                         /* Dont allow SIGHUP or SIGINT */
 
64
#if !defined(NO_LOCKING) && defined(USE_RECORD_LOCK)
 
65
  if (!info->locked && my_lock(info->dfile,F_WRLCK,0L,F_TO_EOF,
 
66
                               MYF(MY_SEEK_NOT_DONE) | info->lock_wait))
 
67
    goto err;
 
68
#endif
62
69
  filepos= ((share->state.dellink != HA_OFFSET_ERROR &&
63
70
             !info->append_insert_at_end) ?
64
71
            share->state.dellink :
68
75
      share->base.records == (ha_rows) 1 &&
69
76
      info->state->records == (ha_rows) 1)
70
77
  {                                             /* System file */
71
 
    errno=HA_ERR_RECORD_FILE_FULL;
 
78
    my_errno=HA_ERR_RECORD_FILE_FULL;
72
79
    goto err2;
73
80
  }
74
81
  if (info->state->key_file_length >= share->base.margin_key_file_length)
75
82
  {
76
 
    errno=HA_ERR_INDEX_FILE_FULL;
 
83
    my_errno=HA_ERR_INDEX_FILE_FULL;
77
84
    goto err2;
78
85
  }
79
86
  if (_mi_mark_file_changed(info))
95
102
  {
96
103
    if (mi_is_key_active(share->state.key_map, i))
97
104
    {
98
 
      bool local_lock_tree= (lock_tree &&
 
105
      my_bool local_lock_tree= (lock_tree &&
99
106
                                !(info->bulk_insert &&
100
107
                                  is_tree_inited(&info->bulk_insert[i])));
101
108
      if (local_lock_tree)
102
109
      {
 
110
        rw_wrlock(&share->key_root_lock[i]);
103
111
        share->keyinfo[i].version++;
104
112
      }
 
113
      if (share->keyinfo[i].flag & HA_FULLTEXT )
 
114
      {
 
115
        if (_mi_ft_add(info,i, buff, record, filepos))
 
116
        {
 
117
          if (local_lock_tree)
 
118
            rw_unlock(&share->key_root_lock[i]);
 
119
          DBUG_PRINT("error",("Got error: %d on write",my_errno));
 
120
          goto err;
 
121
        }
 
122
      }
 
123
      else
105
124
      {
106
125
        if (share->keyinfo[i].ck_insert(info,i,buff,
107
126
                        _mi_make_key(info,i,buff,record,filepos)))
108
127
        {
 
128
          if (local_lock_tree)
 
129
            rw_unlock(&share->key_root_lock[i]);
 
130
          DBUG_PRINT("error",("Got error: %d on write",my_errno));
109
131
          goto err;
110
132
        }
111
133
      }
112
134
 
113
135
      /* The above changed info->lastkey2. Inform mi_rnext_same(). */
114
136
      info->update&= ~HA_STATE_RNEXT_SAME;
 
137
 
 
138
      if (local_lock_tree)
 
139
        rw_unlock(&share->key_root_lock[i]);
115
140
    }
116
141
  }
117
142
  if (share->calc_checksum)
129
154
                 HA_STATE_ROW_CHANGED);
130
155
  info->state->records++;
131
156
  info->lastpos=filepos;
132
 
  _mi_writeinfo(info, WRITEINFO_UPDATE_KEYFILE);
 
157
  myisam_log_record(MI_LOG_WRITE,info,record,filepos,0);
 
158
  VOID(_mi_writeinfo(info, WRITEINFO_UPDATE_KEYFILE));
 
159
  if (info->invalidator != 0)
 
160
  {
 
161
    DBUG_PRINT("info", ("invalidator... '%s' (update)", info->filename));
 
162
    (*info->invalidator)(info->filename);
 
163
    info->invalidator=0;
 
164
  }
133
165
 
134
166
  /*
135
167
    Update status of the table. We need to do so after each row write
139
171
    not critical to use outdated share->is_log_table value (2) locking
140
172
    mutex here for every write is too expensive.
141
173
  */
142
 
  if (share->is_log_table) // Log table do not exist in Drizzle
143
 
    assert(0);
 
174
  if (share->is_log_table)
 
175
    mi_update_status((void*) info);
144
176
 
145
 
  return(0);
 
177
  allow_break();                                /* Allow SIGHUP & SIGINT */
 
178
  DBUG_RETURN(0);
146
179
 
147
180
err:
148
 
  save_errno=errno;
149
 
  if (errno == HA_ERR_FOUND_DUPP_KEY || errno == HA_ERR_RECORD_FILE_FULL ||
150
 
      errno == HA_ERR_NULL_IN_SPATIAL || errno == HA_ERR_OUT_OF_MEM)
 
181
  save_errno=my_errno;
 
182
  if (my_errno == HA_ERR_FOUND_DUPP_KEY || my_errno == HA_ERR_RECORD_FILE_FULL ||
 
183
      my_errno == HA_ERR_NULL_IN_SPATIAL || my_errno == HA_ERR_OUT_OF_MEM)
151
184
  {
152
185
    if (info->bulk_insert)
153
186
    {
154
 
      uint32_t j;
 
187
      uint j;
155
188
      for (j=0 ; j < share->base.keys ; j++)
156
189
        mi_flush_bulk_insert(info, j);
157
190
    }
160
193
    {
161
194
      if (mi_is_key_active(share->state.key_map, i))
162
195
      {
 
196
        my_bool local_lock_tree= (lock_tree &&
 
197
                                  !(info->bulk_insert &&
 
198
                                    is_tree_inited(&info->bulk_insert[i])));
 
199
        if (local_lock_tree)
 
200
          rw_wrlock(&share->key_root_lock[i]);
 
201
        if (share->keyinfo[i].flag & HA_FULLTEXT)
 
202
        {
 
203
          if (_mi_ft_del(info,i, buff,record,filepos))
 
204
          {
 
205
            if (local_lock_tree)
 
206
              rw_unlock(&share->key_root_lock[i]);
 
207
            break;
 
208
          }
 
209
        }
 
210
        else
163
211
        {
164
 
          uint32_t key_length=_mi_make_key(info,i,buff,record,filepos);
 
212
          uint key_length=_mi_make_key(info,i,buff,record,filepos);
165
213
          if (_mi_ck_delete(info,i,buff,key_length))
166
214
          {
 
215
            if (local_lock_tree)
 
216
              rw_unlock(&share->key_root_lock[i]);
167
217
            break;
168
218
          }
169
219
        }
 
220
        if (local_lock_tree)
 
221
          rw_unlock(&share->key_root_lock[i]);
170
222
      }
171
223
    }
172
224
  }
176
228
    mi_mark_crashed(info);
177
229
  }
178
230
  info->update= (HA_STATE_CHANGED | HA_STATE_WRITTEN | HA_STATE_ROW_CHANGED);
179
 
  errno=save_errno;
 
231
  my_errno=save_errno;
180
232
err2:
181
 
  save_errno=errno;
182
 
  _mi_writeinfo(info,WRITEINFO_UPDATE_KEYFILE);
183
 
  return(errno=save_errno);
 
233
  save_errno=my_errno;
 
234
  myisam_log_record(MI_LOG_WRITE,info,record,filepos,my_errno);
 
235
  VOID(_mi_writeinfo(info,WRITEINFO_UPDATE_KEYFILE));
 
236
  allow_break();                        /* Allow SIGHUP & SIGINT */
 
237
  DBUG_RETURN(my_errno=save_errno);
184
238
} /* mi_write */
185
239
 
186
240
 
187
241
        /* Write one key to btree */
188
242
 
189
 
int _mi_ck_write(MI_INFO *info, uint32_t keynr, unsigned char *key, uint32_t key_length)
 
243
int _mi_ck_write(MI_INFO *info, uint keynr, uchar *key, uint key_length)
190
244
{
 
245
  DBUG_ENTER("_mi_ck_write");
 
246
 
191
247
  if (info->bulk_insert && is_tree_inited(&info->bulk_insert[keynr]))
192
248
  {
193
 
    return(_mi_ck_write_tree(info, keynr, key, key_length));
 
249
    DBUG_RETURN(_mi_ck_write_tree(info, keynr, key, key_length));
194
250
  }
195
251
  else
196
252
  {
197
 
    return(_mi_ck_write_btree(info, keynr, key, key_length));
 
253
    DBUG_RETURN(_mi_ck_write_btree(info, keynr, key, key_length));
198
254
  }
199
255
} /* _mi_ck_write */
200
256
 
203
259
 *                Normal insert code                                  *
204
260
 **********************************************************************/
205
261
 
206
 
int _mi_ck_write_btree(register MI_INFO *info, uint32_t keynr, unsigned char *key,
207
 
                       uint32_t key_length)
 
262
int _mi_ck_write_btree(register MI_INFO *info, uint keynr, uchar *key,
 
263
                       uint key_length)
208
264
{
209
 
  uint32_t error;
210
 
  uint32_t comp_flag;
 
265
  int error;
 
266
  uint comp_flag;
211
267
  MI_KEYDEF *keyinfo=info->s->keyinfo+keynr;
212
 
  internal::my_off_t  *root=&info->s->state.key_root[keynr];
 
268
  my_off_t  *root=&info->s->state.key_root[keynr];
 
269
  DBUG_ENTER("_mi_ck_write_btree");
213
270
 
214
271
  if (keyinfo->flag & HA_SORT_ALLOWS_SAME)
215
272
    comp_flag=SEARCH_BIGGER;                    /* Put after same key */
216
 
  else if (keyinfo->flag & (HA_NOSAME))
 
273
  else if (keyinfo->flag & (HA_NOSAME|HA_FULLTEXT))
217
274
  {
218
275
    comp_flag=SEARCH_FIND | SEARCH_UPDATE;      /* No duplicates */
219
276
    if (keyinfo->flag & HA_NULL_ARE_EQUAL)
224
281
 
225
282
  error=_mi_ck_real_write_btree(info, keyinfo, key, key_length,
226
283
                                root, comp_flag);
227
 
  return(error);
 
284
  if (info->ft1_to_ft2)
 
285
  {
 
286
    if (!error)
 
287
      error= _mi_ft_convert_to_ft2(info, keynr, key);
 
288
    delete_dynamic(info->ft1_to_ft2);
 
289
    my_free((uchar*)info->ft1_to_ft2, MYF(0));
 
290
    info->ft1_to_ft2=0;
 
291
  }
 
292
  DBUG_RETURN(error);
228
293
} /* _mi_ck_write_btree */
229
294
 
230
295
int _mi_ck_real_write_btree(MI_INFO *info, MI_KEYDEF *keyinfo,
231
 
    unsigned char *key, uint32_t key_length, internal::my_off_t *root, uint32_t comp_flag)
 
296
    uchar *key, uint key_length, my_off_t *root, uint comp_flag)
232
297
{
233
298
  int error;
 
299
  DBUG_ENTER("_mi_ck_real_write_btree");
234
300
  /* key_length parameter is used only if comp_flag is SEARCH_FIND */
235
301
  if (*root == HA_OFFSET_ERROR ||
236
302
      (error=w_search(info, keyinfo, comp_flag, key, key_length,
237
 
                      *root, (unsigned char *) 0, (unsigned char*) 0,
238
 
                      (internal::my_off_t) 0, 1)) > 0)
 
303
                      *root, (uchar *) 0, (uchar*) 0,
 
304
                      (my_off_t) 0, 1)) > 0)
239
305
    error=_mi_enlarge_root(info,keyinfo,key,root);
240
 
  return(error);
 
306
  DBUG_RETURN(error);
241
307
} /* _mi_ck_real_write_btree */
242
308
 
243
309
 
244
310
        /* Make a new root with key as only pointer */
245
311
 
246
 
int _mi_enlarge_root(MI_INFO *info, MI_KEYDEF *keyinfo, unsigned char *key,
247
 
                     internal::my_off_t *root)
 
312
int _mi_enlarge_root(MI_INFO *info, MI_KEYDEF *keyinfo, uchar *key,
 
313
                     my_off_t *root)
248
314
{
249
 
  uint32_t t_length,nod_flag;
 
315
  uint t_length,nod_flag;
250
316
  MI_KEY_PARAM s_temp;
251
317
  MYISAM_SHARE *share=info->s;
 
318
  DBUG_ENTER("_mi_enlarge_root");
252
319
 
253
320
  nod_flag= (*root != HA_OFFSET_ERROR) ?  share->base.key_reflength : 0;
254
321
  _mi_kpointer(info,info->buff+2,*root); /* if nod */
255
 
  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,(unsigned char*) 0,
256
 
                                (unsigned char*) 0, (unsigned char*) 0, key,&s_temp);
 
322
  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,(uchar*) 0,
 
323
                                (uchar*) 0, (uchar*) 0, key,&s_temp);
257
324
  mi_putint(info->buff,t_length+2+nod_flag,nod_flag);
258
325
  (*keyinfo->store_key)(keyinfo,info->buff+2+nod_flag,&s_temp);
259
326
  info->buff_used=info->page_changed=1;         /* info->buff is used */
260
327
  if ((*root= _mi_new(info,keyinfo,DFLT_INIT_HITS)) == HA_OFFSET_ERROR ||
261
328
      _mi_write_keypage(info,keyinfo,*root,DFLT_INIT_HITS,info->buff))
262
 
    return(-1);
263
 
  return(0);
 
329
    DBUG_RETURN(-1);
 
330
  DBUG_RETURN(0);
264
331
} /* _mi_enlarge_root */
265
332
 
266
333
 
272
339
        */
273
340
 
274
341
static int w_search(register MI_INFO *info, register MI_KEYDEF *keyinfo,
275
 
                    uint32_t comp_flag, unsigned char *key, uint32_t key_length, internal::my_off_t page,
276
 
                    unsigned char *father_buff, unsigned char *father_keypos,
277
 
                    internal::my_off_t father_page, bool insert_last)
 
342
                    uint comp_flag, uchar *key, uint key_length, my_off_t page,
 
343
                    uchar *father_buff, uchar *father_keypos,
 
344
                    my_off_t father_page, my_bool insert_last)
278
345
{
279
346
  int error,flag;
280
 
  uint32_t nod_flag, search_key_length;
281
 
  unsigned char *temp_buff,*keypos;
282
 
  unsigned char keybuff[MI_MAX_KEY_BUFF];
283
 
  bool was_last_key;
284
 
  internal::my_off_t next_page, dupp_key_pos;
 
347
  uint nod_flag, search_key_length;
 
348
  uchar *temp_buff,*keypos;
 
349
  uchar keybuff[MI_MAX_KEY_BUFF];
 
350
  my_bool was_last_key;
 
351
  my_off_t next_page, dupp_key_pos;
 
352
  DBUG_ENTER("w_search");
 
353
  DBUG_PRINT("enter",("page: %ld", (long) page));
285
354
 
286
355
  search_key_length= (comp_flag & SEARCH_FIND) ? key_length : USE_WHOLE_KEY;
287
 
  if (!(temp_buff= (unsigned char*) malloc(keyinfo->block_length+
288
 
                                           MI_MAX_KEY_BUFF*2)))
289
 
    return(-1);
 
356
  if (!(temp_buff= (uchar*) my_alloca((uint) keyinfo->block_length+
 
357
                                      MI_MAX_KEY_BUFF*2)))
 
358
    DBUG_RETURN(-1);
290
359
  if (!_mi_fetch_keypage(info,keyinfo,page,DFLT_INIT_HITS,temp_buff,0))
291
360
    goto err;
292
361
 
295
364
  nod_flag=mi_test_if_nod(temp_buff);
296
365
  if (flag == 0)
297
366
  {
298
 
    uint32_t tmp_key_length;
 
367
    uint tmp_key_length;
299
368
        /* get position to record with duplicated key */
300
369
    tmp_key_length=(*keyinfo->get_key)(keyinfo,nod_flag,&keypos,keybuff);
301
370
    if (tmp_key_length)
303
372
    else
304
373
      dupp_key_pos= HA_OFFSET_ERROR;
305
374
 
 
375
    if (keyinfo->flag & HA_FULLTEXT)
 
376
    {
 
377
      uint off;
 
378
      int  subkeys;
 
379
 
 
380
      get_key_full_length_rdonly(off, keybuff);
 
381
      subkeys=ft_sintXkorr(keybuff+off);
 
382
      comp_flag=SEARCH_SAME;
 
383
      if (subkeys >= 0)
 
384
      {
 
385
        /* normal word, one-level tree structure */
 
386
        flag=(*keyinfo->bin_search)(info, keyinfo, temp_buff, key,
 
387
                                    USE_WHOLE_KEY, comp_flag,
 
388
                                    &keypos, keybuff, &was_last_key);
 
389
      }
 
390
      else
 
391
      {
 
392
        /* popular word. two-level tree. going down */
 
393
        my_off_t root=dupp_key_pos;
 
394
        keyinfo=&info->s->ft2_keyinfo;
 
395
        get_key_full_length_rdonly(off, key);
 
396
        key+=off;
 
397
        keypos-=keyinfo->keylength+nod_flag; /* we'll modify key entry 'in vivo' */
 
398
        error=_mi_ck_real_write_btree(info, keyinfo, key, 0,
 
399
                                      &root, comp_flag);
 
400
        _mi_dpointer(info, keypos+HA_FT_WLEN, root);
 
401
        subkeys--; /* should there be underflow protection ? */
 
402
        DBUG_ASSERT(subkeys < 0);
 
403
        ft_intXstore(keypos, subkeys);
 
404
        if (!error)
 
405
          error=_mi_write_keypage(info,keyinfo,page,DFLT_INIT_HITS,temp_buff);
 
406
        my_afree((uchar*) temp_buff);
 
407
        DBUG_RETURN(error);
 
408
      }
 
409
    }
 
410
    else /* not HA_FULLTEXT, normal HA_NOSAME key */
306
411
    {
307
412
      info->dupp_key_pos= dupp_key_pos;
308
 
      free(temp_buff);
309
 
      errno=HA_ERR_FOUND_DUPP_KEY;
310
 
      return(-1);
 
413
      my_afree((uchar*) temp_buff);
 
414
      my_errno=HA_ERR_FOUND_DUPP_KEY;
 
415
      DBUG_RETURN(-1);
311
416
    }
312
417
  }
313
418
  if (flag == MI_FOUND_WRONG_KEY)
314
 
    return(-1);
 
419
    DBUG_RETURN(-1);
315
420
  if (!was_last_key)
316
421
    insert_last=0;
317
422
  next_page=_mi_kpos(nod_flag,keypos);
324
429
    if (_mi_write_keypage(info,keyinfo,page,DFLT_INIT_HITS,temp_buff))
325
430
      goto err;
326
431
  }
327
 
  free(temp_buff);
328
 
  return(error);
 
432
  my_afree((uchar*) temp_buff);
 
433
  DBUG_RETURN(error);
329
434
err:
330
 
  free(temp_buff);
331
 
  return (-1);
 
435
  my_afree((uchar*) temp_buff);
 
436
  DBUG_PRINT("exit",("Error: %d",my_errno));
 
437
  DBUG_RETURN (-1);
332
438
} /* w_search */
333
439
 
334
440
 
358
464
*/
359
465
 
360
466
int _mi_insert(register MI_INFO *info, register MI_KEYDEF *keyinfo,
361
 
               unsigned char *key, unsigned char *anc_buff, unsigned char *key_pos, unsigned char *key_buff,
362
 
               unsigned char *father_buff, unsigned char *father_key_pos, internal::my_off_t father_page,
363
 
               bool insert_last)
 
467
               uchar *key, uchar *anc_buff, uchar *key_pos, uchar *key_buff,
 
468
               uchar *father_buff, uchar *father_key_pos, my_off_t father_page,
 
469
               my_bool insert_last)
364
470
{
365
 
  uint32_t a_length,nod_flag;
 
471
  uint a_length,nod_flag;
366
472
  int t_length;
367
 
  unsigned char *endpos, *prev_key;
 
473
  uchar *endpos, *prev_key;
368
474
  MI_KEY_PARAM s_temp;
 
475
  DBUG_ENTER("_mi_insert");
 
476
  DBUG_PRINT("enter",("key_pos: 0x%lx", (long) key_pos));
 
477
  DBUG_EXECUTE("key",_mi_print_key(DBUG_FILE,keyinfo->seg,key,USE_WHOLE_KEY););
369
478
 
370
479
  nod_flag=mi_test_if_nod(anc_buff);
371
480
  a_length=mi_getint(anc_buff);
372
481
  endpos= anc_buff+ a_length;
373
 
  prev_key=(key_pos == anc_buff+2+nod_flag ? (unsigned char*) 0 : key_buff);
 
482
  prev_key=(key_pos == anc_buff+2+nod_flag ? (uchar*) 0 : key_buff);
374
483
  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,
375
 
                                (key_pos == endpos ? (unsigned char*) 0 : key_pos),
 
484
                                (key_pos == endpos ? (uchar*) 0 : key_pos),
376
485
                                prev_key, prev_key,
377
486
                                key,&s_temp);
378
 
 
 
487
#ifndef DBUG_OFF
 
488
  if (key_pos != anc_buff+2+nod_flag && (keyinfo->flag &
 
489
                                         (HA_BINARY_PACK_KEY | HA_PACK_KEY)))
 
490
  {
 
491
    DBUG_DUMP("prev_key",(uchar*) key_buff,_mi_keylength(keyinfo,key_buff));
 
492
  }
 
493
  if (keyinfo->flag & HA_PACK_KEY)
 
494
  {
 
495
    DBUG_PRINT("test",("t_length: %d  ref_len: %d",
 
496
                       t_length,s_temp.ref_length));
 
497
    DBUG_PRINT("test",("n_ref_len: %d  n_length: %d  key_pos: 0x%lx",
 
498
                       s_temp.n_ref_length,s_temp.n_length, (long) s_temp.key));
 
499
  }
 
500
#endif
379
501
  if (t_length > 0)
380
502
  {
381
503
    if (t_length >= keyinfo->maxlength*2+MAX_POINTER_LENGTH)
382
504
    {
383
505
      mi_print_error(info->s, HA_ERR_CRASHED);
384
 
      errno=HA_ERR_CRASHED;
385
 
      return(-1);
 
506
      my_errno=HA_ERR_CRASHED;
 
507
      DBUG_RETURN(-1);
386
508
    }
387
 
    internal::bmove_upp((unsigned char*) endpos+t_length,(unsigned char*) endpos,(uint) (endpos-key_pos));
 
509
    bmove_upp((uchar*) endpos+t_length,(uchar*) endpos,(uint) (endpos-key_pos));
388
510
  }
389
511
  else
390
512
  {
391
513
    if (-t_length >= keyinfo->maxlength*2+MAX_POINTER_LENGTH)
392
514
    {
393
515
      mi_print_error(info->s, HA_ERR_CRASHED);
394
 
      errno=HA_ERR_CRASHED;
395
 
      return(-1);
 
516
      my_errno=HA_ERR_CRASHED;
 
517
      DBUG_RETURN(-1);
396
518
    }
397
 
    memmove(key_pos, key_pos - t_length, endpos - key_pos + t_length);
 
519
    bmove(key_pos,key_pos-t_length,(uint) (endpos-key_pos)+t_length);
398
520
  }
399
521
  (*keyinfo->store_key)(keyinfo,key_pos,&s_temp);
400
522
  a_length+=t_length;
401
523
  mi_putint(anc_buff,a_length,nod_flag);
402
524
  if (a_length <= keyinfo->block_length)
403
525
  {
404
 
    return(0);                          /* There is room on page */
 
526
    if (keyinfo->block_length - a_length < 32 &&
 
527
        keyinfo->flag & HA_FULLTEXT && key_pos == endpos &&
 
528
        info->s->base.key_reflength <= info->s->base.rec_reflength &&
 
529
        info->s->options & (HA_OPTION_PACK_RECORD | HA_OPTION_COMPRESS_RECORD))
 
530
    {
 
531
      /*
 
532
        Normal word. One-level tree. Page is almost full.
 
533
        Let's consider converting.
 
534
        We'll compare 'key' and the first key at anc_buff
 
535
       */
 
536
      uchar *a=key, *b=anc_buff+2+nod_flag;
 
537
      uint alen, blen, ft2len=info->s->ft2_keyinfo.keylength;
 
538
      /* the very first key on the page is always unpacked */
 
539
      DBUG_ASSERT((*b & 128) == 0);
 
540
#if HA_FT_MAXLEN >= 127
 
541
      blen= mi_uint2korr(b); b+=2;
 
542
#else
 
543
      blen= *b++;
 
544
#endif
 
545
      get_key_length(alen,a);
 
546
      DBUG_ASSERT(info->ft1_to_ft2==0);
 
547
      if (alen == blen &&
 
548
          ha_compare_text(keyinfo->seg->charset, a, alen, b, blen, 0, 0)==0)
 
549
      {
 
550
        /* yup. converting */
 
551
        info->ft1_to_ft2=(DYNAMIC_ARRAY *)
 
552
          my_malloc(sizeof(DYNAMIC_ARRAY), MYF(MY_WME));
 
553
        my_init_dynamic_array(info->ft1_to_ft2, ft2len, 300, 50);
 
554
 
 
555
        /*
 
556
          now, adding all keys from the page to dynarray
 
557
          if the page is a leaf (if not keys will be deleted later)
 
558
        */
 
559
        if (!nod_flag)
 
560
        {
 
561
          /* let's leave the first key on the page, though, because
 
562
             we cannot easily dispatch an empty page here */
 
563
          b+=blen+ft2len+2;
 
564
          for (a=anc_buff+a_length ; b < a ; b+=ft2len+2)
 
565
            insert_dynamic(info->ft1_to_ft2, b);
 
566
 
 
567
          /* fixing the page's length - it contains only one key now */
 
568
          mi_putint(anc_buff,2+blen+ft2len+2,0);
 
569
        }
 
570
        /* the rest will be done when we're back from recursion */
 
571
      }
 
572
    }
 
573
    DBUG_RETURN(0);                             /* There is room on page */
405
574
  }
406
575
  /* Page is full */
407
576
  if (nod_flag)
408
577
    insert_last=0;
409
578
  if (!(keyinfo->flag & (HA_VAR_LENGTH_KEY | HA_BINARY_PACK_KEY)) &&
410
579
      father_buff && !insert_last)
411
 
    return(_mi_balance_page(info,keyinfo,key,anc_buff,father_buff,
 
580
    DBUG_RETURN(_mi_balance_page(info,keyinfo,key,anc_buff,father_buff,
412
581
                                 father_key_pos,father_page));
413
 
  return(_mi_split_page(info,keyinfo,key,anc_buff,key_buff, insert_last));
 
582
  DBUG_RETURN(_mi_split_page(info,keyinfo,key,anc_buff,key_buff, insert_last));
414
583
} /* _mi_insert */
415
584
 
416
585
 
417
586
        /* split a full page in two and assign emerging item to key */
418
587
 
419
588
int _mi_split_page(register MI_INFO *info, register MI_KEYDEF *keyinfo,
420
 
                   unsigned char *key, unsigned char *buff, unsigned char *key_buff,
421
 
                   bool insert_last_key)
 
589
                   uchar *key, uchar *buff, uchar *key_buff,
 
590
                   my_bool insert_last_key)
422
591
{
423
 
  uint32_t length,a_length,key_ref_length,t_length,nod_flag,key_length;
424
 
  unsigned char *key_pos,*pos, *after_key= NULL;
425
 
  internal::my_off_t new_pos;
 
592
  uint length,a_length,key_ref_length,t_length,nod_flag,key_length;
 
593
  uchar *key_pos,*pos, *after_key= NULL;
 
594
  my_off_t new_pos;
426
595
  MI_KEY_PARAM s_temp;
 
596
  DBUG_ENTER("mi_split_page");
 
597
  DBUG_DUMP("buff",(uchar*) buff,mi_getint(buff));
427
598
 
428
599
  if (info->s->keyinfo+info->lastinx == keyinfo)
429
600
    info->page_changed=1;                       /* Info->buff is used */
436
607
    key_pos=_mi_find_half_pos(nod_flag,keyinfo,buff,key_buff, &key_length,
437
608
                              &after_key);
438
609
  if (!key_pos)
439
 
    return(-1);
 
610
    DBUG_RETURN(-1);
440
611
 
441
612
  length=(uint) (key_pos-buff);
442
613
  a_length=mi_getint(buff);
445
616
  key_pos=after_key;
446
617
  if (nod_flag)
447
618
  {
 
619
    DBUG_PRINT("test",("Splitting nod"));
448
620
    pos=key_pos-nod_flag;
449
 
    memcpy(info->buff + 2, pos, nod_flag);
 
621
    memcpy((uchar*) info->buff+2,(uchar*) pos,(size_t) nod_flag);
450
622
  }
451
623
 
452
624
        /* Move middle item to key and pointer to new page */
453
625
  if ((new_pos=_mi_new(info,keyinfo,DFLT_INIT_HITS)) == HA_OFFSET_ERROR)
454
 
    return(-1);
 
626
    DBUG_RETURN(-1);
455
627
  _mi_kpointer(info,_mi_move_key(keyinfo,key,key_buff),new_pos);
456
628
 
457
629
        /* Store new page */
458
630
  if (!(*keyinfo->get_key)(keyinfo,nod_flag,&key_pos,key_buff))
459
 
    return(-1);
 
631
    DBUG_RETURN(-1);
460
632
 
461
 
  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,(unsigned char *) 0,
462
 
                                (unsigned char*) 0, (unsigned char*) 0,
 
633
  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,(uchar *) 0,
 
634
                                (uchar*) 0, (uchar*) 0,
463
635
                                key_buff, &s_temp);
464
636
  length=(uint) ((buff+a_length)-key_pos);
465
 
  memcpy(info->buff+key_ref_length+t_length, key_pos, length);
 
637
  memcpy((uchar*) info->buff+key_ref_length+t_length,(uchar*) key_pos,
 
638
         (size_t) length);
466
639
  (*keyinfo->store_key)(keyinfo,info->buff+key_ref_length,&s_temp);
467
640
  mi_putint(info->buff,length+t_length+key_ref_length,nod_flag);
468
641
 
469
642
  if (_mi_write_keypage(info,keyinfo,new_pos,DFLT_INIT_HITS,info->buff))
470
 
    return(-1);
471
 
  return(2);                            /* Middle key up */
 
643
    DBUG_RETURN(-1);
 
644
  DBUG_DUMP("key",(uchar*) key,_mi_keylength(keyinfo,key));
 
645
  DBUG_RETURN(2);                               /* Middle key up */
472
646
} /* _mi_split_page */
473
647
 
474
648
 
480
654
          after_key will contain the position to where the next key starts
481
655
        */
482
656
 
483
 
unsigned char *_mi_find_half_pos(uint32_t nod_flag, MI_KEYDEF *keyinfo, unsigned char *page,
484
 
                         unsigned char *key, uint32_t *return_key_length,
485
 
                         unsigned char **after_key)
 
657
uchar *_mi_find_half_pos(uint nod_flag, MI_KEYDEF *keyinfo, uchar *page,
 
658
                         uchar *key, uint *return_key_length,
 
659
                         uchar **after_key)
486
660
{
487
 
  uint32_t keys,length,key_ref_length;
488
 
  unsigned char *end,*lastpos;
 
661
  uint keys,length,key_ref_length;
 
662
  uchar *end,*lastpos;
 
663
  DBUG_ENTER("_mi_find_half_pos");
489
664
 
490
665
  key_ref_length=2+nod_flag;
491
666
  length=mi_getint(page)-key_ref_length;
500
675
    end=page+keys*key_ref_length;
501
676
    *after_key=end+key_ref_length;
502
677
    memcpy(key,end,key_ref_length);
503
 
    return(end);
 
678
    DBUG_RETURN(end);
504
679
  }
505
680
 
506
681
  end=page+length/2-key_ref_length;             /* This is aprox. half */
509
684
  {
510
685
    lastpos=page;
511
686
    if (!(length=(*keyinfo->get_key)(keyinfo,nod_flag,&page,key)))
512
 
      return(0);
 
687
      DBUG_RETURN(0);
513
688
  } while (page < end);
514
689
  *return_key_length=length;
515
690
  *after_key=page;
516
 
  return(lastpos);
 
691
  DBUG_PRINT("exit",("returns: 0x%lx  page: 0x%lx  half: 0x%lx",
 
692
                     (long) lastpos, (long) page, (long) end));
 
693
  DBUG_RETURN(lastpos);
517
694
} /* _mi_find_half_pos */
518
695
 
519
696
 
523
700
          key will contain the last key
524
701
        */
525
702
 
526
 
static unsigned char *_mi_find_last_pos(MI_KEYDEF *keyinfo, unsigned char *page,
527
 
                                unsigned char *key, uint32_t *return_key_length,
528
 
                                unsigned char **after_key)
 
703
static uchar *_mi_find_last_pos(MI_KEYDEF *keyinfo, uchar *page,
 
704
                                uchar *key, uint *return_key_length,
 
705
                                uchar **after_key)
529
706
{
530
 
  uint32_t keys;
531
 
  uint32_t length;
532
 
  uint32_t last_length= 0;
533
 
  uint32_t key_ref_length;
534
 
  unsigned char *end, *lastpos, *prevpos= NULL;
535
 
  unsigned char key_buff[MI_MAX_KEY_BUFF];
 
707
  uint keys, length, last_length, key_ref_length;
 
708
  uchar *end, *lastpos, *prevpos= NULL;
 
709
  uchar key_buff[MI_MAX_KEY_BUFF];
 
710
  DBUG_ENTER("_mi_find_last_pos");
536
711
 
537
712
  key_ref_length=2;
538
713
  length=mi_getint(page)-key_ref_length;
546
721
    end=page+keys*length;
547
722
    *after_key=end+length;
548
723
    memcpy(key,end,length);
549
 
    return(end);
 
724
    DBUG_RETURN(end);
550
725
  }
551
726
 
552
727
  end= page + length - key_ref_length;
561
736
    if (!(length=(*keyinfo->get_key)(keyinfo,0,&page,key_buff)))
562
737
    {
563
738
      mi_print_error(keyinfo->share, HA_ERR_CRASHED);
564
 
      errno=HA_ERR_CRASHED;
565
 
      return(0);
 
739
      my_errno=HA_ERR_CRASHED;
 
740
      DBUG_RETURN(0);
566
741
    }
567
742
  }
568
743
  *return_key_length=last_length;
569
744
  *after_key=lastpos;
570
 
  return(prevpos);
 
745
  DBUG_PRINT("exit",("returns: 0x%lx  page: 0x%lx  end: 0x%lx",
 
746
                     (long) prevpos,(long) page,(long) end));
 
747
  DBUG_RETURN(prevpos);
571
748
} /* _mi_find_last_pos */
572
749
 
573
750
 
575
752
        /* returns 0 if balance was done */
576
753
 
577
754
static int _mi_balance_page(register MI_INFO *info, MI_KEYDEF *keyinfo,
578
 
                            unsigned char *key, unsigned char *curr_buff, unsigned char *father_buff,
579
 
                            unsigned char *father_key_pos, internal::my_off_t father_page)
 
755
                            uchar *key, uchar *curr_buff, uchar *father_buff,
 
756
                            uchar *father_key_pos, my_off_t father_page)
580
757
{
581
 
  bool right;
582
 
  uint32_t k_length,father_length,father_keylength,nod_flag,curr_keylength,
 
758
  my_bool right;
 
759
  uint k_length,father_length,father_keylength,nod_flag,curr_keylength,
583
760
       right_length,left_length,new_right_length,new_left_length,extra_length,
584
761
       length,keys;
585
 
  unsigned char *pos,*buff,*extra_buff;
586
 
  internal::my_off_t next_page,new_pos;
587
 
  unsigned char tmp_part_key[MI_MAX_KEY_BUFF];
 
762
  uchar *pos,*buff,*extra_buff;
 
763
  my_off_t next_page,new_pos;
 
764
  uchar tmp_part_key[MI_MAX_KEY_BUFF];
 
765
  DBUG_ENTER("_mi_balance_page");
588
766
 
589
767
  k_length=keyinfo->keylength;
590
768
  father_length=mi_getint(father_buff);
601
779
    next_page= _mi_kpos(info->s->base.key_reflength,
602
780
                        father_key_pos+father_keylength);
603
781
    buff=info->buff;
 
782
    DBUG_PRINT("test",("use right page: %lu", (ulong) next_page));
604
783
  }
605
784
  else
606
785
  {
609
788
    next_page= _mi_kpos(info->s->base.key_reflength,father_key_pos);
610
789
                                        /* Fix that curr_buff is to left */
611
790
    buff=curr_buff; curr_buff=info->buff;
 
791
    DBUG_PRINT("test",("use left page: %lu", (ulong) next_page));
612
792
  }                                     /* father_key_pos ptr to parting key */
613
793
 
614
794
  if (!_mi_fetch_keypage(info,keyinfo,next_page,DFLT_INIT_HITS,info->buff,0))
615
795
    goto err;
 
796
  DBUG_DUMP("next",(uchar*) info->buff,mi_getint(info->buff));
616
797
 
617
798
        /* Test if there is room to share keys */
618
799
 
631
812
    if (left_length < new_left_length)
632
813
    {                                           /* Move keys buff -> leaf */
633
814
      pos=curr_buff+left_length;
634
 
      memcpy(pos, father_key_pos, k_length);
635
 
      length= new_left_length - left_length - k_length;
636
 
      memcpy(pos+k_length, buff+2, length);
 
815
      memcpy((uchar*) pos,(uchar*) father_key_pos, (size_t) k_length);
 
816
      memcpy((uchar*) pos+k_length, (uchar*) buff+2,
 
817
             (size_t) (length=new_left_length - left_length - k_length));
637
818
      pos=buff+2+length;
638
 
      memcpy(father_key_pos, pos, k_length);
639
 
      memmove(buff+2, pos+k_length, new_right_length);
 
819
      memcpy((uchar*) father_key_pos,(uchar*) pos,(size_t) k_length);
 
820
      bmove((uchar*) buff+2,(uchar*) pos+k_length,new_right_length);
640
821
    }
641
822
    else
642
823
    {                                           /* Move keys -> buff */
643
824
 
644
 
      internal::bmove_upp((unsigned char*) buff+new_right_length,(unsigned char*) buff+right_length,
 
825
      bmove_upp((uchar*) buff+new_right_length,(uchar*) buff+right_length,
645
826
                right_length-2);
646
827
      length=new_right_length-right_length-k_length;
647
 
      memcpy(buff+2+length,father_key_pos, k_length);
 
828
      memcpy((uchar*) buff+2+length,father_key_pos,(size_t) k_length);
648
829
      pos=curr_buff+new_left_length;
649
 
      memcpy(father_key_pos, pos, k_length);
650
 
      memcpy(buff+2, pos+k_length, length);
 
830
      memcpy((uchar*) father_key_pos,(uchar*) pos,(size_t) k_length);
 
831
      memcpy((uchar*) buff+2,(uchar*) pos+k_length,(size_t) length);
651
832
    }
652
833
 
653
834
    if (_mi_write_keypage(info,keyinfo,next_page,DFLT_INIT_HITS,info->buff) ||
654
835
        _mi_write_keypage(info,keyinfo,father_page,DFLT_INIT_HITS,father_buff))
655
836
      goto err;
656
 
    return(0);
 
837
    DBUG_RETURN(0);
657
838
  }
658
839
 
659
840
        /* curr_buff[] and buff[] are full, lets split and make new nod */
664
845
    new_left_length-=curr_keylength;
665
846
  extra_length=nod_flag+left_length+right_length-
666
847
    new_left_length-new_right_length-curr_keylength;
 
848
  DBUG_PRINT("info",("left_length: %d  right_length: %d  new_left_length: %d  new_right_length: %d  extra_length: %d",
 
849
                     left_length, right_length,
 
850
                     new_left_length, new_right_length,
 
851
                     extra_length));
667
852
  mi_putint(curr_buff,new_left_length,nod_flag);
668
853
  mi_putint(buff,new_right_length,nod_flag);
669
854
  mi_putint(extra_buff,extra_length+2,nod_flag);
670
855
 
671
856
  /* move first largest keys to new page  */
672
857
  pos=buff+right_length-extra_length;
673
 
  memcpy(extra_buff+2, pos, extra_length);
 
858
  memcpy((uchar*) extra_buff+2,pos,(size_t) extra_length);
674
859
  /* Save new parting key */
675
860
  memcpy(tmp_part_key, pos-k_length,k_length);
676
861
  /* Make place for new keys */
677
 
  internal::bmove_upp((unsigned char*) buff+new_right_length,(unsigned char*) pos-k_length,
 
862
  bmove_upp((uchar*) buff+new_right_length,(uchar*) pos-k_length,
678
863
            right_length-extra_length-k_length-2);
679
864
  /* Copy keys from left page */
680
865
  pos= curr_buff+new_left_length;
681
 
  length= left_length - new_left_length - k_length;
682
 
  memcpy(buff+2, pos+k_length, length);
 
866
  memcpy((uchar*) buff+2,(uchar*) pos+k_length,
 
867
         (size_t) (length=left_length-new_left_length-k_length));
683
868
  /* Copy old parting key */
684
 
  memcpy(buff+2+length, father_key_pos, k_length);
 
869
  memcpy((uchar*) buff+2+length,father_key_pos,(size_t) k_length);
685
870
 
686
871
  /* Move new parting keys up to caller */
687
 
  memcpy((right ? key : father_key_pos), pos, k_length);
688
 
  memcpy((right ? father_key_pos : key), tmp_part_key, k_length);
 
872
  memcpy((uchar*) (right ? key : father_key_pos),pos,(size_t) k_length);
 
873
  memcpy((uchar*) (right ? father_key_pos : key),tmp_part_key, k_length);
689
874
 
690
875
  if ((new_pos=_mi_new(info,keyinfo,DFLT_INIT_HITS)) == HA_OFFSET_ERROR)
691
876
    goto err;
696
881
                        DFLT_INIT_HITS,extra_buff))
697
882
    goto err;
698
883
 
699
 
  return(1);                            /* Middle key up */
 
884
  DBUG_RETURN(1);                               /* Middle key up */
700
885
 
701
886
err:
702
 
  return(-1);
 
887
  DBUG_RETURN(-1);
703
888
} /* _mi_balance_page */
704
889
 
705
890
/**********************************************************************
708
893
 
709
894
typedef struct {
710
895
  MI_INFO *info;
711
 
  uint32_t keynr;
 
896
  uint keynr;
712
897
} bulk_insert_param;
713
898
 
714
 
int _mi_ck_write_tree(register MI_INFO *info, uint32_t keynr, unsigned char *key,
715
 
                      uint32_t key_length)
 
899
int _mi_ck_write_tree(register MI_INFO *info, uint keynr, uchar *key,
 
900
                      uint key_length)
716
901
{
717
902
  int error;
 
903
  DBUG_ENTER("_mi_ck_write_tree");
718
904
 
719
905
  error= tree_insert(&info->bulk_insert[keynr], key,
720
906
         key_length + info->s->rec_reflength,
721
907
         info->bulk_insert[keynr].custom_arg) ? 0 : HA_ERR_OUT_OF_MEM ;
722
908
 
723
 
  return(error);
 
909
  DBUG_RETURN(error);
724
910
} /* _mi_ck_write_tree */
725
911
 
726
912
 
727
913
/* typeof(_mi_keys_compare)=qsort_cmp2 */
728
914
 
729
 
static int keys_compare(bulk_insert_param *param, unsigned char *key1, unsigned char *key2)
 
915
static int keys_compare(bulk_insert_param *param, uchar *key1, uchar *key2)
730
916
{
731
 
  uint32_t not_used[2];
 
917
  uint not_used[2];
732
918
  return ha_key_cmp(param->info->s->keyinfo[param->keynr].seg,
733
919
                    key1, key2, USE_WHOLE_KEY, SEARCH_SAME,
734
920
                    not_used);
735
921
}
736
922
 
737
923
 
738
 
static int keys_free(unsigned char *key, TREE_FREE mode, bulk_insert_param *param)
 
924
static int keys_free(uchar *key, TREE_FREE mode, bulk_insert_param *param)
739
925
{
740
926
  /*
741
927
    Probably I can use info->lastkey here, but I'm not sure,
742
928
    and to be safe I'd better use local lastkey.
743
929
  */
744
 
  unsigned char lastkey[MI_MAX_KEY_BUFF];
745
 
  uint32_t keylen;
 
930
  uchar lastkey[MI_MAX_KEY_BUFF];
 
931
  uint keylen;
746
932
  MI_KEYDEF *keyinfo;
747
933
 
748
934
  switch (mode) {
749
935
  case free_init:
750
936
    if (param->info->s->concurrent_insert)
751
937
    {
 
938
      rw_wrlock(&param->info->s->key_root_lock[param->keynr]);
752
939
      param->info->s->keyinfo[param->keynr].version++;
753
940
    }
754
941
    return 0;
759
946
    return _mi_ck_write_btree(param->info,param->keynr,lastkey,
760
947
                              keylen - param->info->s->rec_reflength);
761
948
  case free_end:
 
949
    if (param->info->s->concurrent_insert)
 
950
      rw_unlock(&param->info->s->key_root_lock[param->keynr]);
762
951
    return 0;
763
952
  }
764
953
  return -1;
765
954
}
766
955
 
767
956
 
768
 
int mi_init_bulk_insert(MI_INFO *info, uint32_t cache_size, ha_rows rows)
 
957
int mi_init_bulk_insert(MI_INFO *info, ulong cache_size, ha_rows rows)
769
958
{
770
959
  MYISAM_SHARE *share=info->s;
771
960
  MI_KEYDEF *key=share->keyinfo;
772
961
  bulk_insert_param *params;
773
 
  uint32_t i, num_keys, total_keylength;
774
 
  uint64_t key_map;
 
962
  uint i, num_keys, total_keylength;
 
963
  ulonglong key_map;
 
964
  DBUG_ENTER("_mi_init_bulk_insert");
 
965
  DBUG_PRINT("enter",("cache_size: %lu", cache_size));
775
966
 
776
 
  assert(!info->bulk_insert &&
 
967
  DBUG_ASSERT(!info->bulk_insert &&
777
968
              (!rows || rows >= MI_MIN_ROWS_TO_USE_BULK_INSERT));
778
969
 
779
970
  mi_clear_all_keys_active(key_map);
790
981
 
791
982
  if (num_keys==0 ||
792
983
      num_keys * MI_MIN_SIZE_BULK_INSERT_TREE > cache_size)
793
 
    return(0);
 
984
    DBUG_RETURN(0);
794
985
 
795
986
  if (rows && rows*total_keylength < cache_size)
796
 
    cache_size= (uint32_t)rows;
 
987
    cache_size= (ulong)rows;
797
988
  else
798
989
    cache_size/=total_keylength*16;
799
990
 
800
991
  info->bulk_insert=(TREE *)
801
 
    malloc((sizeof(TREE)*share->base.keys+
802
 
           sizeof(bulk_insert_param)*num_keys));
 
992
    my_malloc((sizeof(TREE)*share->base.keys+
 
993
               sizeof(bulk_insert_param)*num_keys),MYF(0));
803
994
 
804
995
  if (!info->bulk_insert)
805
 
    return(HA_ERR_OUT_OF_MEM);
 
996
    DBUG_RETURN(HA_ERR_OUT_OF_MEM);
806
997
 
807
998
  params=(bulk_insert_param *)(info->bulk_insert+share->base.keys);
808
999
  for (i=0 ; i < share->base.keys ; i++)
815
1006
      init_tree(&info->bulk_insert[i],
816
1007
                cache_size * key[i].maxlength,
817
1008
                cache_size * key[i].maxlength, 0,
818
 
                (qsort_cmp2)keys_compare, false,
 
1009
                (qsort_cmp2)keys_compare, 0,
819
1010
                (tree_element_free) keys_free, (void *)params++);
820
1011
    }
821
1012
    else
822
1013
     info->bulk_insert[i].root=0;
823
1014
  }
824
1015
 
825
 
  return(0);
 
1016
  DBUG_RETURN(0);
826
1017
}
827
1018
 
828
 
void mi_flush_bulk_insert(MI_INFO *info, uint32_t inx)
 
1019
void mi_flush_bulk_insert(MI_INFO *info, uint inx)
829
1020
{
830
1021
  if (info->bulk_insert)
831
1022
  {
838
1029
{
839
1030
  if (info->bulk_insert)
840
1031
  {
841
 
    uint32_t i;
 
1032
    uint i;
842
1033
    for (i=0 ; i < info->s->base.keys ; i++)
843
1034
    {
844
1035
      if (is_tree_inited(& info->bulk_insert[i]))
846
1037
        delete_tree(& info->bulk_insert[i]);
847
1038
      }
848
1039
    }
849
 
    free((void *)info->bulk_insert);
 
1040
    my_free((void *)info->bulk_insert, MYF(0));
850
1041
    info->bulk_insert=0;
851
1042
  }
852
1043
}