ma_check.c 203 KB
Newer Older
1 2 3 4
/* Copyright (C) 2006 MySQL AB & MySQL Finland AB & TCX DataKonsult AB

   This program is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
5
   the Free Software Foundation; version 2 of the License.
6 7 8 9 10 11 12 13 14 15 16 17

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA */

/* Describe, check and repair of MARIA tables */

18 19 20 21 22
/*
  About checksum calculation.

  There are two types of checksums. Table checksum and row checksum.

unknown's avatar
unknown committed
23
  Row checksum is an additional uchar at the end of dynamic length
24 25 26 27 28 29 30 31 32 33
  records. It must be calculated if the table is configured for them.
  Otherwise they must not be used. The variable
  MYISAM_SHARE::calc_checksum determines if row checksums are used.
  MI_INFO::checksum is used as temporary storage during row handling.
  For parallel repair we must assure that only one thread can use this
  variable. There is no problem on the write side as this is done by one
  thread only. But when checking a record after read this could go
  wrong. But since all threads read through a common read buffer, it is
  sufficient if only one thread checks it.

unknown's avatar
unknown committed
34
  Table checksum is an eight uchar value in the header of the index file.
35 36 37 38 39 40 41 42
  It can be calculated even if row checksums are not used. The variable
  MI_CHECK::glob_crc is calculated over all records.
  MI_SORT_PARAM::calc_checksum determines if this should be done. This
  variable is not part of MI_CHECK because it must be set per thread for
  parallel repair. The global glob_crc must be changed by one thread
  only. And it is sufficient to calculate the checksum once only.
*/

43
#include "ma_ftdefs.h"
44 45 46 47 48
#include "ma_rt_index.h"
#include "ma_blockrec.h"
#include "trnman.h"
#include "ma_key_recover.h"

49 50 51 52 53 54 55 56 57
#include <stdarg.h>
#include <my_getopt.h>
#ifdef HAVE_SYS_VADVISE_H
#include <sys/vadvise.h>
#endif
#ifdef HAVE_SYS_MMAN_H
#include <sys/mman.h>
#endif

unknown's avatar
unknown committed
58
/* Functions defined in this file */
59

unknown's avatar
unknown committed
60
static int check_k_link(HA_CHECK *param, MARIA_HA *info, my_off_t next_link);
61
static int chk_index(HA_CHECK *param, MARIA_HA *info,MARIA_KEYDEF *keyinfo,
unknown's avatar
unknown committed
62
		     my_off_t page, uchar *buff, ha_rows *keys,
63 64 65
		     ha_checksum *key_checksum, uint level);
static uint isam_key_length(MARIA_HA *info,MARIA_KEYDEF *keyinfo);
static ha_checksum calc_checksum(ha_rows count);
66
static int writekeys(MARIA_SORT_PARAM *sort_param);
unknown's avatar
unknown committed
67 68
static int sort_one_index(HA_CHECK *param, MARIA_HA *info,
                          MARIA_KEYDEF *keyinfo,
69
			  my_off_t pagepos, File new_file);
unknown's avatar
unknown committed
70 71
static int sort_key_read(MARIA_SORT_PARAM *sort_param, uchar *key);
static int sort_maria_ft_key_read(MARIA_SORT_PARAM *sort_param, uchar *key);
72
static int sort_get_next_record(MARIA_SORT_PARAM *sort_param);
unknown's avatar
unknown committed
73 74 75
static int sort_key_cmp(MARIA_SORT_PARAM *sort_param, const void *a,
                        const void *b);
static int sort_maria_ft_key_write(MARIA_SORT_PARAM *sort_param,
unknown's avatar
unknown committed
76 77
                                   const uchar *a);
static int sort_key_write(MARIA_SORT_PARAM *sort_param, const uchar *a);
78
static my_off_t get_record_for_key(MARIA_HA *info,MARIA_KEYDEF *keyinfo,
unknown's avatar
unknown committed
79
                                   const uchar *key);
80 81
static int sort_insert_key(MARIA_SORT_PARAM  *sort_param,
                           reg1 SORT_KEY_BLOCKS *key_block,
unknown's avatar
unknown committed
82
			   const uchar *key, my_off_t prev_block);
83 84 85 86
static int sort_delete_record(MARIA_SORT_PARAM *sort_param);
/*static int _ma_flush_pending_blocks(HA_CHECK *param);*/
static SORT_KEY_BLOCKS	*alloc_key_blocks(HA_CHECK *param, uint blocks,
					  uint buffer_length);
unknown's avatar
unknown committed
87
static ha_checksum maria_byte_checksum(const uchar *buf, uint length);
88
static void set_data_file_type(MARIA_SORT_INFO *sort_info, MARIA_SHARE *share);
unknown's avatar
unknown committed
89
static void restore_data_file_type(MARIA_SHARE *share);
90
static void change_data_file_descriptor(MARIA_HA *info, File new_file);
91
static void unuse_data_file_descriptor(MARIA_HA *info);
92
static int _ma_safe_scan_block_record(MARIA_SORT_INFO *sort_info,
93
                                      MARIA_HA *info, uchar *record);
94 95
static void copy_data_file_state(MARIA_STATE_INFO *to,
                                 MARIA_STATE_INFO *from);
unknown's avatar
unknown committed
96
static int write_log_record_for_repair(const HA_CHECK *param, MARIA_HA *info);
97
static void report_keypage_fault(HA_CHECK *param, my_off_t position);
unknown's avatar
unknown committed
98
static my_bool create_new_data_handle(MARIA_SORT_PARAM *param, File new_file);
99

100

unknown's avatar
unknown committed
101
void maria_chk_init(HA_CHECK *param)
102
{
unknown's avatar
unknown committed
103
  bzero((uchar*) param,sizeof(*param));
104 105 106 107 108 109 110 111 112 113 114 115 116
  param->opt_follow_links=1;
  param->keys_in_use= ~(ulonglong) 0;
  param->search_after_block=HA_OFFSET_ERROR;
  param->auto_increment_value= 0;
  param->use_buffers=USE_BUFFER_INIT;
  param->read_buffer_length=READ_BUFFER_INIT;
  param->write_buffer_length=READ_BUFFER_INIT;
  param->sort_buffer_length=SORT_BUFFER_INIT;
  param->sort_key_blocks=BUFFERS_WHEN_SORTING;
  param->tmpfile_createflag=O_RDWR | O_TRUNC | O_EXCL;
  param->myf_rw=MYF(MY_NABP | MY_WME | MY_WAIT_IF_FULL);
  param->start_check_pos=0;
  param->max_record_length= LONGLONG_MAX;
unknown's avatar
unknown committed
117
  param->pagecache_block_size= KEY_CACHE_BLOCK_SIZE;
118 119 120 121 122 123 124
  param->stats_method= MI_STATS_METHOD_NULLS_NOT_EQUAL;
}

	/* Check the status flags for the table */

int maria_chk_status(HA_CHECK *param, register MARIA_HA *info)
{
125
  MARIA_SHARE *share= info->s;
126 127 128 129 130 131 132

  if (maria_is_crashed_on_repair(info))
    _ma_check_print_warning(param,
			   "Table is marked as crashed and last repair failed");
  else if (maria_is_crashed(info))
    _ma_check_print_warning(param,
			   "Table is marked as crashed");
133
  if (share->state.open_count != (uint) (share->global_changed ? 1 : 0))
134 135 136 137 138 139 140 141 142 143 144 145 146 147 148
  {
    /* Don't count this as a real warning, as check can correct this ! */
    uint save=param->warning_printed;
    _ma_check_print_warning(param,
			   share->state.open_count==1 ?
			   "%d client is using or hasn't closed the table properly" :
			   "%d clients are using or haven't closed the table properly",
			   share->state.open_count);
    /* If this will be fixed by the check, forget the warning */
    if (param->testflag & T_UPDATE_STATE)
      param->warning_printed=save;
  }
  return 0;
}

unknown's avatar
unknown committed
149 150 151
/*
  Check delete links in row data
*/
152 153 154

int maria_chk_del(HA_CHECK *param, register MARIA_HA *info, uint test_flag)
{
155
  MARIA_SHARE *share= info->s;
156 157 158 159 160 161 162
  reg2 ha_rows i;
  uint delete_link_length;
  my_off_t empty,next_link,old_link;
  char buff[22],buff2[22];
  DBUG_ENTER("maria_chk_del");

  LINT_INIT(old_link);
unknown's avatar
unknown committed
163

164
  if (share->data_file_type == BLOCK_RECORD)
unknown's avatar
unknown committed
165 166
    DBUG_RETURN(0);                             /* No delete links here */

167
  param->record_checksum=0;
168 169
  delete_link_length=((share->options & HA_OPTION_PACK_RECORD) ? 20 :
		      share->rec_reflength+1);
170 171 172 173

  if (!(test_flag & T_SILENT))
    puts("- check record delete-chain");

174
  next_link=share->state.dellink;
175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194
  if (info->state->del == 0)
  {
    if (test_flag & T_VERBOSE)
    {
      puts("No recordlinks");
    }
  }
  else
  {
    if (test_flag & T_VERBOSE)
      printf("Recordlinks:    ");
    empty=0;
    for (i= info->state->del ; i > 0L && next_link != HA_OFFSET_ERROR ; i--)
    {
      if (*_ma_killed_ptr(param))
        DBUG_RETURN(1);
      if (test_flag & T_VERBOSE)
	printf(" %9s",llstr(next_link,buff));
      if (next_link >= info->state->data_file_length)
	goto wrong;
195
      if (my_pread(info->dfile.file, (uchar*) buff, delete_link_length,
196 197 198 199 200 201 202 203 204 205 206 207 208 209
		   next_link,MYF(MY_NABP)))
      {
	if (test_flag & T_VERBOSE) puts("");
	_ma_check_print_error(param,"Can't read delete-link at filepos: %s",
		    llstr(next_link,buff));
	DBUG_RETURN(1);
      }
      if (*buff != '\0')
      {
	if (test_flag & T_VERBOSE) puts("");
	_ma_check_print_error(param,"Record at pos: %s is not remove-marked",
		    llstr(next_link,buff));
	goto wrong;
      }
210
      if (share->options & HA_OPTION_PACK_RECORD)
211 212 213 214 215 216 217 218 219 220 221 222 223 224 225
      {
	my_off_t prev_link=mi_sizekorr(buff+12);
	if (empty && prev_link != old_link)
	{
	  if (test_flag & T_VERBOSE) puts("");
	  _ma_check_print_error(param,"Deleted block at %s doesn't point back at previous delete link",llstr(next_link,buff2));
	  goto wrong;
	}
	old_link=next_link;
	next_link=mi_sizekorr(buff+4);
	empty+=mi_uint3korr(buff+1);
      }
      else
      {
	param->record_checksum+=(ha_checksum) next_link;
226
	next_link= _ma_rec_pos(info, buff+1);
227
	empty+=share->base.pack_reclength;
228 229
      }
    }
230
    if (info->state->del && (test_flag & T_VERBOSE))
231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258
      puts("\n");
    if (empty != info->state->empty)
    {
      _ma_check_print_warning(param,
			     "Found %s deleted space in delete link chain. Should be %s",
			     llstr(empty,buff2),
			     llstr(info->state->empty,buff));
    }
    if (next_link != HA_OFFSET_ERROR)
    {
      _ma_check_print_error(param,
			   "Found more than the expected %s deleted rows in delete link chain",
			   llstr(info->state->del, buff));
      goto wrong;
    }
    if (i != 0)
    {
      _ma_check_print_error(param,
			   "Found %s deleted rows in delete link chain. Should be %s",
			   llstr(info->state->del - i, buff2),
			   llstr(info->state->del, buff));
      goto wrong;
    }
  }
  DBUG_RETURN(0);

wrong:
  param->testflag|=T_RETRY_WITHOUT_QUICK;
259 260
  if (test_flag & T_VERBOSE)
    puts("");
261 262 263 264 265
  _ma_check_print_error(param,"record delete-link-chain corrupted");
  DBUG_RETURN(1);
} /* maria_chk_del */


unknown's avatar
unknown committed
266
/* Check delete links in index file */
267

268
static int check_k_link(HA_CHECK *param, register MARIA_HA *info,
unknown's avatar
unknown committed
269
                        my_off_t next_link)
270
{
271 272
  MARIA_SHARE *share= info->s;
  uint block_size= share->block_size;
273
  ha_rows records;
274 275
  char llbuff[21], llbuff2[21];
  uchar *buff;
276 277
  DBUG_ENTER("check_k_link");

278 279 280
  if (next_link == HA_OFFSET_ERROR)
    DBUG_RETURN(0);                             /* Avoid printing empty line */

281 282 283 284 285 286 287
  records= (ha_rows) (info->state->key_file_length / block_size);
  while (next_link != HA_OFFSET_ERROR && records > 0)
  {
    if (*_ma_killed_ptr(param))
      DBUG_RETURN(1);
    if (param->testflag & T_VERBOSE)
      printf("%16s",llstr(next_link,llbuff));
288 289 290 291 292 293 294 295 296 297 298 299

    /* Key blocks must lay within the key file length entirely. */
    if (next_link + block_size > info->state->key_file_length)
    {
      /* purecov: begin tested */
      _ma_check_print_error(param, "Invalid key block position: %s  "
                            "key block size: %u  file_length: %s",
                            llstr(next_link, llbuff), block_size,
                            llstr(info->state->key_file_length, llbuff2));
      DBUG_RETURN(1);
      /* purecov: end */
    }
300

unknown's avatar
unknown committed
301 302
    /* Key blocks must be aligned at block_size */
    if (next_link & (block_size -1))
303 304 305 306
    {
      /* purecov: begin tested */
      _ma_check_print_error(param, "Mis-aligned key block: %s  "
                            "minimum key block length: %u",
unknown's avatar
unknown committed
307 308
                            llstr(next_link, llbuff),
                            block_size);
309
      DBUG_RETURN(1);
310 311
      /* purecov: end */
    }
unknown's avatar
unknown committed
312

313 314 315
    DBUG_ASSERT(share->pagecache->block_size == block_size);
    if (!(buff= pagecache_read(share->pagecache,
                               &share->kfile, next_link/block_size,
unknown's avatar
unknown committed
316
                               DFLT_INIT_HITS,
unknown's avatar
unknown committed
317
                               (uchar*) info->buff,
318
                               PAGECACHE_READ_UNKNOWN_PAGE,
unknown's avatar
unknown committed
319
                               PAGECACHE_LOCK_LEFT_UNLOCKED, 0)))
320 321 322 323
    {
      /* purecov: begin tested */
      _ma_check_print_error(param, "key cache read error for block: %s",
                            llstr(next_link,llbuff));
324
      DBUG_RETURN(1);
325 326
      /* purecov: end */
    }
327
    if (_ma_get_keynr(info->s, buff) != MARIA_DELETE_KEY_NR)
328 329 330
      _ma_check_print_error(param, "Page at %s is not delete marked",
                            llstr(next_link, llbuff));

331
    next_link= mi_sizekorr(buff + share->keypage_header);
332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349
    records--;
    param->key_file_blocks+=block_size;
  }
  if (param->testflag & T_VERBOSE)
  {
    if (next_link != HA_OFFSET_ERROR)
      printf("%16s\n",llstr(next_link,llbuff));
    else
      puts("");
  }
  DBUG_RETURN (next_link != HA_OFFSET_ERROR);
} /* check_k_link */


	/* Check sizes of files */

int maria_chk_size(HA_CHECK *param, register MARIA_HA *info)
{
350
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
351
  int error;
352 353 354 355
  register my_off_t skr,size;
  char buff[22],buff2[22];
  DBUG_ENTER("maria_chk_size");

unknown's avatar
unknown committed
356 357
  if (!(param->testflag & T_SILENT))
    puts("- check file-size");
358

unknown's avatar
unknown committed
359 360 361 362 363 364 365 366
  /*
    The following is needed if called externally (not from maria_chk).
    To get a correct physical size we need to flush them.
  */
  if ((error= _ma_flush_table_files(info,
                                    MARIA_FLUSH_DATA | MARIA_FLUSH_INDEX,
                                    FLUSH_FORCE_WRITE, FLUSH_FORCE_WRITE)))
    _ma_check_print_error(param, "Failed to flush data or index file");
367

368
  size= my_seek(share->kfile.file, 0L, MY_SEEK_END, MYF(MY_THREADSAFE));
369 370 371
  if ((skr=(my_off_t) info->state->key_file_length) != size)
  {
    /* Don't give error if file generated by mariapack */
372
    if (skr > size && maria_is_any_key_active(share->state.key_map))
373 374 375 376 377 378
    {
      error=1;
      _ma_check_print_error(param,
			   "Size of indexfile is: %-8s        Should be: %s",
			   llstr(size,buff), llstr(skr,buff2));
    }
unknown's avatar
unknown committed
379
    else if (!(param->testflag & T_VERY_SILENT))
380 381 382 383 384
      _ma_check_print_warning(param,
			     "Size of indexfile is: %-8s      Should be: %s",
			     llstr(size,buff), llstr(skr,buff2));
  }
  if (!(param->testflag & T_VERY_SILENT) &&
385
      ! (share->options & HA_OPTION_COMPRESS_RECORD) &&
386
      ulonglong2double(info->state->key_file_length) >
387
      ulonglong2double(share->base.margin_key_file_length)*0.9)
388 389
    _ma_check_print_warning(param,"Keyfile is almost full, %10s of %10s used",
			   llstr(info->state->key_file_length,buff),
390
			   llstr(share->base.max_key_file_length-1,buff));
391

unknown's avatar
unknown committed
392
  size= my_seek(info->dfile.file, 0L, MY_SEEK_END, MYF(0));
393
  skr=(my_off_t) info->state->data_file_length;
394
  if (share->options & HA_OPTION_COMPRESS_RECORD)
395 396 397
    skr+= MEMMAP_EXTRA_MARGIN;
#ifdef USE_RELOC
  if (info->data_file_type == STATIC_RECORD &&
398 399
      skr < (my_off_t) share->base.reloc*share->base.min_pack_length)
    skr=(my_off_t) share->base.reloc*share->base.min_pack_length;
400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418
#endif
  if (skr != size)
  {
    info->state->data_file_length=size;	/* Skip other errors */
    if (skr > size && skr != size + MEMMAP_EXTRA_MARGIN)
    {
      error=1;
      _ma_check_print_error(param,"Size of datafile is: %-9s         Should be: %s",
		    llstr(size,buff), llstr(skr,buff2));
      param->testflag|=T_RETRY_WITHOUT_QUICK;
    }
    else
    {
      _ma_check_print_warning(param,
			     "Size of datafile is: %-9s       Should be: %s",
			     llstr(size,buff), llstr(skr,buff2));
    }
  }
  if (!(param->testflag & T_VERY_SILENT) &&
419
      !(share->options & HA_OPTION_COMPRESS_RECORD) &&
420
      ulonglong2double(info->state->data_file_length) >
421
      (ulonglong2double(share->base.max_data_file_length)*0.9))
422 423
    _ma_check_print_warning(param, "Datafile is almost full, %10s of %10s used",
			   llstr(info->state->data_file_length,buff),
424
			   llstr(share->base.max_data_file_length-1,buff2));
425 426 427 428
  DBUG_RETURN(error);
} /* maria_chk_size */


unknown's avatar
unknown committed
429
/* Check keys */
430 431 432 433 434 435 436

int maria_chk_key(HA_CHECK *param, register MARIA_HA *info)
{
  uint key,found_keys=0,full_text_keys=0,result=0;
  ha_rows keys;
  ha_checksum old_record_checksum,init_checksum;
  my_off_t all_keydata,all_totaldata,key_totlength,length;
437
  double  *rec_per_key_part;
438
  MARIA_SHARE *share= info->s;
439 440 441 442 443 444 445
  MARIA_KEYDEF *keyinfo;
  char buff[22],buff2[22];
  DBUG_ENTER("maria_chk_key");

  if (!(param->testflag & T_SILENT))
    puts("- check key delete-chain");

446 447
  param->key_file_blocks=share->base.keystart;
  if (check_k_link(param, info, share->state.key_del))
unknown's avatar
unknown committed
448 449 450 451 452
  {
    if (param->testflag & T_VERBOSE) puts("");
    _ma_check_print_error(param,"key delete-link-chain corrupted");
    DBUG_RETURN(-1);
  }
453

454 455
  if (!(param->testflag & T_SILENT))
    puts("- check index reference");
456 457 458

  all_keydata=all_totaldata=key_totlength=0;
  init_checksum=param->record_checksum;
459
  old_record_checksum=0;
unknown's avatar
unknown committed
460 461 462 463
  if (share->data_file_type == STATIC_RECORD)
    old_record_checksum= (calc_checksum(info->state->records +
                                        info->state->del-1) *
                          share->base.pack_reclength);
464
  rec_per_key_part= param->new_rec_per_key_part;
465 466 467 468 469 470 471 472 473
  for (key= 0,keyinfo= &share->keyinfo[0]; key < share->base.keys ;
       rec_per_key_part+=keyinfo->keysegs, key++, keyinfo++)
  {
    param->key_crc[key]=0;
    if (! maria_is_key_active(share->state.key_map, key))
    {
      /* Remember old statistics for key */
      memcpy((char*) rec_per_key_part,
	     (char*) (share->state.rec_per_key_part +
474
		      (uint) (rec_per_key_part - param->new_rec_per_key_part)),
475 476 477 478 479 480 481 482 483 484 485 486 487 488
	     keyinfo->keysegs*sizeof(*rec_per_key_part));
      continue;
    }
    found_keys++;

    param->record_checksum=init_checksum;

    bzero((char*) &param->unique_count,sizeof(param->unique_count));
    bzero((char*) &param->notnull_count,sizeof(param->notnull_count));

    if ((!(param->testflag & T_SILENT)))
      printf ("- check data record references index: %d\n",key+1);
    if (keyinfo->flag & HA_FULLTEXT)
      full_text_keys++;
489 490 491 492
    if (share->state.key_root[key] == HA_OFFSET_ERROR)
    {
      if (info->state->records != 0 && !(keyinfo->flag & HA_FULLTEXT))
        _ma_check_print_error(param, "Key tree %u is empty", key + 1);
493
      goto do_stat;
494 495 496 497
    }
    if (!_ma_fetch_keypage(info, keyinfo, share->state.key_root[key],
                           PAGECACHE_LOCK_LEFT_UNLOCKED, DFLT_INIT_HITS,
                           info->buff, 0, 0))
498
    {
499
      report_keypage_fault(param, share->state.key_root[key]);
500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523
      if (!(param->testflag & T_INFO))
	DBUG_RETURN(-1);
      result= -1;
      continue;
    }
    param->key_file_blocks+=keyinfo->block_length;
    keys=0;
    param->keydata=param->totaldata=0;
    param->key_blocks=0;
    param->max_level=0;
    if (chk_index(param,info,keyinfo,share->state.key_root[key],info->buff,
		  &keys, param->key_crc+key,1))
      DBUG_RETURN(-1);
    if(!(keyinfo->flag & (HA_FULLTEXT | HA_SPATIAL)))
    {
      if (keys != info->state->records)
      {
	_ma_check_print_error(param,"Found %s keys of %s",llstr(keys,buff),
		    llstr(info->state->records,buff2));
	if (!(param->testflag & T_INFO))
	DBUG_RETURN(-1);
	result= -1;
	continue;
      }
unknown's avatar
unknown committed
524 525 526 527
      if ((found_keys - full_text_keys == 1 &&
           !(share->data_file_type == STATIC_RECORD)) ||
          (param->testflag & T_DONT_CHECK_CHECKSUM))
	old_record_checksum= param->record_checksum;
528 529 530
      else if (old_record_checksum != param->record_checksum)
      {
	if (key)
531 532 533
	  _ma_check_print_error(param,
                                "Key %u doesn't point at same records as "
                                "key 1",
534 535 536 537 538 539 540 541 542 543 544 545
		      key+1);
	else
	  _ma_check_print_error(param,"Key 1 doesn't point at all records");
	if (!(param->testflag & T_INFO))
	  DBUG_RETURN(-1);
	result= -1;
	continue;
      }
    }
    if ((uint) share->base.auto_key -1 == key)
    {
      /* Check that auto_increment key is bigger than max key value */
546
      ulonglong auto_increment;
547
      const HA_KEYSEG *keyseg= share->keyinfo[share->base.auto_key-1].seg;
548
      info->lastinx=key;
unknown's avatar
unknown committed
549
      _ma_read_key_record(info, info->rec_buff, 0);
550 551 552
      auto_increment=
        ma_retrieve_auto_increment(info->rec_buff + keyseg->start,
                                   keyseg->type);
553
      if (auto_increment > share->state.auto_increment)
554
      {
555 556
	_ma_check_print_warning(param, "Auto-increment value: %s is smaller "
                                "than max used value: %s",
557
                                llstr(share->state.auto_increment,buff2),
558
                                llstr(auto_increment, buff));
559 560 561
      }
      if (param->testflag & T_AUTO_INC)
      {
562
        set_if_bigger(share->state.auto_increment,
563
                      auto_increment);
564
        set_if_bigger(share->state.auto_increment,
565
                      param->auto_increment_value);
566 567 568 569 570
      }

      /* Check that there isn't a row with auto_increment = 0 in the table */
      maria_extra(info,HA_EXTRA_KEYREAD,0);
      bzero(info->lastkey,keyinfo->seg->length);
unknown's avatar
unknown committed
571
      if (!maria_rkey(info, info->rec_buff, key, (const uchar*) info->lastkey,
572
                      (key_part_map)1, HA_READ_KEY_EXACT))
573
      {
unknown's avatar
unknown committed
574
	/* Don't count this as a real warning, as maria_chk can't correct it */
575
	uint save=param->warning_printed;
576 577
	_ma_check_print_warning(param, "Found row where the auto_increment "
                                "column has the value 0");
578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612
	param->warning_printed=save;
      }
      maria_extra(info,HA_EXTRA_NO_KEYREAD,0);
    }

    length=(my_off_t) isam_key_length(info,keyinfo)*keys + param->key_blocks*2;
    if (param->testflag & T_INFO && param->totaldata != 0L && keys != 0L)
      printf("Key: %2d:  Keyblocks used: %3d%%  Packed: %4d%%  Max levels: %2d\n",
	     key+1,
	     (int) (my_off_t2double(param->keydata)*100.0/my_off_t2double(param->totaldata)),
	     (int) ((my_off_t2double(length) - my_off_t2double(param->keydata))*100.0/
		    my_off_t2double(length)),
	     param->max_level);
    all_keydata+=param->keydata; all_totaldata+=param->totaldata; key_totlength+=length;

do_stat:
    if (param->testflag & T_STATISTICS)
      maria_update_key_parts(keyinfo, rec_per_key_part, param->unique_count,
                       param->stats_method == MI_STATS_METHOD_IGNORE_NULLS?
                       param->notnull_count: NULL,
                       (ulonglong)info->state->records);
  }
  if (param->testflag & T_INFO)
  {
    if (all_totaldata != 0L && found_keys > 0)
      printf("Total:    Keyblocks used: %3d%%  Packed: %4d%%\n\n",
	     (int) (my_off_t2double(all_keydata)*100.0/
		    my_off_t2double(all_totaldata)),
	     (int) ((my_off_t2double(key_totlength) -
		     my_off_t2double(all_keydata))*100.0/
		     my_off_t2double(key_totlength)));
    else if (all_totaldata != 0L && maria_is_any_key_active(share->state.key_map))
      puts("");
  }
  if (param->key_file_blocks != info->state->key_file_length &&
613
      share->state.key_map == ~(ulonglong) 0)
614 615 616 617 618 619 620 621 622
    _ma_check_print_warning(param, "Some data are unreferenced in keyfile");
  if (found_keys != full_text_keys)
    param->record_checksum=old_record_checksum-init_checksum;	/* Remove delete links */
  else
    param->record_checksum=0;
  DBUG_RETURN(result);
} /* maria_chk_key */


623

unknown's avatar
unknown committed
624 625
static int chk_index_down(HA_CHECK *param, MARIA_HA *info,
                          MARIA_KEYDEF *keyinfo,
unknown's avatar
unknown committed
626
                          my_off_t page, uchar *buff, ha_rows *keys,
unknown's avatar
unknown committed
627
                          ha_checksum *key_checksum, uint level)
628 629
{
  char llbuff[22],llbuff2[22];
630
  DBUG_ENTER("chk_index_down");
631

632 633 634 635 636
  /* Key blocks must lay within the key file length entirely. */
  if (page + keyinfo->block_length > info->state->key_file_length)
  {
    /* purecov: begin tested */
    /* Give it a chance to fit in the real file size. */
637 638
    my_off_t max_length= my_seek(info->s->kfile.file, 0L, MY_SEEK_END,
                                 MYF(MY_THREADSAFE));
639 640 641 642 643
    _ma_check_print_error(param, "Invalid key block position: %s  "
                          "key block size: %u  file_length: %s",
                          llstr(page, llbuff), keyinfo->block_length,
                          llstr(info->state->key_file_length, llbuff2));
    if (page + keyinfo->block_length > max_length)
644
      goto err;
unknown's avatar
unknown committed
645
    /* Fix the remembered key file length. */
646 647 648
    info->state->key_file_length= (max_length &
                                   ~ (my_off_t) (keyinfo->block_length - 1));
    /* purecov: end */
649
  }
650

unknown's avatar
unknown committed
651 652
  /* Key blocks must be aligned at block length */
  if (page & (info->s->block_size -1))
653 654 655
  {
    /* purecov: begin tested */
    _ma_check_print_error(param, "Mis-aligned key block: %s  "
656
                          "key block length: %u",
unknown's avatar
unknown committed
657
                          llstr(page, llbuff), info->s->block_size);
658 659 660 661
    goto err;
    /* purecov: end */
  }

662 663
  if (!_ma_fetch_keypage(info, keyinfo, page, PAGECACHE_LOCK_LEFT_UNLOCKED,
                         DFLT_INIT_HITS, buff, 0, 0))
664
  {
665
    report_keypage_fault(param, page);
666 667 668 669 670 671
    goto err;
  }
  param->key_file_blocks+=keyinfo->block_length;
  if (chk_index(param,info,keyinfo,page,buff,keys,key_checksum,level))
    goto err;

672 673 674
  DBUG_RETURN(0);

  /* purecov: begin tested */
675
err:
676 677
  DBUG_RETURN(1);
  /* purecov: end */
678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697
}


/*
  "Ignore NULLs" statistics collection method: process first index tuple.

  SYNOPSIS
    maria_collect_stats_nonulls_first()
      keyseg   IN     Array of key part descriptions
      notnull  INOUT  Array, notnull[i] = (number of {keypart1...keypart_i}
                                           tuples that don't contain NULLs)
      key      IN     Key values tuple

  DESCRIPTION
    Process the first index tuple - find out which prefix tuples don't
    contain NULLs, and update the array of notnull counters accordingly.
*/

static
void maria_collect_stats_nonulls_first(HA_KEYSEG *keyseg, ulonglong *notnull,
unknown's avatar
unknown committed
698
                                       const uchar *key)
699 700
{
  uint first_null, kp;
unknown's avatar
unknown committed
701
  first_null= ha_find_null(keyseg, (uchar*) key) - keyseg;
702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737
  /*
    All prefix tuples that don't include keypart_{first_null} are not-null
    tuples (and all others aren't), increment counters for them.
  */
  for (kp= 0; kp < first_null; kp++)
    notnull[kp]++;
}


/*
  "Ignore NULLs" statistics collection method: process next index tuple.

  SYNOPSIS
    maria_collect_stats_nonulls_next()
      keyseg   IN     Array of key part descriptions
      notnull  INOUT  Array, notnull[i] = (number of {keypart1...keypart_i}
                                           tuples that don't contain NULLs)
      prev_key IN     Previous key values tuple
      last_key IN     Next key values tuple

  DESCRIPTION
    Process the next index tuple:
    1. Find out which prefix tuples of last_key don't contain NULLs, and
       update the array of notnull counters accordingly.
    2. Find the first keypart number where the prev_key and last_key tuples
       are different(A), or last_key has NULL value(B), and return it, so the
       caller can count number of unique tuples for each key prefix. We don't
       need (B) to be counted, and that is compensated back in
       maria_update_key_parts().

  RETURN
    1 + number of first keypart where values differ or last_key tuple has NULL
*/

static
int maria_collect_stats_nonulls_next(HA_KEYSEG *keyseg, ulonglong *notnull,
unknown's avatar
unknown committed
738 739
                                     const uchar *prev_key,
                                     const uchar *last_key)
740 741 742 743 744 745 746 747 748 749 750 751 752
{
  uint diffs[2];
  uint first_null_seg, kp;
  HA_KEYSEG *seg;

  /*
     Find the first keypart where values are different or either of them is
     NULL. We get results in diffs array:
     diffs[0]= 1 + number of first different keypart
     diffs[1]=offset: (last_key + diffs[1]) points to first value in
                      last_key that is NULL or different from corresponding
                      value in prev_key.
  */
unknown's avatar
unknown committed
753
  ha_key_cmp(keyseg, (uchar*) prev_key, (uchar*) last_key, USE_WHOLE_KEY,
754 755 756 757
             SEARCH_FIND | SEARCH_NULL_ARE_NOT_EQUAL, diffs);
  seg= keyseg + diffs[0] - 1;

  /* Find first NULL in last_key */
unknown's avatar
unknown committed
758
  first_null_seg= ha_find_null(seg, (uchar*) last_key + diffs[1]) - keyseg;
759 760 761 762 763 764 765 766 767 768 769 770
  for (kp= 0; kp < first_null_seg; kp++)
    notnull[kp]++;

  /*
    Return 1+ number of first key part where values differ. Don't care if
    these were NULLs and not .... We compensate for that in
    maria_update_key_parts.
  */
  return diffs[0];
}


771
/* Check if index is ok */
772 773

static int chk_index(HA_CHECK *param, MARIA_HA *info, MARIA_KEYDEF *keyinfo,
unknown's avatar
unknown committed
774
		     my_off_t page, uchar *buff, ha_rows *keys,
775 776 777 778
		     ha_checksum *key_checksum, uint level)
{
  int flag;
  uint used_length,comp_flag,nod_flag,key_length=0;
unknown's avatar
unknown committed
779
  uchar key[HA_MAX_POSSIBLE_KEY_BUFF],*temp_buff,*keypos,*old_keypos,*endpos;
780
  my_off_t next_page,record;
781
  MARIA_SHARE *share= info->s;
782 783 784
  char llbuff[22];
  uint diff_pos[2];
  DBUG_ENTER("chk_index");
785
  DBUG_DUMP("buff", buff, _ma_get_page_used(share, buff));
786 787 788 789 790

  /* TODO: implement appropriate check for RTree keys */
  if (keyinfo->flag & HA_SPATIAL)
    DBUG_RETURN(0);

unknown's avatar
unknown committed
791
  if (!(temp_buff=(uchar*) my_alloca((uint) keyinfo->block_length)))
792 793 794 795 796 797 798 799 800 801
  {
    _ma_check_print_error(param,"Not enough memory for keyblock");
    DBUG_RETURN(-1);
  }

  if (keyinfo->flag & HA_NOSAME)
    comp_flag=SEARCH_FIND | SEARCH_UPDATE;	/* Not real duplicates */
  else
    comp_flag=SEARCH_SAME;			/* Keys in positionorder */

802 803
  _ma_get_used_and_nod(share, buff, used_length, nod_flag);
  keypos= buff + share->keypage_header + nod_flag;
804 805 806 807
  endpos= buff + used_length;

  param->keydata+=   used_length;
  param->totaldata+= keyinfo->block_length;	/* INFO */
808 809 810 811
  param->key_blocks++;
  if (level > param->max_level)
    param->max_level=level;

812
  if (_ma_get_keynr(share, buff) != (uint) (keyinfo - share->keyinfo))
813 814
    _ma_check_print_error(param, "Page at %s is not marked for index %u",
                          llstr(page, llbuff),
815
                          (uint) (keyinfo - share->keyinfo));
816

817 818 819 820 821 822 823 824 825 826
  if (used_length > keyinfo->block_length)
  {
    _ma_check_print_error(param,"Wrong pageinfo at page: %s",
			 llstr(page,llbuff));
    goto err;
  }
  for ( ;; )
  {
    if (*_ma_killed_ptr(param))
      goto err;
unknown's avatar
unknown committed
827 828
    memcpy(info->lastkey, key, key_length);
    info->lastkey_length= key_length;
829 830 831 832 833 834 835 836 837 838 839 840 841
    if (nod_flag)
    {
      next_page= _ma_kpos(nod_flag,keypos);
      if (chk_index_down(param,info,keyinfo,next_page,
                         temp_buff,keys,key_checksum,level+1))
	goto err;
    }
    old_keypos=keypos;
    if (keypos >= endpos ||
	(key_length=(*keyinfo->get_key)(keyinfo,nod_flag,&keypos,key)) == 0)
      break;
    if (keypos > endpos)
    {
unknown's avatar
unknown committed
842 843
      _ma_check_print_error(param,"Wrong key block length at page: %s",
                            llstr(page,llbuff));
844 845 846
      goto err;
    }
    if ((*keys)++ &&
unknown's avatar
unknown committed
847 848
	(flag=ha_key_cmp(keyinfo->seg, (uchar*) info->lastkey, (uchar*) key,
                         key_length, comp_flag, diff_pos)) >=0)
849
    {
unknown's avatar
unknown committed
850 851 852
      DBUG_DUMP("old", info->lastkey, info->lastkey_length);
      DBUG_DUMP("new", key, key_length);
      DBUG_DUMP("new_in_page", old_keypos, (uint) (keypos-old_keypos));
853 854

      if (comp_flag & SEARCH_FIND && flag == 0)
unknown's avatar
unknown committed
855 856
	_ma_check_print_error(param,"Found duplicated key at page %s",
                              llstr(page,llbuff));
857
      else
unknown's avatar
unknown committed
858 859
	_ma_check_print_error(param,"Key in wrong position at page %s",
                              llstr(page,llbuff));
860 861 862 863 864 865 866
      goto err;
    }
    if (param->testflag & T_STATISTICS)
    {
      if (*keys != 1L)				/* not first_key */
      {
        if (param->stats_method == MI_STATS_METHOD_NULLS_NOT_EQUAL)
unknown's avatar
unknown committed
867 868
          ha_key_cmp(keyinfo->seg, (uchar*) info->lastkey, (uchar*) key,
                     USE_WHOLE_KEY, SEARCH_FIND | SEARCH_NULL_ARE_NOT_EQUAL,
869 870 871 872
                     diff_pos);
        else if (param->stats_method == MI_STATS_METHOD_IGNORE_NULLS)
        {
          diff_pos[0]= maria_collect_stats_nonulls_next(keyinfo->seg,
unknown's avatar
unknown committed
873 874
                                                        param->notnull_count,
                                                        info->lastkey, key);
875 876 877 878 879 880 881 882 883 884
        }
	param->unique_count[diff_pos[0]-1]++;
      }
      else
      {
        if (param->stats_method == MI_STATS_METHOD_IGNORE_NULLS)
          maria_collect_stats_nonulls_first(keyinfo->seg, param->notnull_count,
                                         key);
      }
    }
unknown's avatar
unknown committed
885
    (*key_checksum)+= maria_byte_checksum((uchar*) key,
886
                                          key_length- share->rec_reflength);
887 888 889 890 891 892 893 894 895 896
    record= _ma_dpos(info,0,key+key_length);
    if (keyinfo->flag & HA_FULLTEXT) /* special handling for ft2 */
    {
      uint off;
      int  subkeys;
      get_key_full_length_rdonly(off, key);
      subkeys=ft_sintXkorr(key+off);
      if (subkeys < 0)
      {
        ha_rows tmp_keys=0;
897
        if (chk_index_down(param,info,&share->ft2_keyinfo,record,
898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922
                           temp_buff,&tmp_keys,key_checksum,1))
          goto err;
        if (tmp_keys + subkeys)
        {
          _ma_check_print_error(param,
                               "Number of words in the 2nd level tree "
                               "does not match the number in the header. "
                               "Parent word in on the page %s, offset %u",
                               llstr(page,llbuff), (uint) (old_keypos-buff));
          goto err;
        }
        (*keys)+=tmp_keys-1;
        continue;
      }
      /* fall through */
    }
    if (record >= info->state->data_file_length)
    {
#ifndef DBUG_OFF
      char llbuff2[22], llbuff3[22];
#endif
      _ma_check_print_error(param,"Found key at page %s that points to record outside datafile",llstr(page,llbuff));
      DBUG_PRINT("test",("page: %s  record: %s  filelength: %s",
			 llstr(page,llbuff),llstr(record,llbuff2),
			 llstr(info->state->data_file_length,llbuff3)));
unknown's avatar
unknown committed
923
      DBUG_DUMP("key",(uchar*) key,key_length);
924 925 926
      DBUG_DUMP("new_in_page",(char*) old_keypos,(uint) (keypos-old_keypos));
      goto err;
    }
unknown's avatar
unknown committed
927
    param->record_checksum+= (ha_checksum) record;
928 929 930
  }
  if (keypos != endpos)
  {
931 932 933 934 935
    _ma_check_print_error(param,
                          "Keyblock size at page %s is not correct. "
                          "Block length: %u  key length: %u",
                          llstr(page, llbuff), used_length,
                          (uint) (keypos - buff));
936 937
    goto err;
  }
unknown's avatar
unknown committed
938
  my_afree((uchar*) temp_buff);
939 940
  DBUG_RETURN(0);
 err:
unknown's avatar
unknown committed
941
  my_afree((uchar*) temp_buff);
942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987
  DBUG_RETURN(1);
} /* chk_index */


	/* Calculate a checksum of 1+2+3+4...N = N*(N+1)/2 without overflow */

static ha_checksum calc_checksum(ha_rows count)
{
  ulonglong sum,a,b;
  DBUG_ENTER("calc_checksum");

  sum=0;
  a=count; b=count+1;
  if (a & 1)
    b>>=1;
  else
    a>>=1;
  while (b)
  {
    if (b & 1)
      sum+=a;
    a<<=1; b>>=1;
  }
  DBUG_PRINT("exit",("sum: %lx",(ulong) sum));
  DBUG_RETURN((ha_checksum) sum);
} /* calc_checksum */


	/* Calc length of key in normal isam */

static uint isam_key_length(MARIA_HA *info, register MARIA_KEYDEF *keyinfo)
{
  uint length;
  HA_KEYSEG *keyseg;
  DBUG_ENTER("isam_key_length");

  length= info->s->rec_reflength;
  for (keyseg=keyinfo->seg ; keyseg->type ; keyseg++)
    length+= keyseg->length;

  DBUG_PRINT("exit",("length: %d",length));
  DBUG_RETURN(length);
} /* key_length */



unknown's avatar
unknown committed
988 989
static void record_pos_to_txt(MARIA_HA *info, my_off_t recpos,
                              char *buff)
990
{
unknown's avatar
unknown committed
991 992 993
  if (info->s->data_file_type != BLOCK_RECORD)
    llstr(recpos, buff);
  else
994
  {
unknown's avatar
unknown committed
995
    my_off_t page= ma_recordpos_to_page(recpos);
996
    uint row= ma_recordpos_to_dir_entry(recpos);
unknown's avatar
unknown committed
997 998 999
    char *end= longlong10_to_str(page, buff, 10);
    *(end++)= ':';
    longlong10_to_str(row, end, 10);
1000
  }
unknown's avatar
unknown committed
1001
}
1002

unknown's avatar
unknown committed
1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019

/*
  Check that keys in records exist in index tree

  SYNOPSIS
  check_keys_in_record()
  param		Check paramenter
  info		Maria handler
  extend	Type of check (extended or normal)
  start_recpos	Position to row
  record	Record buffer

  NOTES
    This function also calculates record checksum & number of rows
*/

static int check_keys_in_record(HA_CHECK *param, MARIA_HA *info, int extend,
unknown's avatar
unknown committed
1020
                                my_off_t start_recpos, uchar *record)
unknown's avatar
unknown committed
1021
{
1022
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1023 1024 1025 1026 1027 1028 1029
  MARIA_KEYDEF *keyinfo;
  char llbuff[22+4];
  uint key;

  param->tmp_record_checksum+= (ha_checksum) start_recpos;
  param->records++;
  if (param->testflag & T_WRITE_LOOP && param->records % WRITE_COUNT == 0)
1030
  {
unknown's avatar
unknown committed
1031 1032
    printf("%s\r", llstr(param->records, llbuff));
    VOID(fflush(stdout));
1033 1034
  }

unknown's avatar
unknown committed
1035
  /* Check if keys match the record */
1036
  for (key=0, keyinfo= share->keyinfo; key < share->base.keys;
unknown's avatar
unknown committed
1037
       key++,keyinfo++)
1038
  {
1039
    if (maria_is_key_active(share->state.key_map, key))
1040
    {
unknown's avatar
unknown committed
1041
      if(!(keyinfo->flag & HA_FULLTEXT))
1042
      {
unknown's avatar
unknown committed
1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056
        uint key_length= _ma_make_key(info,key,info->lastkey,record,
                                      start_recpos);
        if (extend)
        {
          /* We don't need to lock the key tree here as we don't allow
             concurrent threads when running maria_chk
          */
          int search_result=
#ifdef HAVE_RTREE_KEYS
            (keyinfo->flag & HA_SPATIAL) ?
            maria_rtree_find_first(info, key, info->lastkey, key_length,
                                   MBR_EQUAL | MBR_DATA) :
#endif
            _ma_search(info,keyinfo,info->lastkey,key_length,
1057
                       SEARCH_SAME, share->state.key_root[key]);
unknown's avatar
unknown committed
1058 1059 1060
          if (search_result)
          {
            record_pos_to_txt(info, start_recpos, llbuff);
unknown's avatar
unknown committed
1061 1062 1063 1064
            _ma_check_print_error(param,
                                  "Record at: %14s  "
                                  "Can't find key for index: %2d",
                                  llbuff, key+1);
unknown's avatar
unknown committed
1065 1066 1067 1068 1069 1070
            if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
              return -1;
          }
        }
        else
          param->tmp_key_crc[key]+=
unknown's avatar
unknown committed
1071
            maria_byte_checksum((uchar*) info->lastkey, key_length);
1072 1073 1074
      }
    }
  }
unknown's avatar
unknown committed
1075 1076 1077
  return 0;
}

1078

unknown's avatar
unknown committed
1079 1080 1081 1082 1083
/*
  Functions to loop through all rows and check if they are ok

  NOTES
    One function for each record format
1084

unknown's avatar
unknown committed
1085 1086 1087 1088 1089 1090 1091
  RESULT
    0  ok
    -1 Interrupted by user
    1  Error
*/

static int check_static_record(HA_CHECK *param, MARIA_HA *info, int extend,
unknown's avatar
unknown committed
1092
                               uchar *record)
unknown's avatar
unknown committed
1093
{
1094
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1095 1096 1097
  my_off_t start_recpos, pos;
  char llbuff[22];

1098
  pos= 0;
1099 1100 1101
  while (pos < info->state->data_file_length)
  {
    if (*_ma_killed_ptr(param))
unknown's avatar
unknown committed
1102
      return -1;
unknown's avatar
unknown committed
1103
    if (my_b_read(&param->read_cache,(uchar*) record,
1104
                  share->base.pack_reclength))
unknown's avatar
unknown committed
1105 1106 1107 1108 1109 1110 1111
    {
      _ma_check_print_error(param,
                            "got error: %d when reading datafile at position: %s",
                            my_errno, llstr(pos, llbuff));
      return 1;
    }
    start_recpos= pos;
1112
    pos+= share->base.pack_reclength;
unknown's avatar
unknown committed
1113 1114 1115 1116
    param->splits++;
    if (*record == '\0')
    {
      param->del_blocks++;
1117
      param->del_length+= share->base.pack_reclength;
unknown's avatar
unknown committed
1118 1119 1120
      continue;					/* Record removed */
    }
    param->glob_crc+= _ma_static_checksum(info,record);
1121
    param->used+= share->base.pack_reclength;
unknown's avatar
unknown committed
1122 1123 1124 1125 1126 1127 1128 1129
    if (check_keys_in_record(param, info, extend, start_recpos, record))
      return 1;
  }
  return 0;
}


static int check_dynamic_record(HA_CHECK *param, MARIA_HA *info, int extend,
unknown's avatar
unknown committed
1130
                                uchar *record)
unknown's avatar
unknown committed
1131 1132
{
  MARIA_BLOCK_INFO block_info;
1133
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1134
  my_off_t start_recpos, start_block, pos;
unknown's avatar
unknown committed
1135
  uchar *to;
unknown's avatar
unknown committed
1136 1137 1138 1139 1140
  ulong left_length;
  uint	b_type;
  char llbuff[22],llbuff2[22],llbuff3[22];
  DBUG_ENTER("check_dynamic_record");

unknown's avatar
unknown committed
1141 1142 1143 1144
  LINT_INIT(left_length);
  LINT_INIT(start_recpos);
  LINT_INIT(to);

1145
  pos= 0;
unknown's avatar
unknown committed
1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156
  while (pos < info->state->data_file_length)
  {
    my_bool got_error= 0;
    int flag;
    if (*_ma_killed_ptr(param))
      DBUG_RETURN(-1);

    flag= block_info.second_read=0;
    block_info.next_filepos=pos;
    do
    {
unknown's avatar
unknown committed
1157
      if (_ma_read_cache(&param->read_cache,(uchar*) block_info.header,
unknown's avatar
unknown committed
1158 1159 1160
                         (start_block=block_info.next_filepos),
                         sizeof(block_info.header),
                         (flag ? 0 : READING_NEXT) | READING_HEADER))
1161
      {
unknown's avatar
unknown committed
1162
        _ma_check_print_error(param,
unknown's avatar
unknown committed
1163 1164
                              "got error: %d when reading datafile at "
                              "position: %s",
unknown's avatar
unknown committed
1165 1166
                              my_errno, llstr(start_block, llbuff));
        DBUG_RETURN(1);
1167
      }
unknown's avatar
unknown committed
1168 1169

      if (start_block & (MARIA_DYN_ALIGN_SIZE-1))
1170
      {
unknown's avatar
unknown committed
1171 1172 1173 1174 1175 1176 1177
        _ma_check_print_error(param,"Wrong aligned block at %s",
                              llstr(start_block,llbuff));
        DBUG_RETURN(1);
      }
      b_type= _ma_get_block_info(&block_info,-1,start_block);
      if (b_type & (BLOCK_DELETED | BLOCK_ERROR | BLOCK_SYNC_ERROR |
                    BLOCK_FATAL_ERROR))
1178
      {
unknown's avatar
unknown committed
1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192
        if (b_type & BLOCK_SYNC_ERROR)
        {
          if (flag)
          {
            _ma_check_print_error(param,"Unexpected byte: %d at link: %s",
                                  (int) block_info.header[0],
                                  llstr(start_block,llbuff));
            DBUG_RETURN(1);
          }
          pos=block_info.filepos+block_info.block_len;
          goto next;
        }
        if (b_type & BLOCK_DELETED)
        {
1193
          if (block_info.block_len < share->base.min_block_length)
unknown's avatar
unknown committed
1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219
          {
            _ma_check_print_error(param,
                                  "Deleted block with impossible length %lu at %s",
                                  block_info.block_len,llstr(pos,llbuff));
            DBUG_RETURN(1);
          }
          if ((block_info.next_filepos != HA_OFFSET_ERROR &&
               block_info.next_filepos >= info->state->data_file_length) ||
              (block_info.prev_filepos != HA_OFFSET_ERROR &&
               block_info.prev_filepos >= info->state->data_file_length))
          {
            _ma_check_print_error(param,"Delete link points outside datafile at %s",
                                  llstr(pos,llbuff));
            DBUG_RETURN(1);
          }
          param->del_blocks++;
          param->del_length+= block_info.block_len;
          param->splits++;
          pos= block_info.filepos+block_info.block_len;
          goto next;
        }
        _ma_check_print_error(param,"Wrong bytesec: %d-%d-%d at linkstart: %s",
                              block_info.header[0],block_info.header[1],
                              block_info.header[2],
                              llstr(start_block,llbuff));
        DBUG_RETURN(1);
1220
      }
unknown's avatar
unknown committed
1221 1222
      if (info->state->data_file_length < block_info.filepos+
          block_info.block_len)
1223
      {
unknown's avatar
unknown committed
1224 1225 1226 1227 1228
        _ma_check_print_error(param,
                              "Recordlink that points outside datafile at %s",
                              llstr(pos,llbuff));
        got_error=1;
        break;
1229
      }
unknown's avatar
unknown committed
1230 1231
      param->splits++;
      if (!flag++)				/* First block */
1232
      {
unknown's avatar
unknown committed
1233 1234
        start_recpos=pos;
        pos=block_info.filepos+block_info.block_len;
1235
        if (block_info.rec_len > (uint) share->base.max_pack_length)
unknown's avatar
unknown committed
1236 1237 1238 1239 1240 1241 1242
        {
          _ma_check_print_error(param,"Found too long record (%lu) at %s",
                                (ulong) block_info.rec_len,
                                llstr(start_recpos,llbuff));
          got_error=1;
          break;
        }
1243
        if (share->base.blobs)
unknown's avatar
unknown committed
1244 1245 1246
        {
          if (_ma_alloc_buffer(&info->rec_buff, &info->rec_buff_size,
                               block_info.rec_len +
1247
                               share->base.extra_rec_buff_size))
1248

unknown's avatar
unknown committed
1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268
          {
            _ma_check_print_error(param,
                                  "Not enough memory (%lu) for blob at %s",
                                  (ulong) block_info.rec_len,
                                  llstr(start_recpos,llbuff));
            got_error=1;
            break;
          }
        }
        to= info->rec_buff;
        left_length= block_info.rec_len;
      }
      if (left_length < block_info.data_len)
      {
        _ma_check_print_error(param,"Found too long record (%lu) at %s",
                              (ulong) block_info.data_len,
                              llstr(start_recpos,llbuff));
        got_error=1;
        break;
      }
unknown's avatar
unknown committed
1269
      if (_ma_read_cache(&param->read_cache,(uchar*) to,block_info.filepos,
unknown's avatar
unknown committed
1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313
                         (uint) block_info.data_len,
                         flag == 1 ? READING_NEXT : 0))
      {
        _ma_check_print_error(param,
                              "got error: %d when reading datafile at position: %s", my_errno, llstr(block_info.filepos, llbuff));

        DBUG_RETURN(1);
      }
      to+=block_info.data_len;
      param->link_used+= block_info.filepos-start_block;
      param->used+= block_info.filepos - start_block + block_info.data_len;
      param->empty+= block_info.block_len-block_info.data_len;
      left_length-= block_info.data_len;
      if (left_length)
      {
        if (b_type & BLOCK_LAST)
        {
          _ma_check_print_error(param,
                                "Wrong record length %s of %s at %s",
                                llstr(block_info.rec_len-left_length,llbuff),
                                llstr(block_info.rec_len, llbuff2),
                                llstr(start_recpos,llbuff3));
          got_error=1;
          break;
        }
        if (info->state->data_file_length < block_info.next_filepos)
        {
          _ma_check_print_error(param,
                                "Found next-recordlink that points outside datafile at %s",
                                llstr(block_info.filepos,llbuff));
          got_error=1;
          break;
        }
      }
    } while (left_length);

    if (! got_error)
    {
      if (_ma_rec_unpack(info,record,info->rec_buff,block_info.rec_len) ==
          MY_FILE_ERROR)
      {
        _ma_check_print_error(param,"Found wrong record at %s",
                              llstr(start_recpos,llbuff));
        got_error=1;
1314 1315
      }
      else
unknown's avatar
unknown committed
1316
      {
1317
        ha_checksum checksum= 0;
1318 1319
        if (share->calc_checksum)
          checksum= (*share->calc_checksum)(info, record);
1320

unknown's avatar
unknown committed
1321 1322 1323
        if (param->testflag & (T_EXTEND | T_MEDIUM | T_VERBOSE))
        {
          if (_ma_rec_check(info,record, info->rec_buff,block_info.rec_len,
1324
                            test(share->calc_checksum), checksum))
unknown's avatar
unknown committed
1325 1326 1327 1328 1329 1330
          {
            _ma_check_print_error(param,"Found wrong packed record at %s",
                                  llstr(start_recpos,llbuff));
            got_error= 1;
          }
        }
1331
        param->glob_crc+= checksum;
unknown's avatar
unknown committed
1332
      }
1333

unknown's avatar
unknown committed
1334 1335 1336 1337
      if (! got_error)
      {
        if (check_keys_in_record(param, info, extend, start_recpos, record))
          DBUG_RETURN(1);
1338 1339
      }
      else
unknown's avatar
unknown committed
1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353
      {
        if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
          DBUG_RETURN(1);
      }
    }
    else if (!flag)
      pos= block_info.filepos+block_info.block_len;
next:;
  }
  DBUG_RETURN(0);
}


static int check_compressed_record(HA_CHECK *param, MARIA_HA *info, int extend,
unknown's avatar
unknown committed
1354
                                   uchar *record)
unknown's avatar
unknown committed
1355
{
1356 1357
  MARIA_BLOCK_INFO block_info;
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1358 1359 1360 1361 1362
  my_off_t start_recpos, pos;
  char llbuff[22];
  bool got_error= 0;
  DBUG_ENTER("check_compressed_record");

1363
  pos= share->pack.header_length;             /* Skip header */
unknown's avatar
unknown committed
1364 1365 1366 1367 1368
  while (pos < info->state->data_file_length)
  {
    if (*_ma_killed_ptr(param))
      DBUG_RETURN(-1);

unknown's avatar
unknown committed
1369
    if (_ma_read_cache(&param->read_cache,(uchar*) block_info.header, pos,
1370
                       share->pack.ref_length, READING_NEXT))
unknown's avatar
unknown committed
1371 1372 1373 1374 1375 1376 1377 1378 1379
    {
      _ma_check_print_error(param,
                            "got error: %d when reading datafile at position: %s",
                            my_errno, llstr(pos, llbuff));
      DBUG_RETURN(1);
    }

    start_recpos= pos;
    param->splits++;
unknown's avatar
unknown committed
1380
    VOID(_ma_pack_get_block_info(info, &info->bit_buff, &block_info,
unknown's avatar
unknown committed
1381 1382
                                 &info->rec_buff, &info->rec_buff_size, -1,
                                 start_recpos));
unknown's avatar
unknown committed
1383
    pos=block_info.filepos+block_info.rec_len;
1384 1385
    if (block_info.rec_len < (uint) share->min_pack_length ||
        block_info.rec_len > (uint) share->max_pack_length)
unknown's avatar
unknown committed
1386 1387
    {
      _ma_check_print_error(param,
1388
                            "Found block with wrong recordlength: %lu at %s",
unknown's avatar
unknown committed
1389 1390 1391 1392
                            block_info.rec_len, llstr(start_recpos,llbuff));
      got_error=1;
      goto end;
    }
unknown's avatar
unknown committed
1393
    if (_ma_read_cache(&param->read_cache,(uchar*) info->rec_buff,
unknown's avatar
unknown committed
1394 1395 1396 1397 1398 1399 1400
                       block_info.filepos, block_info.rec_len, READING_NEXT))
    {
      _ma_check_print_error(param,
                            "got error: %d when reading datafile at position: %s",
                            my_errno, llstr(block_info.filepos, llbuff));
      DBUG_RETURN(1);
    }
unknown's avatar
unknown committed
1401 1402
    if (_ma_pack_rec_unpack(info, &info->bit_buff, record,
                            info->rec_buff, block_info.rec_len))
unknown's avatar
unknown committed
1403 1404 1405 1406 1407 1408
    {
      _ma_check_print_error(param,"Found wrong record at %s",
                            llstr(start_recpos,llbuff));
      got_error=1;
      goto end;
    }
1409
    param->glob_crc+= (*share->calc_checksum)(info,record);
unknown's avatar
unknown committed
1410 1411 1412 1413
    param->link_used+= (block_info.filepos - start_recpos);
    param->used+= (pos-start_recpos);

end:
1414 1415
    if (! got_error)
    {
unknown's avatar
unknown committed
1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430
      if (check_keys_in_record(param, info, extend, start_recpos, record))
        DBUG_RETURN(1);
    }
    else
    {
      got_error= 0;                             /* Reset for next loop */
      if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
        DBUG_RETURN(1);
    }
  }
  DBUG_RETURN(0);
}


/*
1431
  Check if layout on head or tail page is ok
1432 1433 1434

  NOTES
    This is for rows-in-block format.
unknown's avatar
unknown committed
1435 1436 1437
*/

static int check_page_layout(HA_CHECK *param, MARIA_HA *info,
unknown's avatar
unknown committed
1438
                             my_off_t page_pos, uchar *page,
unknown's avatar
unknown committed
1439 1440 1441
                             uint row_count, uint head_empty,
                             uint *real_rows_found)
{
1442 1443
  uint empty, last_row_end, row, first_dir_entry, free_entry, block_size;
  uint free_entries, prev_free_entry;
unknown's avatar
unknown committed
1444
  uchar *dir_entry;
unknown's avatar
unknown committed
1445
  char llbuff[22];
1446
  my_bool error_in_free_list= 0;
unknown's avatar
unknown committed
1447 1448
  DBUG_ENTER("check_page_layout");

1449
  block_size= info->s->block_size;
unknown's avatar
unknown committed
1450 1451 1452 1453
  empty= 0;
  last_row_end= PAGE_HEADER_SIZE;
  *real_rows_found= 0;

1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494
  /* Check free directory list */
  free_entry= (uint) page[DIR_FREE_OFFSET];
  free_entries= 0;
  prev_free_entry= END_OF_DIR_FREE_LIST;
  while (free_entry != END_OF_DIR_FREE_LIST)
  {
    uchar *dir;
    if (free_entry > row_count)
    {
      _ma_check_print_error(param,
                            "Page %9s:  Directory free entry points outside "
                            "directory",
                            llstr(page_pos, llbuff));
      error_in_free_list= 1;
      break;
    }
    dir= dir_entry_pos(page, block_size, free_entry);
    if (uint2korr(dir) != 0)
    {
      _ma_check_print_error(param,
                            "Page %9s:  Directory free entry points to "
                            "not deleted entry",
                            llstr(page_pos, llbuff));
      error_in_free_list= 1;
      break;
    }
    if (dir[2] != prev_free_entry)
    {
      _ma_check_print_error(param,
                            "Page %9s:  Directory free list back pointer "
                            "points to wrong entry",
                            llstr(page_pos, llbuff));
      error_in_free_list= 1;
      break;
    }
    prev_free_entry= free_entry;
    free_entry= dir[3];
    free_entries++;
  }

  /* Check directry */
1495 1496
  dir_entry= page+ block_size - PAGE_SUFFIX_SIZE;
  first_dir_entry= (block_size - row_count * DIR_ENTRY_SIZE -
1497
                    PAGE_SUFFIX_SIZE);
unknown's avatar
unknown committed
1498 1499 1500 1501 1502 1503 1504
  for (row= 0 ; row < row_count ; row++)
  {
    uint pos, length;
    dir_entry-= DIR_ENTRY_SIZE;
    pos= uint2korr(dir_entry);
    if (!pos)
    {
1505
      free_entries--;
unknown's avatar
unknown committed
1506
      if (row == row_count -1)
1507
      {
unknown's avatar
unknown committed
1508 1509 1510 1511 1512
        _ma_check_print_error(param,
                              "Page %9s:  First entry in directory is 0",
                              llstr(page_pos, llbuff));
        if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
          DBUG_RETURN(1);
1513
      }
unknown's avatar
unknown committed
1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 1526 1527 1528 1529 1530 1531 1532 1533 1534 1535 1536 1537 1538 1539 1540 1541 1542
      continue;                                 /* Deleted row */
    }
    (*real_rows_found)++;
    length= uint2korr(dir_entry+2);
    param->used+= length;
    if (pos < last_row_end)
    {
      _ma_check_print_error(param,
                            "Page %9s:  Row %3u overlapps with previous row",
                            llstr(page_pos, llbuff), row);
      DBUG_RETURN(1);
    }
    empty+= (pos - last_row_end);
    last_row_end= pos + length;
    if (last_row_end > first_dir_entry)
    {
      _ma_check_print_error(param,
                            "Page %9s:  Row %3u overlapps with directory",
                            llstr(page_pos, llbuff), row);
      DBUG_RETURN(1);
    }
  }
  empty+= (first_dir_entry - last_row_end);

  if (empty != head_empty)
  {
    _ma_check_print_error(param,
                          "Page %9s:  Wrong empty size.  Stored: %5u  Actual: %5u",
                          llstr(page_pos, llbuff), head_empty, empty);
1543
    param->err_count++;
unknown's avatar
unknown committed
1544
  }
1545 1546 1547 1548 1549 1550 1551 1552 1553 1554
  if (free_entries != 0 && !error_in_free_list)
  {
    _ma_check_print_error(param,
                          "Page %9s:  Directory free link don't include "
                          "all free entries",
                          llstr(page_pos, llbuff));
    param->err_count++;
  }
  DBUG_RETURN(param->err_count &&
              (param->err_count >= MAXERR || !(param->testflag & T_VERBOSE)));
unknown's avatar
unknown committed
1555 1556 1557 1558 1559 1560 1561
}


/*
  Check all rows on head page

  NOTES
1562 1563
    This is for rows-in-block format.

unknown's avatar
unknown committed
1564 1565 1566 1567 1568 1569 1570
    Before this, we have already called check_page_layout(), so
    we know the block is logicaly correct (even if the rows may not be that)

  RETURN
   0  ok
   1  error
*/
1571 1572


unknown's avatar
unknown committed
1573 1574
static my_bool check_head_page(HA_CHECK *param, MARIA_HA *info, uchar *record,
                               int extend, my_off_t page_pos, uchar *page_buff,
unknown's avatar
unknown committed
1575 1576
                               uint row_count)
{
1577
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1578
  uchar *dir_entry;
unknown's avatar
unknown committed
1579 1580 1581 1582
  uint row;
  char llbuff[22], llbuff2[22];
  DBUG_ENTER("check_head_page");

1583
  dir_entry= page_buff+ share->block_size - PAGE_SUFFIX_SIZE;
unknown's avatar
unknown committed
1584 1585 1586 1587 1588 1589 1590 1591
  for (row= 0 ; row < row_count ; row++)
  {
    uint pos, length, flag;
    dir_entry-= DIR_ENTRY_SIZE;
    pos= uint2korr(dir_entry);
    if (!pos)
      continue;
    length= uint2korr(dir_entry+2);
1592
    if (length < share->base.min_block_length)
unknown's avatar
unknown committed
1593 1594 1595 1596 1597 1598 1599 1600 1601 1602 1603 1604 1605
    {
      _ma_check_print_error(param,
                            "Page %9s:  Row %3u is too short (%d bytes)",
                            llstr(page_pos, llbuff), row, length);
      DBUG_RETURN(1);
    }
    flag= (uint) (uchar) page_buff[pos];
    if (flag & ~(ROW_FLAG_ALL))
      _ma_check_print_error(param,
                            "Page %9s: Row %3u has wrong flag: %d",
                            llstr(page_pos, llbuff), row, flag);

    DBUG_PRINT("info", ("rowid: %s  page: %lu  row: %u",
1606
                        llstr(ma_recordpos(page_pos/share->block_size, row),
unknown's avatar
unknown committed
1607
                              llbuff),
1608
                        (ulong) (page_pos / share->block_size), row));
unknown's avatar
unknown committed
1609 1610 1611 1612 1613 1614 1615 1616 1617 1618
    if (_ma_read_block_record2(info, record, page_buff+pos,
                               page_buff+pos+length))
    {
      _ma_check_print_error(param,
                            "Page %9s:  Row %3d is crashed",
                            llstr(page_pos, llbuff), row);
      if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
        DBUG_RETURN(1);
      continue;
    }
1619
    if (share->calc_checksum)
unknown's avatar
unknown committed
1620
    {
1621
      ha_checksum checksum= (*share->calc_checksum)(info, record);
1622 1623 1624 1625
      if (info->cur_row.checksum != (checksum & 255))
        _ma_check_print_error(param, "Page %9s:  Row %3d has wrong checksum",
                              llstr(page_pos, llbuff), row);
      param->glob_crc+= checksum;
unknown's avatar
unknown committed
1626 1627 1628
    }
    if (info->cur_row.extents_count)
    {
unknown's avatar
unknown committed
1629
      uchar *extents= info->cur_row.extents;
unknown's avatar
unknown committed
1630 1631 1632
      uint i;
      /* Check that bitmap has the right marker for the found extents */
      for (i= 0 ; i < info->cur_row.extents_count ; i++)
1633
      {
unknown's avatar
unknown committed
1634 1635
        uint page, page_count, page_type;
        page=        uint5korr(extents);
1636
        page_count=  uint2korr(extents+5) & ~START_EXTENT_BIT;
unknown's avatar
unknown committed
1637 1638 1639 1640 1641 1642 1643
        extents+=    ROW_EXTENT_SIZE;
        page_type=   BLOB_PAGE;
        if (page_count & TAIL_BIT)
        {
          page_count= 1;
          page_type= TAIL_PAGE;
        }
1644 1645 1646 1647 1648
        /*
          TODO OPTIMIZE:
          Check the whole extent with one test and only do the loop if
          something is wrong (for exact error reporting)
        */
unknown's avatar
unknown committed
1649 1650 1651 1652 1653 1654 1655 1656 1657
        for ( ; page_count--; page++)
        {
          uint bitmap_pattern;
          if (_ma_check_if_right_bitmap_type(info, page_type, page,
                                             &bitmap_pattern))
          {
            _ma_check_print_error(param,
                                  "Page %9s:  Row: %3d has an extent with wrong information in bitmap:  Page %9s  Page_type: %d  Bitmap: %d",
                                  llstr(page_pos, llbuff), row,
1658
                                  llstr(page * share->bitmap.block_size,
unknown's avatar
unknown committed
1659 1660 1661 1662 1663 1664 1665
                                        llbuff2),
                                  page_type,
                                  bitmap_pattern);
            if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
              DBUG_RETURN(1);
          }
        }
1666 1667
      }
    }
unknown's avatar
unknown committed
1668 1669 1670
    param->full_page_count+= info->cur_row.full_page_count;
    param->tail_count+= info->cur_row.tail_count;
    if (check_keys_in_record(param, info, extend,
1671
                             ma_recordpos(page_pos/share->block_size, row),
unknown's avatar
unknown committed
1672 1673 1674 1675 1676 1677 1678
                             record))
      DBUG_RETURN(1);
  }
  DBUG_RETURN(0);
}


1679 1680 1681
/*
  Check if rows-in-block data file is consistent
*/
unknown's avatar
unknown committed
1682 1683

static int check_block_record(HA_CHECK *param, MARIA_HA *info, int extend,
unknown's avatar
unknown committed
1684
                              uchar *record)
unknown's avatar
unknown committed
1685
{
1686
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1687
  my_off_t pos;
unknown's avatar
unknown committed
1688
  uchar *page_buff, *bitmap_buff, *data;
unknown's avatar
unknown committed
1689
  char llbuff[22], llbuff2[22];
1690
  uint block_size= share->block_size;
unknown's avatar
unknown committed
1691 1692 1693
  ha_rows full_page_count, tail_count;
  my_bool full_dir;
  uint offset_page, offset;
1694

1695 1696
  LINT_INIT(full_dir);

unknown's avatar
unknown committed
1697 1698 1699 1700 1701 1702 1703 1704 1705 1706 1707
  if (_ma_scan_init_block_record(info))
  {
    _ma_check_print_error(param, "got error %d when initializing scan",
                          my_errno);
    return 1;
  }
  bitmap_buff= info->scan.bitmap_buff;
  page_buff= info->scan.page_buff;
  full_page_count= tail_count= 0;
  param->full_page_count= param->tail_count= 0;
  param->used= param->link_used= 0;
1708

unknown's avatar
unknown committed
1709 1710 1711 1712 1713 1714 1715 1716 1717 1718 1719 1720 1721
  for (pos= 0;
       pos < info->state->data_file_length;
       pos+= block_size)
  {
    uint row_count, real_row_count, empty_space, page_type, bitmap_pattern;
    LINT_INIT(row_count);
    LINT_INIT(empty_space);

    if (*_ma_killed_ptr(param))
    {
      _ma_scan_end_block_record(info);
      return -1;
    }
1722
    if (((pos / block_size) % share->bitmap.pages_covered) == 0)
unknown's avatar
unknown committed
1723 1724
    {
      /* Bitmap page */
1725
      if (pagecache_read(share->pagecache,
1726
                         &info->s->bitmap.file,
unknown's avatar
unknown committed
1727 1728 1729 1730
                         (pos / block_size), 1,
                         bitmap_buff,
                         PAGECACHE_PLAIN_PAGE,
                         PAGECACHE_LOCK_LEFT_UNLOCKED, 0) == 0)
1731
      {
unknown's avatar
unknown committed
1732 1733
        _ma_check_print_error(param,
                              "Page %9s:  Got error: %d when reading datafile",
1734
                              llstr(pos, llbuff), my_errno);
unknown's avatar
unknown committed
1735
        goto err;
1736
      }
unknown's avatar
unknown committed
1737 1738 1739
      param->used+= block_size;
      param->link_used+= block_size;
      continue;
1740
    }
unknown's avatar
unknown committed
1741
    /* Skip pages marked as empty in bitmap */
1742
    offset_page= (((pos / block_size) % share->bitmap.pages_covered) -1) * 3;
unknown's avatar
unknown committed
1743 1744 1745 1746 1747
    offset= offset_page & 7;
    data= bitmap_buff + offset_page / 8;
    bitmap_pattern= uint2korr(data);
    param->splits++;
    if (!((bitmap_pattern >> offset) & 7))
1748
    {
unknown's avatar
unknown committed
1749 1750 1751 1752 1753
      param->empty+= block_size;
      param->del_blocks++;
      continue;
    }

1754
    if (pagecache_read(share->pagecache,
unknown's avatar
unknown committed
1755 1756 1757
                       &info->dfile,
                       (pos / block_size), 1,
                       page_buff,
1758
                       share->page_type,
unknown's avatar
unknown committed
1759
                       PAGECACHE_LOCK_LEFT_UNLOCKED, 0) == 0)
unknown's avatar
unknown committed
1760 1761 1762
    {
      _ma_check_print_error(param,
                            "Page %9s:  Got error: %d when reading datafile",
1763
                            llstr(pos, llbuff), my_errno);
unknown's avatar
unknown committed
1764 1765 1766 1767 1768 1769
      goto err;
    }
    page_type= page_buff[PAGE_TYPE_OFFSET] & PAGE_TYPE_MASK;
    if (page_type == UNALLOCATED_PAGE || page_type >= MAX_PAGE_TYPE)
    {
      _ma_check_print_error(param,
1770
                            "Page %9s:  Found wrong page type %d",
unknown's avatar
unknown committed
1771 1772 1773
                            llstr(pos, llbuff), page_type);
      if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
        goto err;
1774
      continue;
unknown's avatar
unknown committed
1775 1776 1777 1778
    }
    switch ((enum en_page_type) page_type) {
    case UNALLOCATED_PAGE:
    case MAX_PAGE_TYPE:
1779
    default:
1780
      DBUG_ASSERT(0);                           /* Impossible */
unknown's avatar
unknown committed
1781 1782
      break;
    case HEAD_PAGE:
1783
      row_count= ((uchar*) page_buff)[DIR_COUNT_OFFSET];
unknown's avatar
unknown committed
1784 1785 1786 1787 1788 1789 1790 1791
      empty_space= uint2korr(page_buff + EMPTY_SPACE_OFFSET);
      param->used+= (PAGE_HEADER_SIZE + PAGE_SUFFIX_SIZE +
                     row_count * DIR_ENTRY_SIZE);
      param->link_used+= (PAGE_HEADER_SIZE + PAGE_SUFFIX_SIZE +
                          row_count * DIR_ENTRY_SIZE);
      full_dir= row_count == MAX_ROWS_PER_PAGE;
      break;
    case TAIL_PAGE:
1792
      row_count= ((uchar*) page_buff)[DIR_COUNT_OFFSET];
unknown's avatar
unknown committed
1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806
      empty_space= uint2korr(page_buff + EMPTY_SPACE_OFFSET);
      param->used+= (PAGE_HEADER_SIZE + PAGE_SUFFIX_SIZE +
                     row_count * DIR_ENTRY_SIZE);
      param->link_used+= (PAGE_HEADER_SIZE + PAGE_SUFFIX_SIZE +
                          row_count * DIR_ENTRY_SIZE);
      full_dir= row_count == MAX_ROWS_PER_PAGE;
      break;
    case BLOB_PAGE:
      full_page_count++;
      full_dir= 0;
      empty_space= block_size;                  /* for error reporting */
      param->link_used+= (LSN_SIZE + PAGE_TYPE_SIZE);
      param->used+= block_size;
      break;
1807
    }
unknown's avatar
unknown committed
1808 1809 1810 1811
    if (_ma_check_bitmap_data(info, page_type, pos / block_size,
                              full_dir ? 0 : empty_space,
                              &bitmap_pattern))
    {
1812 1813 1814 1815 1816
      if (bitmap_pattern == ~(uint) 0)
        _ma_check_print_error(param,
                              "Page: %9s: Wrong bitmap for data on page",
                              llstr(pos, llbuff));
      else
1817 1818 1819 1820
        _ma_check_print_error(param,
                              "Page %9s:  Wrong data in bitmap.  Page_type: %d  empty_space: %u  Bitmap-bits: %d",
                              llstr(pos, llbuff), page_type, empty_space,
                              bitmap_pattern);
unknown's avatar
unknown committed
1821 1822 1823 1824 1825 1826 1827 1828 1829 1830
      if (param->err_count++ > MAXERR || !(param->testflag & T_VERBOSE))
        goto err;
    }
    if ((enum en_page_type) page_type == BLOB_PAGE)
      continue;
    param->empty+= empty_space;
    if (check_page_layout(param, info, pos, page_buff, row_count,
                          empty_space, &real_row_count))
      goto err;
    if ((enum en_page_type) page_type == TAIL_PAGE)
1831
    {
unknown's avatar
unknown committed
1832 1833
      tail_count+= real_row_count;
      continue;
1834
    }
unknown's avatar
unknown committed
1835 1836 1837
    if (check_head_page(param, info, record, extend, pos, page_buff,
                        row_count))
      goto err;
1838
  }
unknown's avatar
unknown committed
1839

1840 1841
  /* Verify that rest of bitmap is zero */

1842
  if ((pos / block_size) % share->bitmap.pages_covered)
1843 1844 1845
  {
    /* Not at end of bitmap */
    uint bitmap_pattern;
1846
    offset_page= (((pos / block_size) % share->bitmap.pages_covered) -1) * 3;
1847 1848 1849 1850
    offset= offset_page & 7;
    data= bitmap_buff + offset_page / 8;
    bitmap_pattern= uint2korr(data);
    if (((bitmap_pattern >> offset)) ||
1851 1852
        (data + 2 < bitmap_buff + share->bitmap.total_size &&
         _ma_check_if_zero(data+2, bitmap_buff + share->bitmap.total_size -
1853 1854 1855
                           data - 2)))
    {
      ulonglong bitmap_page;
1856 1857
      bitmap_page= pos / block_size / share->bitmap.pages_covered;
      bitmap_page*= share->bitmap.pages_covered;
1858 1859 1860

      _ma_check_print_error(param, "Bitmap at %s has pages reserved outside of data file length",
                            llstr(bitmap_page, llbuff));
1861
      DBUG_EXECUTE("bitmap", _ma_print_bitmap(&share->bitmap, bitmap_buff,
1862 1863 1864 1865
                                              bitmap_page););
    }
  }

unknown's avatar
unknown committed
1866 1867 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877
  _ma_scan_end_block_record(info);

  if (full_page_count != param->full_page_count)
    _ma_check_print_error(param, "Full page count read through records was %s but we found %s pages while scanning table",
                          llstr(param->full_page_count, llbuff),
                          llstr(full_page_count, llbuff2));
  if (tail_count != param->tail_count)
    _ma_check_print_error(param, "Tail count read through records was %s but we found %s tails while scanning table",
                          llstr(param->tail_count, llbuff),
                          llstr(tail_count, llbuff2));

  /* Update splits to avoid warning */
1878
  share->state.split= param->splits;
unknown's avatar
unknown committed
1879 1880 1881 1882 1883 1884 1885 1886 1887
  info->state->del=     param->del_blocks;
  return param->error_printed != 0;

err:
  _ma_scan_end_block_record(info);
  return 1;
}


1888
/* Check that record-link is ok */
unknown's avatar
unknown committed
1889 1890 1891

int maria_chk_data_link(HA_CHECK *param, MARIA_HA *info,int extend)
{
1892
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
1893
  int	error;
unknown's avatar
unknown committed
1894
  uchar *record;
unknown's avatar
unknown committed
1895 1896 1897 1898 1899 1900 1901 1902 1903 1904 1905
  char llbuff[22],llbuff2[22],llbuff3[22];
  DBUG_ENTER("maria_chk_data_link");

  if (!(param->testflag & T_SILENT))
  {
    if (extend)
      puts("- check records and index references");
    else
      puts("- check record links");
  }

1906
  if (!(record= (uchar*) my_malloc(share->base.pack_reclength,MYF(0))))
unknown's avatar
unknown committed
1907 1908 1909 1910 1911 1912 1913 1914
  {
    _ma_check_print_error(param,"Not enough memory for record");
    DBUG_RETURN(-1);
  }
  param->records= param->del_blocks= 0;
  param->used= param->link_used= param->splits= param->del_length= 0;
  param->tmp_record_checksum= param->glob_crc= 0;
  param->err_count= 0;
unknown's avatar
unknown committed
1915

unknown's avatar
unknown committed
1916
  error= 0;
1917
  param->empty= share->pack.header_length;
unknown's avatar
unknown committed
1918 1919

  bzero((char*) param->tmp_key_crc,
1920
        share->base.keys * sizeof(param->tmp_key_crc[0]));
1921

1922
  switch (share->data_file_type) {
unknown's avatar
unknown committed
1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939
  case BLOCK_RECORD:
    error= check_block_record(param, info, extend, record);
    break;
  case STATIC_RECORD:
    error= check_static_record(param, info, extend, record);
    break;
  case DYNAMIC_RECORD:
    error= check_dynamic_record(param, info, extend, record);
    break;
  case COMPRESSED_RECORD:
    error= check_compressed_record(param, info, extend, record);
    break;
  } /* switch */

  if (error)
    goto err;

1940 1941 1942 1943
  if (param->testflag & T_WRITE_LOOP)
  {
    VOID(fputs("          \r",stdout)); VOID(fflush(stdout));
  }
unknown's avatar
unknown committed
1944
  if (param->records != info->state->records)
1945
  {
unknown's avatar
unknown committed
1946 1947 1948 1949
    _ma_check_print_error(param,
                          "Record-count is not ok; found %-10s  Should be: %s",
                          llstr(param->records,llbuff),
                          llstr(info->state->records,llbuff2));
1950 1951 1952
    error=1;
  }
  else if (param->record_checksum &&
unknown's avatar
unknown committed
1953
	   param->record_checksum != param->tmp_record_checksum)
1954 1955
  {
    _ma_check_print_error(param,
unknown's avatar
unknown committed
1956
			 "Key pointers and record positions doesn't match");
1957 1958 1959
    error=1;
  }
  else if (param->glob_crc != info->state->checksum &&
1960
	   (share->options &
1961 1962 1963
	    (HA_OPTION_CHECKSUM | HA_OPTION_COMPRESS_RECORD)))
  {
    _ma_check_print_warning(param,
1964
			   "Record checksum is not the same as checksum stored in the index file");
1965 1966 1967 1968
    error=1;
  }
  else if (!extend)
  {
unknown's avatar
unknown committed
1969
    uint key;
1970
    for (key=0 ; key < share->base.keys;  key++)
1971
    {
unknown's avatar
unknown committed
1972
      if (param->tmp_key_crc[key] != param->key_crc[key] &&
1973
          !(share->keyinfo[key].flag & (HA_FULLTEXT | HA_SPATIAL)))
1974 1975 1976 1977 1978 1979 1980 1981
      {
	_ma_check_print_error(param,"Checksum for key: %2d doesn't match checksum for records",
		    key+1);
	error=1;
      }
    }
  }

unknown's avatar
unknown committed
1982
  if (param->del_length != info->state->empty)
1983 1984 1985
  {
    _ma_check_print_warning(param,
			   "Found %s deleted space.   Should be %s",
unknown's avatar
unknown committed
1986
			   llstr(param->del_length,llbuff2),
1987 1988
			   llstr(info->state->empty,llbuff));
  }
unknown's avatar
unknown committed
1989 1990
  if (param->used + param->empty + param->del_length !=
      info->state->data_file_length)
1991 1992
  {
    _ma_check_print_warning(param,
unknown's avatar
unknown committed
1993 1994 1995 1996
			   "Found %s record data and %s unused data and %s deleted data",
                            llstr(param->used, llbuff),
                            llstr(param->empty,llbuff2),
                            llstr(param->del_length,llbuff3));
1997
    _ma_check_print_warning(param,
unknown's avatar
unknown committed
1998 1999 2000
			   "Total %s   Should be: %s",
			   llstr((param->used+param->empty+param->del_length),
                                 llbuff),
2001 2002
			   llstr(info->state->data_file_length,llbuff2));
  }
unknown's avatar
unknown committed
2003
  if (param->del_blocks != info->state->del)
2004 2005 2006
  {
    _ma_check_print_warning(param,
			   "Found %10s deleted blocks       Should be: %s",
unknown's avatar
unknown committed
2007
			   llstr(param->del_blocks,llbuff),
2008 2009
			   llstr(info->state->del,llbuff2));
  }
2010
  if (param->splits != share->state.split)
2011 2012 2013
  {
    _ma_check_print_warning(param,
			   "Found %10s parts                Should be: %s parts",
unknown's avatar
unknown committed
2014
			   llstr(param->splits, llbuff),
2015
			   llstr(share->state.split,llbuff2));
2016 2017 2018 2019 2020
  }
  if (param->testflag & T_INFO)
  {
    if (param->warning_printed || param->error_printed)
      puts("");
unknown's avatar
unknown committed
2021
    if (param->used != 0 && ! param->error_printed)
2022
    {
unknown's avatar
unknown committed
2023 2024 2025 2026 2027
      if (param->records)
      {
        printf("Records:%18s    M.recordlength:%9lu   Packed:%14.0f%%\n",
               llstr(param->records,llbuff),
               (long)((param->used - param->link_used)/param->records),
2028 2029
               (share->base.blobs ? 0.0 :
                (ulonglong2double((ulonglong) share->base.reclength *
unknown's avatar
unknown committed
2030 2031
                                  param->records)-
                 my_off_t2double(param->used))/
2032
                ulonglong2double((ulonglong) share->base.reclength *
unknown's avatar
unknown committed
2033 2034 2035 2036 2037 2038 2039 2040 2041 2042 2043 2044
                                 param->records)*100.0));
        printf("Recordspace used:%9.0f%%   Empty space:%12d%%  Blocks/Record: %6.2f\n",
               (ulonglong2double(param->used - param->link_used)/
                ulonglong2double(param->used-param->link_used+param->empty)*100.0),
               (!param->records ? 100 :
                (int) (ulonglong2double(param->del_length+param->empty)/
                       my_off_t2double(param->used)*100.0)),
               ulonglong2double(param->splits - param->del_blocks) /
               param->records);
      }
      else
        printf("Records:%18s\n", "0");
2045 2046
    }
    printf("Record blocks:%12s    Delete blocks:%10s\n",
unknown's avatar
unknown committed
2047 2048
	   llstr(param->splits - param->del_blocks, llbuff),
           llstr(param->del_blocks, llbuff2));
2049
    printf("Record data:  %12s    Deleted data: %10s\n",
unknown's avatar
unknown committed
2050 2051
	   llstr(param->used - param->link_used,llbuff),
           llstr(param->del_length, llbuff2));
2052
    printf("Lost space:   %12s    Linkdata:     %10s\n",
unknown's avatar
unknown committed
2053
	   llstr(param->empty, llbuff),llstr(param->link_used, llbuff2));
2054
  }
unknown's avatar
unknown committed
2055
  my_free((uchar*) record,MYF(0));
2056
  DBUG_RETURN (error);
unknown's avatar
unknown committed
2057

2058
 err:
unknown's avatar
unknown committed
2059
  my_free((uchar*) record,MYF(0));
2060 2061 2062 2063 2064
  param->testflag|=T_RETRY_WITHOUT_QUICK;
  DBUG_RETURN(1);
} /* maria_chk_data_link */


2065 2066 2067 2068
/**
   @brief Initialize variables for repair
*/

2069 2070 2071 2072 2073
static int initialize_variables_for_repair(HA_CHECK *param,
                                           MARIA_SORT_INFO *sort_info,
                                           MARIA_SORT_PARAM *sort_param,
                                           MARIA_HA *info,
                                           uint rep_quick)
2074
{
2075 2076 2077 2078
  MARIA_SHARE *share= info->s;

  bzero((char*) sort_info,  sizeof(*sort_info));
  bzero((char*) sort_param, sizeof(*sort_param));
2079 2080

  param->testflag|= T_REP;                     /* for easy checking */
2081
  if (share->options & (HA_OPTION_CHECKSUM | HA_OPTION_COMPRESS_RECORD))
2082 2083
    param->testflag|= T_CALC_CHECKSUM;
  param->glob_crc= 0;
2084 2085 2086 2087
  if (rep_quick)
    param->testflag|= T_QUICK;
  else
    param->testflag&= ~T_QUICK;
2088
  param->org_key_map= share->state.key_map;
2089 2090 2091 2092 2093 2094 2095

  sort_param->sort_info= sort_info;
  sort_param->fix_datafile= (my_bool) (! rep_quick);
  sort_param->calc_checksum= test(param->testflag & T_CALC_CHECKSUM);
  sort_info->info= sort_info->new_info= info;
  sort_info->param= param;
  set_data_file_type(sort_info, info->s);
2096
  sort_info->org_data_file_type= share->data_file_type;
2097 2098 2099 2100

  bzero(&info->rec_cache, sizeof(info->rec_cache));
  info->rec_cache.file= info->dfile.file;
  info->update= (short) (HA_STATE_CHANGED | HA_STATE_ROW_CHANGED);
2101 2102 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112 2113 2114 2115 2116 2117 2118 2119 2120 2121 2122 2123 2124 2125 2126 2127

  /* calculate max_records */
  /*
    The physical size of the data file is sometimes used during repair (see
    sort_info.filelength further below); We need to flush to have it exact.
    We flush the state because our maria_open(HA_OPEN_COPY) will want to read
    it from disk. Index file will be recreated.
  */
  if (_ma_flush_table_files(info, MARIA_FLUSH_DATA | MARIA_FLUSH_INDEX,
                            FLUSH_FORCE_WRITE,
                            (param->testflag & T_CREATE_MISSING_KEYS) ?
                            FLUSH_FORCE_WRITE : FLUSH_IGNORE_CHANGED) ||
      (share->changed && _ma_state_info_write(share, 1|2|4)))
    return(1);

  sort_info->filelength= my_seek(info->dfile.file, 0L, MY_SEEK_END, MYF(0));
  if ((param->testflag & T_CREATE_MISSING_KEYS) ||
      sort_info->org_data_file_type == COMPRESSED_RECORD)
    sort_info->max_records= info->state->records;
  else
  {
    ulong rec_length;
    rec_length= max(share->base.min_pack_length,
                    share->base.min_block_length);
    sort_info->max_records= (ha_rows) (sort_info->filelength / rec_length);
  }
  return 0;
2128 2129 2130
}


2131 2132 2133 2134
/*
  Recover old table by reading each record and writing all keys

  NOTES
2135 2136 2137 2138 2139
    Save new datafile-name in temp_filename.
    We overwrite the index file as we go (writekeys() for example), so if we
    crash during this the table is unusable and user (or Recovery in the
    future) must repeat the REPAIR/OPTIMIZE operation. We could use a
    temporary index file in the future (drawback: more disk space).
2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151

  IMPLEMENTATION (for hard repair with block format)
   - Create new, unrelated MARIA_HA of the table
   - Create new datafile and associate it with new handler
   - Reset all statistic information in new handler
   - Copy all data to new handler with normal write operations
   - Move state of new handler to old handler
   - Close new handler
   - Close data file in old handler
   - Rename old data file to new data file.
   - Reopen data file in old handler
*/
2152 2153

int maria_repair(HA_CHECK *param, register MARIA_HA *info,
2154
                 char *name, uint rep_quick)
2155
{
2156
  int error, got_error;
2157 2158 2159 2160
  uint i;
  ha_rows start_records,new_header_length;
  my_off_t del;
  File new_file;
2161
  MARIA_SHARE *share= info->s;
2162 2163 2164
  char llbuff[22],llbuff2[22];
  MARIA_SORT_INFO sort_info;
  MARIA_SORT_PARAM sort_param;
2165
  my_bool block_record, scan_inited= 0;
2166
  enum data_file_type org_data_file_type= share->data_file_type;
unknown's avatar
unknown committed
2167 2168
  myf sync_dir= ((share->now_transactional && !share->temporary) ?
                 MY_SYNC_DIR : 0);
2169 2170
  DBUG_ENTER("maria_repair");

2171
  got_error= 1;
2172
  new_file= -1;
2173
  start_records= info->state->records;
2174 2175 2176
  if (!(param->testflag & T_SILENT))
  {
    printf("- recovering (with keycache) MARIA-table '%s'\n",name);
2177
    printf("Data records: %s\n", llstr(start_records, llbuff));
2178 2179
  }

2180 2181
  if (initialize_variables_for_repair(param, &sort_info, &sort_param, info,
                                      rep_quick))
unknown's avatar
unknown committed
2182 2183
    goto err;

2184 2185 2186
  new_header_length= ((param->testflag & T_UNPACK) ? 0L :
                      share->pack.header_length);

2187 2188 2189
  if (!rep_quick)
  {
    /* Get real path for data file */
unknown's avatar
unknown committed
2190 2191 2192 2193 2194
    if ((new_file= my_create(fn_format(param->temp_filename,
                                       share->data_file_name, "",
                                       DATA_TMP_EXT, 2+4),
                             0,param->tmpfile_createflag,
                             MYF(0))) < 0)
2195 2196 2197 2198 2199
    {
      _ma_check_print_error(param,"Can't create new tempfile: '%s'",
			   param->temp_filename);
      goto err;
    }
2200
    if (new_header_length &&
unknown's avatar
unknown committed
2201 2202
        maria_filecopy(param, new_file, info->dfile.file, 0L,
                       new_header_length, "datafile-header"))
2203
      goto err;
2204
    share->state.dellink= HA_OFFSET_ERROR;
2205
    info->rec_cache.file= new_file;             /* For sort_delete_record */
2206
    if (share->data_file_type == BLOCK_RECORD ||
2207
        (param->testflag & T_UNPACK))
2208
    {
2209
      if (create_new_data_handle(&sort_param, new_file))
2210
        goto err;
2211
      sort_info.new_info->rec_cache.file= new_file;
2212 2213 2214
    }
  }

2215 2216
  block_record= sort_info.new_info->s->data_file_type == BLOCK_RECORD;

2217 2218 2219 2220 2221 2222 2223
  if (org_data_file_type != BLOCK_RECORD)
  {
    /* We need a read buffer to read rows in big blocks */
    if (init_io_cache(&param->read_cache, info->dfile.file,
                      (uint) param->read_buffer_length,
                      READ_CACHE, share->pack.header_length, 1, MYF(MY_WME)))
      goto err;
2224
  }
2225 2226 2227 2228
  if (sort_info.new_info->s->data_file_type != BLOCK_RECORD)
  {
    /* When writing to not block records, we need a write buffer */
    if (!rep_quick)
2229 2230
    {
      if (init_io_cache(&sort_info.new_info->rec_cache, new_file,
2231 2232
                        (uint) param->write_buffer_length,
                        WRITE_CACHE, new_header_length, 1,
2233
                        MYF(MY_WME | MY_WAIT_IF_FULL) & param->myf_rw))
2234
        goto err;
2235 2236
      sort_info.new_info->opt_flag|=WRITE_CACHE_USED;
    }
2237
  }
2238
  else if (block_record)
2239 2240 2241 2242 2243 2244
  {
    scan_inited= 1;
    if (maria_scan_init(sort_info.info))
      goto err;
  }

2245
  if (!(sort_param.record=(uchar*) my_malloc((uint) share->base.pack_reclength,
2246 2247
					   MYF(0))) ||
      _ma_alloc_buffer(&sort_param.rec_buff, &sort_param.rec_buff_size,
2248
                       share->base.default_rec_buff_size))
2249 2250 2251
  {
    _ma_check_print_error(param, "Not enough memory for extra record");
    goto err;
2252
  }
2253

2254 2255 2256
  sort_param.read_cache=param->read_cache;
  sort_param.pos=sort_param.max_pos=share->pack.header_length;
  sort_param.filepos=new_header_length;
2257
  param->read_cache.end_of_file= sort_info.filelength;
2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268
  sort_param.master=1;
  sort_info.max_records= ~(ha_rows) 0;

  del=info->state->del;
  info->state->records=info->state->del=share->state.split=0;
  info->state->empty=0;

  /*
    Clear all keys. Note that all key blocks allocated until now remain
    "dead" parts of the key file. (Bug #4692)
  */
2269
  for (i=0 ; i < share->base.keys ; i++)
2270 2271 2272
    share->state.key_root[i]= HA_OFFSET_ERROR;

  /* Drop the delete chain. */
unknown's avatar
unknown committed
2273
  share->state.key_del=  HA_OFFSET_ERROR;
2274 2275 2276 2277 2278 2279 2280 2281 2282 2283 2284 2285 2286 2287 2288

  /*
    If requested, activate (enable) all keys in key_map. In this case,
    all indexes will be (re-)built.
  */
  if (param->testflag & T_CREATE_MISSING_KEYS)
    maria_set_all_keys_active(share->state.key_map, share->base.keys);

  info->state->key_file_length=share->base.keystart;

  maria_lock_memory(param);			/* Everything is alloced */

  /* Re-create all keys, which are set in key_map. */
  while (!(error=sort_get_next_record(&sort_param)))
  {
2289 2290 2291
    if (block_record && _ma_sort_write_record(&sort_param))
      goto err;

2292
    if (writekeys(&sort_param))
2293 2294 2295
    {
      if (my_errno != HA_ERR_FOUND_DUPP_KEY)
	goto err;
unknown's avatar
unknown committed
2296
      DBUG_DUMP("record",(uchar*) sort_param.record,share->base.pack_reclength);
2297 2298
      _ma_check_print_info(param,
                           "Duplicate key %2d for record at %10s against new record at %10s",
2299 2300
			  info->errkey+1,
			  llstr(sort_param.start_recpos,llbuff),
unknown's avatar
unknown committed
2301
			  llstr(info->dup_key_pos,llbuff2));
2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315
      if (param->testflag & T_VERBOSE)
      {
	VOID(_ma_make_key(info,(uint) info->errkey,info->lastkey,
			  sort_param.record,0L));
	_ma_print_key(stdout,share->keyinfo[info->errkey].seg,info->lastkey,
		      USE_WHOLE_KEY);
      }
      sort_info.dupp++;
      if ((param->testflag & (T_FORCE_UNIQUENESS|T_QUICK)) == T_QUICK)
      {
        param->testflag|=T_RETRY_WITHOUT_QUICK;
	param->error_printed=1;
	goto err;
      }
unknown's avatar
unknown committed
2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327
      /* purecov: begin tested */
      if (block_record)
      {
        sort_info.new_info->state->records--;
        if ((*sort_info.new_info->s->write_record_abort)(sort_info.new_info))
        {
          _ma_check_print_error(param,"Couldn't delete duplicate row");
          goto err;
        }
        continue;
      }
      /* purecov: end */
2328
    }
2329 2330 2331 2332 2333 2334 2335
    if (!block_record)
    {
      if (_ma_sort_write_record(&sort_param))
        goto err;
      /* Filepos is pointer to where next row will be stored */
      sort_param.current_filepos= sort_param.filepos;
    }
2336 2337
  }
  if (error > 0 || maria_write_data_suffix(&sort_info, (my_bool)!rep_quick) ||
2338 2339
      flush_io_cache(&sort_info.new_info->rec_cache) ||
      param->read_cache.error < 0)
2340 2341 2342 2343 2344 2345
    goto err;

  if (param->testflag & T_WRITE_LOOP)
  {
    VOID(fputs("          \r",stdout)); VOID(fflush(stdout));
  }
unknown's avatar
unknown committed
2346
  if (my_chsize(share->kfile.file, info->state->key_file_length, 0, MYF(0)))
2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361
  {
    _ma_check_print_warning(param,
			   "Can't change size of indexfile, error: %d",
			   my_errno);
    goto err;
  }

  if (rep_quick && del+sort_info.dupp != info->state->del)
  {
    _ma_check_print_error(param,"Couldn't fix table with quick recovery: Found wrong number of deleted records");
    _ma_check_print_error(param,"Run recovery again without -q");
    param->retry_repair=1;
    param->testflag|=T_RETRY_WITHOUT_QUICK;
    goto err;
  }
2362

2363 2364 2365
  if (param->testflag & T_SAFE_REPAIR)
  {
    /* Don't repair if we loosed more than one row */
2366
    if (sort_info.new_info->state->records+1 < start_records)
2367 2368 2369 2370 2371 2372
    {
      info->state->records=start_records;
      goto err;
    }
  }

2373 2374
  VOID(end_io_cache(&sort_info.new_info->rec_cache));
  info->opt_flag&= ~WRITE_CACHE_USED;
unknown's avatar
unknown committed
2375 2376 2377 2378 2379
  /**
     @todo RECOVERY BUG seems misplaced in some cases. We modify state after
     writing it below. But if we move the call below too much down, flushing
     of pages may happen too late, after files have been closed.
  */
2380 2381 2382
  if (_ma_flush_table_files_after_repair(param, info))
    goto err;

2383 2384
  if (!rep_quick)
  {
2385
    sort_info.new_info->state->data_file_length= sort_param.filepos;
2386 2387 2388 2389 2390 2391 2392 2393
    if (sort_info.new_info != sort_info.info)
    {
      MARIA_STATE_INFO save_state= sort_info.new_info->s->state;
      if (maria_close(sort_info.new_info))
      {
        _ma_check_print_error(param, "Got error %d on close", my_errno);
        goto err;
      }
2394
      copy_data_file_state(&share->state, &save_state);
2395
      new_file= -1;
2396
      sort_info.new_info= info;
2397
    }
2398
    share->state.version=(ulong) time((time_t*) 0);	/* Force reopen */
2399 2400 2401 2402

    /* Replace the actual file with the temporary file */
    if (new_file >= 0)
      my_close(new_file, MYF(MY_WME));
unknown's avatar
unknown committed
2403 2404
    new_file= -1;
    change_data_file_descriptor(info, -1);
2405 2406 2407
    if (maria_change_to_newfile(share->data_file_name,MARIA_NAME_DEXT,
                                DATA_TMP_EXT,
                                (param->testflag & T_BACKUP_DATA ?
2408 2409
                                 MYF(MY_REDEL_MAKE_BACKUP): MYF(0)) |
                                sync_dir) ||
2410 2411 2412 2413
        _ma_open_datafile(info, share, -1))
    {
      goto err;
    }
2414 2415 2416
  }
  else
  {
2417
    info->state->data_file_length= sort_param.max_pos;
2418 2419
  }
  if (param->testflag & T_CALC_CHECKSUM)
2420
    info->state->checksum= param->glob_crc;
2421 2422 2423 2424 2425 2426 2427 2428 2429 2430 2431

  if (!(param->testflag & T_SILENT))
  {
    if (start_records != info->state->records)
      printf("Data records: %s\n", llstr(info->state->records,llbuff));
    if (sort_info.dupp)
      _ma_check_print_warning(param,
			     "%s records have been removed",
			     llstr(sort_info.dupp,llbuff));
  }

unknown's avatar
unknown committed
2432
  got_error= 0;
2433 2434 2435 2436 2437
  /* If invoked by external program that uses thr_lock */
  if (&share->state.state != info->state)
    memcpy( &share->state.state, info->state, sizeof(*info->state));

err:
2438 2439 2440
  if (scan_inited)
    maria_scan_end(sort_info.info);

unknown's avatar
unknown committed
2441
  VOID(end_io_cache(&param->read_cache));
2442
  VOID(end_io_cache(&sort_info.new_info->rec_cache));
unknown's avatar
unknown committed
2443
  info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
2444
  sort_info.new_info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
unknown's avatar
unknown committed
2445
  /* this below could fail, shouldn't we detect error? */
2446 2447 2448 2449 2450
  if (got_error)
  {
    if (! param->error_printed)
      _ma_check_print_error(param,"%d for record at pos %s",my_errno,
		  llstr(sort_param.start_recpos,llbuff));
2451
    (void) _ma_flush_table_files_after_repair(param, info);
2452 2453
    if (sort_info.new_info && sort_info.new_info != sort_info.info)
    {
2454
      unuse_data_file_descriptor(sort_info.new_info);
2455 2456
      maria_close(sort_info.new_info);
    }
2457 2458 2459
    if (new_file >= 0)
    {
      VOID(my_close(new_file,MYF(0)));
unknown's avatar
unknown committed
2460
      VOID(my_delete(param->temp_filename, MYF(MY_WME)));
2461 2462 2463
    }
    maria_mark_crashed_on_repair(info);
  }
unknown's avatar
unknown committed
2464 2465 2466 2467 2468 2469 2470 2471
  else if (sync_dir)
  {
    /*
      Now that we have flushed and forced everything, we can bump
      create_rename_lsn:
    */
    write_log_record_for_repair(param, info);
  }
unknown's avatar
unknown committed
2472
  my_free(sort_param.rec_buff, MYF(MY_ALLOW_ZERO_PTR));
2473 2474
  my_free(sort_param.record,MYF(MY_ALLOW_ZERO_PTR));
  my_free(sort_info.buff,MYF(MY_ALLOW_ZERO_PTR));
unknown's avatar
unknown committed
2475 2476
  if (!got_error && (param->testflag & T_UNPACK))
    restore_data_file_type(share);
2477
  share->state.changed|= (STATE_NOT_OPTIMIZED_KEYS | STATE_NOT_SORTED_PAGES |
unknown's avatar
unknown committed
2478 2479 2480
			  STATE_NOT_ANALYZED | STATE_NOT_ZEROFILLED);
  if (!rep_quick)
    share->state.changed&= ~(STATE_NOT_OPTIMIZED_ROWS | STATE_NOT_MOVABLE);
2481 2482 2483 2484
  DBUG_RETURN(got_error);
}


unknown's avatar
unknown committed
2485
/* Uppdate keyfile when doing repair */
2486

2487
static int writekeys(MARIA_SORT_PARAM *sort_param)
2488
{
2489
  uint i;
unknown's avatar
unknown committed
2490
  uchar *key;
2491 2492 2493 2494
  MARIA_HA *info=     sort_param->sort_info->info;
  MARIA_SHARE *share= info->s;
  uchar     *buff=    sort_param->record;
  my_off_t filepos=   sort_param->current_filepos;
2495 2496
  DBUG_ENTER("writekeys");

2497 2498
  key= info->lastkey+share->base.max_key_length;
  for (i=0 ; i < share->base.keys ; i++)
2499
  {
2500
    if (maria_is_key_active(share->state.key_map, i))
2501
    {
2502
      if (share->keyinfo[i].flag & HA_FULLTEXT )
2503
      {
2504
        if (_ma_ft_add(info,i, key,buff,filepos))
2505 2506 2507
	  goto err;
      }
#ifdef HAVE_SPATIAL
2508
      else if (share->keyinfo[i].flag & HA_SPATIAL)
2509 2510 2511 2512 2513 2514 2515 2516 2517 2518 2519 2520 2521 2522 2523 2524 2525 2526 2527 2528 2529 2530
      {
	uint key_length= _ma_make_key(info,i,key,buff,filepos);
	if (maria_rtree_insert(info, i, key, key_length))
	  goto err;
      }
#endif /*HAVE_SPATIAL*/
      else
      {
	uint key_length= _ma_make_key(info,i,key,buff,filepos);
	if (_ma_ck_write(info,i,key,key_length))
	  goto err;
      }
    }
  }
  DBUG_RETURN(0);

 err:
  if (my_errno == HA_ERR_FOUND_DUPP_KEY)
  {
    info->errkey=(int) i;			/* This key was found */
    while ( i-- > 0 )
    {
2531
      if (maria_is_key_active(share->state.key_map, i))
2532
      {
2533
	if (share->keyinfo[i].flag & HA_FULLTEXT)
2534
        {
2535
          if (_ma_ft_del(info,i,key,buff,filepos))
2536 2537 2538 2539 2540 2541 2542 2543 2544 2545 2546 2547
	    break;
        }
        else
	{
	  uint key_length= _ma_make_key(info,i,key,buff,filepos);
	  if (_ma_ck_delete(info,i,key,key_length))
	    break;
	}
      }
    }
  }
  /* Remove checksum that was added to glob_crc in sort_get_next_record */
2548
  if (sort_param->calc_checksum)
unknown's avatar
unknown committed
2549
    sort_param->sort_info->param->glob_crc-= info->cur_row.checksum;
2550 2551 2552 2553 2554 2555 2556
  DBUG_PRINT("error",("errno: %d",my_errno));
  DBUG_RETURN(-1);
} /* writekeys */


	/* Change all key-pointers that points to a records */

unknown's avatar
unknown committed
2557
int maria_movepoint(register MARIA_HA *info, uchar *record,
unknown's avatar
unknown committed
2558 2559
                    MARIA_RECORD_POS oldpos, MARIA_RECORD_POS newpos,
                    uint prot_key)
2560 2561
{
  register uint i;
unknown's avatar
unknown committed
2562
  uchar *key;
2563
  uint key_length;
2564
  MARIA_SHARE *share= info->s;
2565 2566
  DBUG_ENTER("maria_movepoint");

2567 2568
  key= info->lastkey+share->base.max_key_length;
  for (i=0 ; i < share->base.keys; i++)
2569
  {
2570
    if (i != prot_key && maria_is_key_active(share->state.key_map, i))
2571 2572
    {
      key_length= _ma_make_key(info,i,key,record,oldpos);
2573
      if (share->keyinfo[i].flag & HA_NOSAME)
2574 2575 2576
      {					/* Change pointer direct */
	uint nod_flag;
	MARIA_KEYDEF *keyinfo;
2577
	keyinfo=share->keyinfo+i;
2578 2579
	if (_ma_search(info,keyinfo,key,USE_WHOLE_KEY,
		       (uint) (SEARCH_SAME | SEARCH_SAVE_BUFF),
2580
		       share->state.key_root[i]))
2581
	  DBUG_RETURN(-1);
2582
	nod_flag= _ma_test_if_nod(share, info->buff);
2583
	_ma_dpointer(info,info->int_keypos-nod_flag-
2584
		     share->rec_reflength,newpos);
2585 2586 2587
	if (_ma_write_keypage(info, keyinfo, info->last_keypage,
                              PAGECACHE_LOCK_LEFT_UNLOCKED, DFLT_INIT_HITS,
                              info->buff))
2588 2589 2590 2591 2592 2593 2594 2595 2596 2597 2598 2599 2600 2601 2602 2603 2604 2605 2606 2607 2608 2609 2610 2611 2612 2613 2614 2615 2616 2617 2618 2619
	  DBUG_RETURN(-1);
      }
      else
      {					/* Change old key to new */
	if (_ma_ck_delete(info,i,key,key_length))
	  DBUG_RETURN(-1);
	key_length= _ma_make_key(info,i,key,record,newpos);
	if (_ma_ck_write(info,i,key,key_length))
	  DBUG_RETURN(-1);
      }
    }
  }
  DBUG_RETURN(0);
} /* maria_movepoint */


	/* Tell system that we want all memory for our cache */

void maria_lock_memory(HA_CHECK *param __attribute__((unused)))
{
#ifdef SUN_OS				/* Key-cacheing thrases on sun 4.1 */
  if (param->opt_maria_lock_memory)
  {
    int success = mlockall(MCL_CURRENT);	/* or plock(DATLOCK); */
    if (geteuid() == 0 && success != 0)
      _ma_check_print_warning(param,
			     "Failed to lock memory. errno %d",my_errno);
  }
#endif
} /* maria_lock_memory */


unknown's avatar
unknown committed
2620 2621 2622 2623 2624 2625
/**
   Flush all changed blocks to disk so that we can say "at the end of repair,
   the table is fully ok on disk".

   It is a requirement for transactional tables.
   We release blocks as it's unlikely that they would all be needed soon.
2626

unknown's avatar
unknown committed
2627 2628 2629 2630 2631
   @param  param           description of the repair operation
   @param  info            table
*/

int _ma_flush_table_files_after_repair(HA_CHECK *param, MARIA_HA *info)
2632
{
unknown's avatar
unknown committed
2633
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
2634
  DBUG_ENTER("_ma_flush_table_files_after_repair");
unknown's avatar
unknown committed
2635 2636
  if (_ma_flush_table_files(info, MARIA_FLUSH_DATA | MARIA_FLUSH_INDEX,
                            FLUSH_RELEASE, FLUSH_RELEASE) ||
unknown's avatar
unknown committed
2637 2638
      _ma_state_info_write(share, 1|4) ||
      (share->base.born_transactional && _ma_sync_table_files(info)))
2639 2640
  {
    _ma_check_print_error(param,"%d when trying to write bufferts",my_errno);
unknown's avatar
unknown committed
2641
    DBUG_RETURN(1);
2642
  }
unknown's avatar
unknown committed
2643
  DBUG_RETURN(0);
unknown's avatar
unknown committed
2644
} /* _ma_flush_table_files_after_repair */
2645 2646 2647 2648


	/* Sort index for more efficent reads */

unknown's avatar
unknown committed
2649
int maria_sort_index(HA_CHECK *param, register MARIA_HA *info, char *name)
2650 2651 2652 2653 2654 2655 2656
{
  reg2 uint key;
  reg1 MARIA_KEYDEF *keyinfo;
  File new_file;
  my_off_t index_pos[HA_MAX_POSSIBLE_KEY];
  uint r_locks,w_locks;
  int old_lock;
2657
  MARIA_SHARE *share= info->s;
2658
  MARIA_STATE_INFO old_state;
2659 2660
  myf sync_dir= ((share->now_transactional && !share->temporary) ?
                 MY_SYNC_DIR : 0);
2661 2662
  DBUG_ENTER("maria_sort_index");

2663 2664 2665 2666 2667 2668
  /* cannot sort index files with R-tree indexes */
  for (key= 0,keyinfo= &share->keyinfo[0]; key < share->base.keys ;
       key++,keyinfo++)
    if (keyinfo->key_alg == HA_KEY_ALG_RTREE)
      DBUG_RETURN(0);

2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681
  if (!(param->testflag & T_SILENT))
    printf("- Sorting index for MARIA-table '%s'\n",name);

  /* Get real path for index file */
  fn_format(param->temp_filename,name,"", MARIA_NAME_IEXT,2+4+32);
  if ((new_file=my_create(fn_format(param->temp_filename,param->temp_filename,
				    "", INDEX_TMP_EXT,2+4),
			  0,param->tmpfile_createflag,MYF(0))) <= 0)
  {
    _ma_check_print_error(param,"Can't create new tempfile: '%s'",
			 param->temp_filename);
    DBUG_RETURN(-1);
  }
unknown's avatar
unknown committed
2682
  if (maria_filecopy(param, new_file, share->kfile.file, 0L,
unknown's avatar
unknown committed
2683
                     (ulong) share->base.keystart, "headerblock"))
2684 2685 2686 2687 2688 2689
    goto err;

  param->new_file_pos=share->base.keystart;
  for (key= 0,keyinfo= &share->keyinfo[0]; key < share->base.keys ;
       key++,keyinfo++)
  {
2690
    if (! maria_is_key_active(share->state.key_map, key))
2691 2692 2693 2694 2695 2696 2697 2698 2699 2700 2701 2702 2703
      continue;

    if (share->state.key_root[key] != HA_OFFSET_ERROR)
    {
      index_pos[key]=param->new_file_pos;	/* Write first block here */
      if (sort_one_index(param,info,keyinfo,share->state.key_root[key],
			 new_file))
	goto err;
    }
    else
      index_pos[key]= HA_OFFSET_ERROR;		/* No blocks */
  }

unknown's avatar
unknown committed
2704
  /* Flush key cache for this file if we are calling this outside maria_chk */
unknown's avatar
unknown committed
2705 2706
  flush_pagecache_blocks(share->pagecache, &share->kfile,
                         FLUSH_IGNORE_CHANGED);
2707 2708 2709 2710 2711 2712 2713 2714 2715 2716

  share->state.version=(ulong) time((time_t*) 0);
  old_state= share->state;			/* save state if not stored */
  r_locks=   share->r_locks;
  w_locks=   share->w_locks;
  old_lock=  info->lock_type;

	/* Put same locks as old file */
  share->r_locks= share->w_locks= share->tot_locks= 0;
  (void) _ma_writeinfo(info,WRITEINFO_UPDATE_KEYFILE);
unknown's avatar
unknown committed
2717
  pthread_mutex_lock(&share->intern_lock);
unknown's avatar
unknown committed
2718 2719
  VOID(my_close(share->kfile.file, MYF(MY_WME)));
  share->kfile.file = -1;
unknown's avatar
unknown committed
2720
  pthread_mutex_unlock(&share->intern_lock);
2721
  VOID(my_close(new_file,MYF(MY_WME)));
unknown's avatar
unknown committed
2722
  if (maria_change_to_newfile(share->index_file_name, MARIA_NAME_IEXT,
2723
                              INDEX_TMP_EXT, sync_dir) ||
2724 2725 2726 2727 2728 2729 2730 2731 2732 2733 2734 2735
      _ma_open_keyfile(share))
    goto err2;
  info->lock_type= F_UNLCK;			/* Force maria_readinfo to lock */
  _ma_readinfo(info,F_WRLCK,0);			/* Will lock the table */
  info->lock_type=  old_lock;
  share->r_locks=   r_locks;
  share->w_locks=   w_locks;
  share->tot_locks= r_locks+w_locks;
  share->state=     old_state;			/* Restore old state */

  info->state->key_file_length=param->new_file_pos;
  info->update= (short) (HA_STATE_CHANGED | HA_STATE_ROW_CHANGED);
2736 2737 2738
  for (key=0 ; key < share->base.keys ; key++)
    share->state.key_root[key]=index_pos[key];
  share->state.key_del=  HA_OFFSET_ERROR;
2739

2740
  share->state.changed&= ~STATE_NOT_SORTED_PAGES;
unknown's avatar
unknown committed
2741 2742 2743 2744 2745 2746 2747 2748 2749 2750 2751
  DBUG_EXECUTE_IF("maria_flush_whole_log",
                  {
                    DBUG_PRINT("maria_flush_whole_log", ("now"));
                    translog_flush(translog_get_horizon());
                  });
  DBUG_EXECUTE_IF("maria_crash_sort_index",
                  {
                    DBUG_PRINT("maria_crash_sort_index", ("now"));
                    fflush(DBUG_FILE);
                    abort();
                  });
2752 2753 2754 2755 2756 2757 2758 2759 2760 2761
  DBUG_RETURN(0);

err:
  VOID(my_close(new_file,MYF(MY_WME)));
err2:
  VOID(my_delete(param->temp_filename,MYF(MY_WME)));
  DBUG_RETURN(-1);
} /* maria_sort_index */


unknown's avatar
unknown committed
2762 2763 2764 2765 2766 2767 2768 2769 2770 2771 2772 2773 2774 2775
/**
  @brief put CRC on the page

  @param buff            reference on the page buffer.
  @param pos             position of the page in the file.
  @param length          length of the page
*/

static void put_crc(char *buff, my_off_t pos, MARIA_SHARE *share)
{
  maria_page_crc_set_index(buff, pos / share->block_size, (uchar*) share);
}


2776 2777
	 /* Sort records recursive using one index */

unknown's avatar
unknown committed
2778 2779
static int sort_one_index(HA_CHECK *param, MARIA_HA *info,
                          MARIA_KEYDEF *keyinfo,
2780 2781 2782
			  my_off_t pagepos, File new_file)
{
  uint length,nod_flag,used_length, key_length;
unknown's avatar
unknown committed
2783 2784
  uchar *buff,*keypos,*endpos;
  uchar key[HA_MAX_POSSIBLE_KEY_BUFF];
2785
  my_off_t new_page_pos,next_page;
2786
  MARIA_SHARE *share= info->s;
2787 2788
  DBUG_ENTER("sort_one_index");

2789 2790
  /* cannot walk over R-tree indices */
  DBUG_ASSERT(keyinfo->key_alg != HA_KEY_ALG_RTREE);
2791 2792 2793
  new_page_pos=param->new_file_pos;
  param->new_file_pos+=keyinfo->block_length;

unknown's avatar
unknown committed
2794
  if (!(buff= (uchar*) my_alloca((uint) keyinfo->block_length)))
2795 2796 2797 2798
  {
    _ma_check_print_error(param,"Not enough memory for key block");
    DBUG_RETURN(-1);
  }
2799 2800
  if (!_ma_fetch_keypage(info, keyinfo, pagepos,PAGECACHE_LOCK_LEFT_UNLOCKED,
                         DFLT_INIT_HITS, buff, 0, 0))
2801
  {
2802
    report_keypage_fault(param, pagepos);
2803 2804
    goto err;
  }
2805
  if ((nod_flag=_ma_test_if_nod(share, buff)) || keyinfo->flag & HA_FULLTEXT)
2806
  {
2807 2808
    used_length= _ma_get_page_used(share, buff);
    keypos=buff + share->keypage_header + nod_flag;
2809
    endpos=buff + used_length;
2810 2811 2812 2813 2814 2815 2816 2817 2818 2819 2820 2821 2822
    for ( ;; )
    {
      if (nod_flag)
      {
	next_page= _ma_kpos(nod_flag,keypos);
        /* Save new pos */
	_ma_kpointer(info,keypos-nod_flag,param->new_file_pos);
	if (sort_one_index(param,info,keyinfo,next_page,new_file))
	{
	  DBUG_PRINT("error",
		     ("From page: %ld, keyoffset: %lu  used_length: %d",
		      (ulong) pagepos, (ulong) (keypos - buff),
		      (int) used_length));
unknown's avatar
unknown committed
2823
	  DBUG_DUMP("buff",(uchar*) buff,used_length);
2824 2825 2826 2827 2828 2829 2830 2831 2832 2833 2834 2835 2836 2837 2838 2839
	  goto err;
	}
      }
      if (keypos >= endpos ||
	  (key_length=(*keyinfo->get_key)(keyinfo,nod_flag,&keypos,key)) == 0)
	break;
      DBUG_ASSERT(keypos <= endpos);
      if (keyinfo->flag & HA_FULLTEXT)
      {
        uint off;
        int  subkeys;
        get_key_full_length_rdonly(off, key);
        subkeys=ft_sintXkorr(key+off);
        if (subkeys < 0)
        {
          next_page= _ma_dpos(info,0,key+key_length);
2840
          _ma_dpointer(info,keypos-nod_flag-share->rec_reflength,
2841
                       param->new_file_pos); /* Save new pos */
2842
          if (sort_one_index(param,info,&share->ft2_keyinfo,
2843 2844 2845 2846 2847 2848 2849 2850
                             next_page,new_file))
            goto err;
        }
      }
    }
  }

  /* Fill block with zero and write it to the new index file */
2851
  length= _ma_get_page_used(share, buff);
unknown's avatar
unknown committed
2852
  bzero((uchar*) buff+length,keyinfo->block_length-length);
unknown's avatar
unknown committed
2853
  put_crc(buff, new_page_pos, share);
unknown's avatar
unknown committed
2854
  if (my_pwrite(new_file,(uchar*) buff,(uint) keyinfo->block_length,
2855 2856 2857 2858 2859
		new_page_pos,MYF(MY_NABP | MY_WAIT_IF_FULL)))
  {
    _ma_check_print_error(param,"Can't write indexblock, error: %d",my_errno);
    goto err;
  }
unknown's avatar
unknown committed
2860
  my_afree((uchar*) buff);
2861 2862
  DBUG_RETURN(0);
err:
unknown's avatar
unknown committed
2863
  my_afree((uchar*) buff);
2864 2865 2866 2867
  DBUG_RETURN(1);
} /* sort_one_index */


unknown's avatar
unknown committed
2868 2869 2870 2871 2872 2873 2874 2875 2876 2877 2878 2879 2880 2881 2882 2883 2884 2885 2886 2887 2888 2889 2890 2891 2892 2893 2894 2895 2896 2897 2898 2899 2900 2901 2902 2903 2904 2905 2906 2907 2908 2909 2910 2911 2912 2913 2914 2915 2916
/**
   @brief Fill empty space in index file with zeroes

   @return
   @retval 0  Ok
   @retval 1  Error
*/

static my_bool maria_zerofill_index(HA_CHECK *param, MARIA_HA *info,
                                    const char *name)
{
  MARIA_SHARE *share= info->s;
  MARIA_PINNED_PAGE page_link;
  char llbuff[21];
  uchar *buff;
  ulonglong page;
  my_off_t pos;
  my_off_t key_file_length= share->state.state.key_file_length;
  uint block_size= share->block_size;
  my_bool transactional= share->base.born_transactional;
  DBUG_ENTER("maria_zerofill_index");

  if (!(param->testflag & T_SILENT))
    printf("- Zerofilling index for MARIA-table '%s'\n",name);

  /* Go through the index file */
  for (pos= share->base.keystart, page= (ulonglong) (pos / block_size);
       pos < key_file_length;
       pos+= block_size, page++)
  {
    uint length;
    if (!(buff= pagecache_read(share->pagecache,
                               &share->kfile, page,
                               DFLT_INIT_HITS, 0,
                               PAGECACHE_PLAIN_PAGE, PAGECACHE_LOCK_WRITE,
                               &page_link.link)))
    {
      pagecache_unlock_by_link(share->pagecache, page_link.link,
                               PAGECACHE_LOCK_WRITE_UNLOCK,
                               PAGECACHE_UNPIN, LSN_IMPOSSIBLE,
                               LSN_IMPOSSIBLE, 0);
      _ma_check_print_error(param,
                            "Page %9s: Got error %d when reading index file",
                            llstr(pos, llbuff), my_errno);
      DBUG_RETURN(1);
    }
    if (transactional)
      bzero(buff, LSN_SIZE);
    length= _ma_get_page_used(share, buff);
2917 2918 2919
    /* Skip mailformed blocks */
    DBUG_ASSERT(length + share->keypage_header <= block_size);
    if (length + share->keypage_header < block_size)
unknown's avatar
unknown committed
2920 2921 2922 2923 2924 2925 2926 2927 2928 2929 2930 2931 2932 2933 2934 2935 2936 2937 2938 2939 2940 2941 2942 2943 2944 2945 2946 2947 2948 2949 2950 2951 2952 2953 2954 2955 2956 2957 2958 2959 2960 2961 2962 2963 2964 2965 2966 2967 2968 2969 2970 2971 2972 2973 2974 2975 2976 2977 2978 2979 2980 2981 2982 2983 2984 2985 2986 2987 2988 2989 2990 2991 2992 2993 2994 2995 2996 2997 2998 2999 3000 3001 3002 3003 3004 3005 3006 3007 3008 3009
      bzero(buff + share->keypage_header + length, block_size - length -
            share->keypage_header);
    pagecache_unlock_by_link(share->pagecache, page_link.link,
                             PAGECACHE_LOCK_WRITE_UNLOCK,
                             PAGECACHE_UNPIN, LSN_IMPOSSIBLE,
                             LSN_IMPOSSIBLE, 1);
  }
  if (flush_pagecache_blocks(share->pagecache, &share->kfile,
                             FLUSH_FORCE_WRITE))
    DBUG_RETURN(1);
  DBUG_RETURN(0);
}


/**
   @brief Fill empty space in index file with zeroes

   @todo
   Zerofill all pages marked in bitmap as empty and change them to
   be of type UNALLOCATED_PAGE

   @return
   @retval 0  Ok
   @retval 1  Error
*/

static my_bool maria_zerofill_data(HA_CHECK *param, MARIA_HA *info,
                                   const char *name)
{
  MARIA_SHARE *share= info->s;
  MARIA_PINNED_PAGE page_link;
  char llbuff[21];
  my_off_t pos;
  ulonglong page;
  uint block_size= share->block_size;
  DBUG_ENTER("maria_zerofill_data");

  /* This works only with BLOCK_RECORD files */
  if (share->data_file_type != BLOCK_RECORD)
    DBUG_RETURN(0);

  if (!(param->testflag & T_SILENT))
    printf("- Zerofilling data  for MARIA-table '%s'\n",name);

  /* Go through the record file */
  for (page= 1, pos= block_size;
       pos < info->state->data_file_length;
       pos+= block_size, page++)
  {
    uchar *buff;
    uint page_type;

    /* Ignore bitmap pages */
    if ((page % share->bitmap.pages_covered) == 0)
      continue;
    if (!(buff= pagecache_read(share->pagecache,
                               &info->dfile,
                               page, 1, 0,
                               PAGECACHE_PLAIN_PAGE, PAGECACHE_LOCK_WRITE,
                               &page_link.link)))
    {
      _ma_check_print_error(param,
                            "Page %9s:  Got error: %d when reading datafile",
                            llstr(pos, llbuff), my_errno);
      goto err;
    }
    page_type= buff[PAGE_TYPE_OFFSET] & PAGE_TYPE_MASK;
    switch ((enum en_page_type) page_type) {
    case UNALLOCATED_PAGE:
      bzero(buff, block_size);
      break;
    case BLOB_PAGE:
      bzero(buff, LSN_SIZE);
      break;
    case HEAD_PAGE:
    case TAIL_PAGE:
    {
      uint max_entry= (uint) buff[DIR_COUNT_OFFSET];
      uint offset, dir_start;
      uchar *dir;

      bzero(buff, LSN_SIZE);
      if (max_entry != 0)
      {
        dir= dir_entry_pos(buff, block_size, max_entry - 1);
        _ma_compact_block_page(buff, block_size, max_entry -1, 0);

        /* Zerofille the not used part */
        offset= uint2korr(dir) + uint2korr(dir+2);
        dir_start= (uint) (dir - buff);
3010
        DBUG_ASSERT(dir_start >= offset);
unknown's avatar
unknown committed
3011 3012 3013 3014 3015 3016 3017 3018 3019 3020 3021 3022 3023 3024 3025 3026 3027 3028 3029 3030 3031 3032 3033 3034 3035 3036 3037 3038 3039 3040 3041 3042 3043 3044 3045 3046 3047 3048 3049 3050 3051 3052 3053 3054 3055 3056 3057 3058 3059 3060 3061 3062 3063 3064 3065 3066 3067 3068 3069 3070 3071 3072 3073 3074 3075 3076 3077 3078
        if (dir_start > offset)
          bzero(buff + offset, dir_start - offset);
      }
      break;
    }
    default:
      _ma_check_print_error(param,
                            "Page %9s:  Found unrecognizable block of type %d",
                            llstr(pos, llbuff), page_type);
      goto err;
    }
    pagecache_unlock_by_link(share->pagecache, page_link.link,
                             PAGECACHE_LOCK_WRITE_UNLOCK,
                             PAGECACHE_UNPIN, LSN_IMPOSSIBLE,
                             LSN_IMPOSSIBLE, 1);
  }
  if (flush_pagecache_blocks(share->pagecache, &info->dfile,
                             FLUSH_FORCE_WRITE))
    DBUG_RETURN(1);
  DBUG_RETURN(0);

err:
  pagecache_unlock_by_link(share->pagecache, page_link.link,
                           PAGECACHE_LOCK_WRITE_UNLOCK,
                           PAGECACHE_UNPIN, LSN_IMPOSSIBLE,
                           LSN_IMPOSSIBLE, 0);
  DBUG_RETURN(1);
}


/**
   @brief Fill empty space in index and data files with zeroes

   @return
   @retval 0  Ok
   @retval 1  Error
*/

int maria_zerofill(HA_CHECK *param, MARIA_HA *info, const char *name)
{
  DBUG_ENTER("maria_zerofill");

  if (maria_zerofill_index(param, info, name))
    DBUG_RETURN(1);
  if (maria_zerofill_data(param, info, name))
    DBUG_RETURN(1);
  if (_ma_set_uuid(info, 0))
    DBUG_RETURN(1);

  /*
    Mark that table is movable and that we have done zerofill of data and
    index
  */
  info->s->state.changed&= ~(STATE_NOT_ZEROFILLED | STATE_NOT_MOVABLE);
  /* Ensure state are flushed to disk */
  info->update= (HA_STATE_CHANGED | HA_STATE_ROW_CHANGED);
  DBUG_RETURN(0);
}


/*
  Let temporary file replace old file.
  This assumes that the new file was created in the same
  directory as given by realpath(filename).
  This will ensure that any symlinks that are used will still work.
  Copy stats from old file to new file, deletes orignal and
  changes new file name to old file name
*/
3079 3080

int maria_change_to_newfile(const char * filename, const char * old_ext,
unknown's avatar
unknown committed
3081
                            const char * new_ext, myf MyFlags)
3082 3083 3084 3085 3086 3087 3088 3089 3090 3091 3092 3093 3094 3095 3096 3097 3098
{
  char old_filename[FN_REFLEN],new_filename[FN_REFLEN];
#ifdef USE_RAID
  if (raid_chunks)
    return my_raid_redel(fn_format(old_filename,filename,"",old_ext,2+4),
			 fn_format(new_filename,filename,"",new_ext,2+4),
			 raid_chunks,
			 MYF(MY_WME | MY_LINK_WARNING | MyFlags));
#endif
  /* Get real path to filename */
  (void) fn_format(old_filename,filename,"",old_ext,2+4+32);
  return my_redel(old_filename,
		  fn_format(new_filename,old_filename,"",new_ext,2+4),
		  MYF(MY_WME | MY_LINK_WARNING | MyFlags));
} /* maria_change_to_newfile */


3099
/* Copy a block between two files */
3100 3101 3102 3103 3104 3105 3106 3107 3108 3109 3110 3111 3112 3113 3114 3115 3116

int maria_filecopy(HA_CHECK *param, File to,File from,my_off_t start,
	     my_off_t length, const char *type)
{
  char tmp_buff[IO_SIZE],*buff;
  ulong buff_length;
  DBUG_ENTER("maria_filecopy");

  buff_length=(ulong) min(param->write_buffer_length,length);
  if (!(buff=my_malloc(buff_length,MYF(0))))
  {
    buff=tmp_buff; buff_length=IO_SIZE;
  }

  VOID(my_seek(from,start,MY_SEEK_SET,MYF(0)));
  while (length > buff_length)
  {
unknown's avatar
unknown committed
3117 3118
    if (my_read(from,(uchar*) buff,buff_length,MYF(MY_NABP)) ||
	my_write(to,(uchar*) buff,buff_length,param->myf_rw))
3119 3120 3121
      goto err;
    length-= buff_length;
  }
unknown's avatar
unknown committed
3122 3123
  if (my_read(from,(uchar*) buff,(uint) length,MYF(MY_NABP)) ||
      my_write(to,(uchar*) buff,(uint) length,param->myf_rw))
3124 3125 3126 3127 3128 3129 3130 3131 3132 3133 3134 3135 3136 3137 3138 3139 3140 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 3152
    goto err;
  if (buff != tmp_buff)
    my_free(buff,MYF(0));
  DBUG_RETURN(0);
err:
  if (buff != tmp_buff)
    my_free(buff,MYF(0));
  _ma_check_print_error(param,"Can't copy %s to tempfile, error %d",
		       type,my_errno);
  DBUG_RETURN(1);
}


/*
  Repair table or given index using sorting

  SYNOPSIS
    maria_repair_by_sort()
    param		Repair parameters
    info		MARIA handler to repair
    name		Name of table (for warnings)
    rep_quick		set to <> 0 if we should not change data file

  RESULT
    0	ok
    <>0	Error
*/

int maria_repair_by_sort(HA_CHECK *param, register MARIA_HA *info,
3153
                         const char * name, uint rep_quick)
3154 3155 3156 3157
{
  int got_error;
  uint i;
  ha_rows start_records;
3158
  my_off_t new_header_length, org_header_length, del;
3159 3160
  File new_file;
  MARIA_SORT_PARAM sort_param;
3161
  MARIA_SHARE *share= info->s;
3162
  HA_KEYSEG *keyseg;
3163
  double  *rec_per_key_part;
3164 3165
  char llbuff[22];
  MARIA_SORT_INFO sort_info;
3166
  ulonglong key_map= share->state.key_map;
unknown's avatar
unknown committed
3167
  myf sync_dir= ((share->now_transactional && !share->temporary) ?
3168
                 MY_SYNC_DIR : 0);
3169
  my_bool scan_inited= 0;
3170 3171
  DBUG_ENTER("maria_repair_by_sort");

3172
  got_error= 1;
3173
  new_file= -1;
3174
  start_records= info->state->records;
3175 3176 3177 3178 3179 3180
  if (!(param->testflag & T_SILENT))
  {
    printf("- recovering (with sort) MARIA-table '%s'\n",name);
    printf("Data records: %s\n", llstr(start_records,llbuff));
  }

3181 3182
  if (initialize_variables_for_repair(param, &sort_info, &sort_param, info,
                                      rep_quick))
3183 3184
    goto err;

3185 3186 3187 3188
  org_header_length= share->pack.header_length;
  new_header_length= (param->testflag & T_UNPACK) ? 0 : org_header_length;
  sort_param.filepos= new_header_length;

3189 3190 3191
  if (!rep_quick)
  {
    /* Get real path for data file */
unknown's avatar
unknown committed
3192 3193 3194 3195 3196
    if ((new_file=my_create(fn_format(param->temp_filename,
                                      share->data_file_name, "",
                                      DATA_TMP_EXT, 2+4),
                            0,param->tmpfile_createflag,
                            MYF(0))) < 0)
3197 3198 3199 3200 3201
    {
      _ma_check_print_error(param,"Can't create new tempfile: '%s'",
			   param->temp_filename);
      goto err;
    }
3202
    if (new_header_length &&
unknown's avatar
unknown committed
3203 3204
        maria_filecopy(param, new_file, info->dfile.file, 0L,
                       new_header_length, "datafile-header"))
3205
      goto err;
3206

3207
    share->state.dellink= HA_OFFSET_ERROR;
3208 3209 3210 3211 3212 3213 3214 3215 3216 3217 3218 3219 3220 3221 3222 3223 3224
    info->rec_cache.file= new_file;             /* For sort_delete_record */
    if (share->data_file_type == BLOCK_RECORD ||
        (param->testflag & T_UNPACK))
    {
      if (create_new_data_handle(&sort_param, new_file))
        goto err;
      sort_info.new_info->rec_cache.file= new_file;
    }
  }

  if (!(sort_info.key_block=
	alloc_key_blocks(param,
			 (uint) param->sort_key_blocks,
			 share->base.max_key_block_length)))
    goto err;
  sort_info.key_block_end=sort_info.key_block+param->sort_key_blocks;

3225
  if (share->data_file_type != BLOCK_RECORD)
3226 3227 3228 3229 3230 3231 3232 3233 3234 3235 3236 3237 3238 3239 3240 3241 3242 3243 3244 3245 3246 3247 3248 3249
  {
    /* We need a read buffer to read rows in big blocks */
    if (init_io_cache(&param->read_cache, info->dfile.file,
                      (uint) param->read_buffer_length,
                      READ_CACHE, org_header_length, 1, MYF(MY_WME)))
      goto err;
  }
  if (sort_info.new_info->s->data_file_type != BLOCK_RECORD)
  {
    /* When writing to not block records, we need a write buffer */
    if (!rep_quick)
    {
      if (init_io_cache(&sort_info.new_info->rec_cache, new_file,
                        (uint) param->write_buffer_length,
                        WRITE_CACHE, new_header_length, 1,
                        MYF(MY_WME | MY_WAIT_IF_FULL) & param->myf_rw))
        goto err;
      sort_info.new_info->opt_flag|= WRITE_CACHE_USED;
    }
  }

  if (!(sort_param.record=(uchar*) my_malloc((uint) share->base.pack_reclength,
					   MYF(0))) ||
      _ma_alloc_buffer(&sort_param.rec_buff, &sort_param.rec_buff_size,
3250
                       share->base.default_rec_buff_size))
3251 3252 3253
  {
    _ma_check_print_error(param, "Not enough memory for extra record");
    goto err;
3254 3255 3256 3257 3258 3259 3260
  }

  if (!(param->testflag & T_CREATE_MISSING_KEYS))
  {
    /* Clear the pointers to the given rows */
    for (i=0 ; i < share->base.keys ; i++)
      share->state.key_root[i]= HA_OFFSET_ERROR;
unknown's avatar
unknown committed
3261
    share->state.key_del= HA_OFFSET_ERROR;
3262 3263 3264 3265 3266
    info->state->key_file_length=share->base.keystart;
  }
  else
    key_map= ~key_map;				/* Create the missing keys */

3267
  param->read_cache.end_of_file= sort_info.filelength;
3268
  sort_param.wordlist=NULL;
3269
  init_alloc_root(&sort_param.wordroot, FTPARSER_MEMROOT_ALLOC_SIZE, 0);
3270 3271 3272 3273 3274 3275 3276 3277

  sort_param.key_cmp=sort_key_cmp;
  sort_param.lock_in_memory=maria_lock_memory;
  sort_param.tmpdir=param->tmpdir;
  sort_param.master =1;

  del=info->state->del;

3278
  rec_per_key_part= param->new_rec_per_key_part;
3279 3280 3281 3282 3283 3284 3285 3286 3287
  for (sort_param.key=0 ; sort_param.key < share->base.keys ;
       rec_per_key_part+=sort_param.keyinfo->keysegs, sort_param.key++)
  {
    sort_param.keyinfo=share->keyinfo+sort_param.key;
    if (! maria_is_key_active(key_map, sort_param.key))
    {
      /* Remember old statistics for key */
      memcpy((char*) rec_per_key_part,
	     (char*) (share->state.rec_per_key_part +
3288
		      (uint) (rec_per_key_part - param->new_rec_per_key_part)),
3289 3290 3291 3292 3293 3294
	     sort_param.keyinfo->keysegs*sizeof(*rec_per_key_part));
      continue;
    }

    if ((!(param->testflag & T_SILENT)))
      printf ("- Fixing index %d\n",sort_param.key+1);
3295 3296 3297

    sort_param.read_cache=param->read_cache;
    sort_param.seg=sort_param.keyinfo->seg;
3298
    sort_param.max_pos= sort_param.pos= org_header_length;
3299 3300 3301 3302 3303 3304 3305 3306 3307 3308 3309 3310 3311 3312 3313 3314 3315 3316 3317 3318
    keyseg=sort_param.seg;
    bzero((char*) sort_param.unique,sizeof(sort_param.unique));
    sort_param.key_length=share->rec_reflength;
    for (i=0 ; keyseg[i].type != HA_KEYTYPE_END; i++)
    {
      sort_param.key_length+=keyseg[i].length;
      if (keyseg[i].flag & HA_SPACE_PACK)
	sort_param.key_length+=get_pack_length(keyseg[i].length);
      if (keyseg[i].flag & (HA_BLOB_PART | HA_VAR_LENGTH_PART))
	sort_param.key_length+=2 + test(keyseg[i].length >= 127);
      if (keyseg[i].flag & HA_NULL_PART)
	sort_param.key_length++;
    }
    info->state->records=info->state->del=share->state.split=0;
    info->state->empty=0;

    if (sort_param.keyinfo->flag & HA_FULLTEXT)
    {
      uint ft_max_word_len_for_sort=FT_MAX_WORD_LEN_FOR_SORT*
                                    sort_param.keyinfo->seg->charset->mbmaxlen;
3319 3320 3321 3322 3323 3324 3325 3326 3327 3328 3329 3330 3331 3332 3333 3334 3335 3336 3337 3338 3339 3340 3341 3342 3343 3344 3345
      sort_param.key_length+=ft_max_word_len_for_sort-HA_FT_MAXBYTELEN;
      /*
        fulltext indexes may have much more entries than the
        number of rows in the table. We estimate the number here.

        Note, built-in parser is always nr. 0 - see ftparser_call_initializer()
      */
      if (sort_param.keyinfo->ftparser_nr == 0)
      {
        /*
          for built-in parser the number of generated index entries
          cannot be larger than the size of the data file divided
          by the minimal word's length
        */
        sort_info.max_records=
          (ha_rows) (sort_info.filelength/ft_min_word_len+1);
      }
      else
      {
        /*
          for external plugin parser we cannot tell anything at all :(
          so, we'll use all the sort memory and start from ~10 buffpeks.
          (see _create_index_by_sort)
        */
        sort_info.max_records=
          10*param->sort_buffer_length/sort_param.key_length;
      }
3346

unknown's avatar
unknown committed
3347 3348
      sort_param.key_read=  sort_maria_ft_key_read;
      sort_param.key_write= sort_maria_ft_key_write;
3349 3350 3351
    }
    else
    {
unknown's avatar
unknown committed
3352 3353
      sort_param.key_read=  sort_key_read;
      sort_param.key_write= sort_key_write;
3354 3355
    }

3356 3357 3358 3359 3360 3361
    if (sort_info.new_info->s->data_file_type == BLOCK_RECORD)
    {
      scan_inited= 1;
      if (maria_scan_init(sort_info.info))
        goto err;
    }
3362
    if (_ma_create_index_by_sort(&sort_param,
3363 3364
                                 (my_bool) (!(param->testflag & T_VERBOSE)),
                                 (size_t) param->sort_buffer_length))
3365 3366 3367 3368
    {
      param->retry_repair=1;
      goto err;
    }
unknown's avatar
unknown committed
3369 3370 3371 3372 3373 3374 3375 3376 3377 3378 3379
    DBUG_EXECUTE_IF("maria_flush_whole_log",
                    {
                      DBUG_PRINT("maria_flush_whole_log", ("now"));
                      translog_flush(translog_get_horizon());
                    });
    DBUG_EXECUTE_IF("maria_crash_create_index_by_sort",
                    {
                      DBUG_PRINT("maria_crash_create_index_by_sort", ("now"));
                      fflush(DBUG_FILE);
                      abort();
                    });
3380 3381 3382 3383 3384 3385
    if (scan_inited)
    {
      scan_inited= 0;
      maria_scan_end(sort_info.info);
    }

3386 3387
    /* No need to calculate checksum again. */
    sort_param.calc_checksum= 0;
3388
    free_root(&sort_param.wordroot, MYF(0));
3389 3390

    /* Set for next loop */
3391
    sort_info.max_records= (ha_rows) sort_info.new_info->state->records;
3392 3393

    if (param->testflag & T_STATISTICS)
3394 3395
      maria_update_key_parts(sort_param.keyinfo, rec_per_key_part,
                             sort_param.unique,
3396 3397 3398
                             (param->stats_method ==
                              MI_STATS_METHOD_IGNORE_NULLS ?
                              sort_param.notnull : NULL),
3399
                             (ulonglong) info->state->records);
3400 3401 3402 3403 3404
    maria_set_key_active(share->state.key_map, sort_param.key);

    if (sort_param.fix_datafile)
    {
      param->read_cache.end_of_file=sort_param.filepos;
3405 3406
      if (maria_write_data_suffix(&sort_info,1) ||
          end_io_cache(&sort_info.new_info->rec_cache))
3407
	goto err;
3408 3409
      sort_info.new_info->opt_flag&= ~WRITE_CACHE_USED;

3410 3411 3412 3413 3414 3415 3416 3417 3418
      if (param->testflag & T_SAFE_REPAIR)
      {
	/* Don't repair if we loosed more than one row */
	if (info->state->records+1 < start_records)
	{
	  info->state->records=start_records;
	  goto err;
	}
      }
3419

unknown's avatar
unknown committed
3420
      /** @todo RECOVERY BUG seems misplaced in some cases */
3421 3422 3423 3424 3425 3426 3427 3428 3429 3430 3431 3432
      if (_ma_flush_table_files_after_repair(param, info))
        goto err;

      sort_info.new_info->state->data_file_length= sort_param.filepos;
      if (sort_info.new_info != sort_info.info)
      {
        MARIA_STATE_INFO save_state= sort_info.new_info->s->state;
        if (maria_close(sort_info.new_info))
        {
          _ma_check_print_error(param, "Got error %d on close", my_errno);
          goto err;
        }
3433
        copy_data_file_state(&share->state, &save_state);
3434 3435 3436 3437 3438 3439 3440 3441 3442 3443 3444 3445 3446 3447 3448 3449 3450 3451 3452 3453 3454 3455 3456 3457 3458 3459
        new_file= -1;
        sort_info.new_info= info;
      }

      share->state.version=(ulong) time((time_t*) 0);	/* Force reopen */

      /* Replace the actual file with the temporary file */
      if (new_file >= 0)
      {
        my_close(new_file, MYF(MY_WME));
        new_file= -1;
      }
      change_data_file_descriptor(info, -1);
      if (maria_change_to_newfile(share->data_file_name,MARIA_NAME_DEXT,
                                  DATA_TMP_EXT,
                                  (param->testflag & T_BACKUP_DATA ?
                                   MYF(MY_REDEL_MAKE_BACKUP): MYF(0)) |
                                  sync_dir) ||
          _ma_open_datafile(info, share, -1))
      {
        goto err;
      }
      if (param->testflag & T_UNPACK)
        restore_data_file_type(share);

      org_header_length= share->pack.header_length;
3460
      sort_info.org_data_file_type= share->data_file_type;
3461
      sort_info.filelength= info->state->data_file_length;
3462 3463 3464 3465 3466
      sort_param.fix_datafile=0;
    }
    else
      info->state->data_file_length=sort_param.max_pos;

unknown's avatar
unknown committed
3467
    param->read_cache.file= info->dfile.file;	/* re-init read cache */
3468 3469 3470 3471 3472 3473 3474 3475 3476 3477 3478 3479 3480 3481 3482 3483 3484 3485 3486 3487 3488
    reinit_io_cache(&param->read_cache,READ_CACHE,share->pack.header_length,
                    1,1);
  }

  if (param->testflag & T_WRITE_LOOP)
  {
    VOID(fputs("          \r",stdout)); VOID(fflush(stdout));
  }

  if (rep_quick && del+sort_info.dupp != info->state->del)
  {
    _ma_check_print_error(param,"Couldn't fix table with quick recovery: Found wrong number of deleted records");
    _ma_check_print_error(param,"Run recovery again without -q");
    got_error=1;
    param->retry_repair=1;
    param->testflag|=T_RETRY_WITHOUT_QUICK;
    goto err;
  }

  if (rep_quick & T_FORCE_UNIQUENESS)
  {
3489 3490 3491
    my_off_t skr= (info->state->data_file_length +
                   (sort_info.org_data_file_type == COMPRESSED_RECORD) ?
                   MEMMAP_EXTRA_MARGIN : 0);
3492
#ifdef USE_RELOC
3493
    if (sort_info.org_data_file_type == STATIC_RECORD &&
3494 3495 3496
	skr < share->base.reloc*share->base.min_pack_length)
      skr=share->base.reloc*share->base.min_pack_length;
#endif
unknown's avatar
unknown committed
3497
    if (skr != sort_info.filelength)
unknown's avatar
unknown committed
3498
      if (my_chsize(info->dfile.file, skr, 0, MYF(0)))
3499 3500 3501 3502
	_ma_check_print_warning(param,
			       "Can't change size of datafile,  error: %d",
			       my_errno);
  }
3503

3504 3505 3506
  if (param->testflag & T_CALC_CHECKSUM)
    info->state->checksum=param->glob_crc;

unknown's avatar
unknown committed
3507
  if (my_chsize(share->kfile.file, info->state->key_file_length, 0, MYF(0)))
3508 3509 3510 3511 3512 3513 3514 3515 3516 3517 3518 3519 3520 3521 3522 3523 3524 3525 3526
    _ma_check_print_warning(param,
			   "Can't change size of indexfile, error: %d",
			   my_errno);

  if (!(param->testflag & T_SILENT))
  {
    if (start_records != info->state->records)
      printf("Data records: %s\n", llstr(info->state->records,llbuff));
    if (sort_info.dupp)
      _ma_check_print_warning(param,
			     "%s records have been removed",
			     llstr(sort_info.dupp,llbuff));
  }
  got_error=0;

  if (&share->state.state != info->state)
    memcpy( &share->state.state, info->state, sizeof(*info->state));

err:
3527 3528 3529 3530
  if (scan_inited)
    maria_scan_end(sort_info.info);

  VOID(end_io_cache(&sort_info.new_info->rec_cache));
unknown's avatar
unknown committed
3531 3532
  VOID(end_io_cache(&param->read_cache));
  info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
3533
  sort_info.new_info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
3534 3535 3536 3537
  if (got_error)
  {
    if (! param->error_printed)
      _ma_check_print_error(param,"%d when fixing table",my_errno);
3538 3539 3540 3541 3542 3543
    (void) _ma_flush_table_files_after_repair(param, info);
    if (sort_info.new_info && sort_info.new_info != sort_info.info)
    {
      unuse_data_file_descriptor(sort_info.new_info);
      maria_close(sort_info.new_info);
    }
3544 3545 3546
    if (new_file >= 0)
    {
      VOID(my_close(new_file,MYF(0)));
unknown's avatar
unknown committed
3547
      VOID(my_delete(param->temp_filename, MYF(MY_WME)));
3548 3549 3550
    }
    maria_mark_crashed_on_repair(info);
  }
3551 3552 3553 3554 3555 3556 3557 3558
  else
  {
    if (key_map == share->state.key_map)
      share->state.changed&= ~STATE_NOT_OPTIMIZED_KEYS;
    /*
      Now that we have flushed and forced everything, we can bump
      create_rename_lsn:
    */
unknown's avatar
unknown committed
3559 3560 3561 3562 3563 3564 3565 3566 3567 3568 3569
    DBUG_EXECUTE_IF("maria_flush_whole_log",
                    {
                      DBUG_PRINT("maria_flush_whole_log", ("now"));
                      translog_flush(translog_get_horizon());
                    });
    DBUG_EXECUTE_IF("maria_crash_repair",
                    {
                      DBUG_PRINT("maria_crash_repair", ("now"));
                      fflush(DBUG_FILE);
                      abort();
                    });
3570 3571
    write_log_record_for_repair(param, info);
  }
unknown's avatar
unknown committed
3572
  share->state.changed|= STATE_NOT_SORTED_PAGES;
unknown's avatar
unknown committed
3573 3574 3575
  if (!rep_quick)
    share->state.changed&= ~(STATE_NOT_OPTIMIZED_ROWS | STATE_NOT_ZEROFILLED |
                             STATE_NOT_MOVABLE);
3576

unknown's avatar
unknown committed
3577
  my_free(sort_param.rec_buff, MYF(MY_ALLOW_ZERO_PTR));
3578
  my_free(sort_param.record,MYF(MY_ALLOW_ZERO_PTR));
unknown's avatar
unknown committed
3579 3580
  my_free((uchar*) sort_info.key_block,MYF(MY_ALLOW_ZERO_PTR));
  my_free((uchar*) sort_info.ft_buf, MYF(MY_ALLOW_ZERO_PTR));
3581 3582 3583 3584
  my_free(sort_info.buff,MYF(MY_ALLOW_ZERO_PTR));
  DBUG_RETURN(got_error);
}

unknown's avatar
unknown committed
3585

3586 3587 3588 3589 3590 3591 3592 3593 3594 3595 3596 3597 3598 3599 3600
/*
  Threaded repair of table using sorting

  SYNOPSIS
    maria_repair_parallel()
    param		Repair parameters
    info		MARIA handler to repair
    name		Name of table (for warnings)
    rep_quick		set to <> 0 if we should not change data file

  DESCRIPTION
    Same as maria_repair_by_sort but do it multithreaded
    Each key is handled by a separate thread.
    TODO: make a number of threads a parameter

3601 3602 3603 3604 3605 3606 3607 3608 3609 3610 3611 3612 3613 3614 3615 3616 3617 3618 3619 3620 3621 3622
    In parallel repair we use one thread per index. There are two modes:

    Quick

      Only the indexes are rebuilt. All threads share a read buffer.
      Every thread that needs fresh data in the buffer enters the shared
      cache lock. The last thread joining the lock reads the buffer from
      the data file and wakes all other threads.

    Non-quick

      The data file is rebuilt and all indexes are rebuilt to point to
      the new record positions. One thread is the master thread. It
      reads from the old data file and writes to the new data file. It
      also creates one of the indexes. The other threads read from a
      buffer which is filled by the master. If they need fresh data,
      they enter the shared cache lock. If the masters write buffer is
      full, it flushes it to the new data file and enters the shared
      cache lock too. When all threads joined in the lock, the master
      copies its write buffer to the read buffer for the other threads
      and wakes them.

3623 3624 3625 3626 3627 3628
  RESULT
    0	ok
    <>0	Error
*/

int maria_repair_parallel(HA_CHECK *param, register MARIA_HA *info,
3629
			const char * name, uint rep_quick)
3630 3631 3632 3633 3634 3635 3636 3637 3638
{
#ifndef THREAD
  return maria_repair_by_sort(param, info, name, rep_quick);
#else
  int got_error;
  uint i,key, total_key_length, istep;
  ha_rows start_records;
  my_off_t new_header_length,del;
  File new_file;
3639
  MARIA_SORT_PARAM *sort_param=0, tmp_sort_param;
3640
  MARIA_SHARE *share= info->s;
3641
  double  *rec_per_key_part;
3642 3643
  HA_KEYSEG *keyseg;
  char llbuff[22];
3644
  IO_CACHE new_data_cache; /* For non-quick repair. */
3645 3646 3647 3648
  IO_CACHE_SHARE io_share;
  MARIA_SORT_INFO sort_info;
  ulonglong key_map=share->state.key_map;
  pthread_attr_t thr_attr;
3649 3650
  myf sync_dir= ((share->now_transactional && !share->temporary) ?
                 MY_SYNC_DIR : 0);
3651 3652
  DBUG_ENTER("maria_repair_parallel");

3653
  got_error= 1;
3654
  new_file= -1;
3655
  start_records= info->state->records;
3656 3657 3658
  if (!(param->testflag & T_SILENT))
  {
    printf("- parallel recovering (with sort) MARIA-table '%s'\n",name);
3659
    printf("Data records: %s\n", llstr(start_records, llbuff));
3660 3661
  }

3662 3663
  if (initialize_variables_for_repair(param, &sort_info, &tmp_sort_param, info,
                                      rep_quick))
3664 3665
    goto err;

3666 3667 3668
  new_header_length= ((param->testflag & T_UNPACK) ? 0 :
                      share->pack.header_length);

3669 3670 3671
  /*
    Quick repair (not touching data file, rebuilding indexes):
    {
unknown's avatar
unknown committed
3672
      Read  cache is (MI_CHECK *param)->read_cache using info->dfile.file.
3673 3674 3675 3676 3677 3678
    }

    Non-quick repair (rebuilding data file and indexes):
    {
      Master thread:

unknown's avatar
unknown committed
3679
        Read  cache is (MI_CHECK *param)->read_cache using info->dfile.file.
3680 3681 3682 3683 3684 3685 3686 3687 3688 3689 3690 3691 3692 3693 3694 3695 3696 3697
        Write cache is (MI_INFO   *info)->rec_cache  using new_file.

      Slave threads:

        Read  cache is new_data_cache synced to master rec_cache.

      The final assignment of the filedescriptor for rec_cache is done
      after the cache creation.

      Don't check file size on new_data_cache, as the resulting file size
      is not known yet.

      As rec_cache and new_data_cache are synced, write_buffer_length is
      used for the read cache 'new_data_cache'. Both start at the same
      position 'new_header_length'.
    }
  */
  DBUG_PRINT("info", ("is quick repair: %d", rep_quick));
3698

3699 3700 3701 3702
  /* Initialize pthread structures before goto err. */
  pthread_mutex_init(&sort_info.mutex, MY_MUTEX_INIT_FAST);
  pthread_cond_init(&sort_info.cond, 0);

3703
  if (!(sort_info.key_block=
3704 3705
	alloc_key_blocks(param, (uint) param->sort_key_blocks,
			 share->base.max_key_block_length)) ||
unknown's avatar
unknown committed
3706
      init_io_cache(&param->read_cache, info->dfile.file,
3707 3708 3709
                    (uint) param->read_buffer_length,
                    READ_CACHE, share->pack.header_length, 1, MYF(MY_WME)) ||
      (!rep_quick &&
unknown's avatar
unknown committed
3710
       (init_io_cache(&info->rec_cache, info->dfile.file,
3711 3712 3713 3714 3715 3716 3717
                      (uint) param->write_buffer_length,
                      WRITE_CACHE, new_header_length, 1,
                      MYF(MY_WME | MY_WAIT_IF_FULL) & param->myf_rw) ||
        init_io_cache(&new_data_cache, -1,
                      (uint) param->write_buffer_length,
                      READ_CACHE, new_header_length, 1,
                      MYF(MY_WME | MY_DONT_CHECK_FILESIZE)))))
3718 3719 3720
    goto err;
  sort_info.key_block_end=sort_info.key_block+param->sort_key_blocks;
  info->opt_flag|=WRITE_CACHE_USED;
unknown's avatar
unknown committed
3721
  info->rec_cache.file= info->dfile.file;         /* for sort_delete_record */
3722 3723 3724 3725

  if (!rep_quick)
  {
    /* Get real path for data file */
unknown's avatar
unknown committed
3726 3727 3728 3729 3730 3731
    if ((new_file= my_create(fn_format(param->temp_filename,
                                       share->data_file_name, "",
                                       DATA_TMP_EXT,
                                       2+4),
                             0,param->tmpfile_createflag,
                             MYF(0))) < 0)
3732 3733 3734 3735 3736
    {
      _ma_check_print_error(param,"Can't create new tempfile: '%s'",
			   param->temp_filename);
      goto err;
    }
unknown's avatar
unknown committed
3737
    if (new_header_length &&
unknown's avatar
unknown committed
3738
        maria_filecopy(param, new_file, info->dfile.file,0L,new_header_length,
unknown's avatar
unknown committed
3739
                       "datafile-header"))
3740 3741
      goto err;
    if (param->testflag & T_UNPACK)
unknown's avatar
unknown committed
3742
      restore_data_file_type(share);
3743 3744 3745 3746 3747 3748 3749 3750 3751
    share->state.dellink= HA_OFFSET_ERROR;
    info->rec_cache.file=new_file;
  }

  info->update= (short) (HA_STATE_CHANGED | HA_STATE_ROW_CHANGED);
  if (!(param->testflag & T_CREATE_MISSING_KEYS))
  {
    /*
      Flush key cache for this file if we are calling this outside
unknown's avatar
unknown committed
3752
      maria_chk
3753
    */
unknown's avatar
unknown committed
3754 3755
    flush_pagecache_blocks(share->pagecache, &share->kfile,
                           FLUSH_IGNORE_CHANGED);
3756 3757 3758
    /* Clear the pointers to the given rows */
    for (i=0 ; i < share->base.keys ; i++)
      share->state.key_root[i]= HA_OFFSET_ERROR;
unknown's avatar
unknown committed
3759
    share->state.key_del= HA_OFFSET_ERROR;
3760 3761 3762 3763
    info->state->key_file_length=share->base.keystart;
  }
  else
  {
unknown's avatar
unknown committed
3764 3765
    if (flush_pagecache_blocks(share->pagecache, &share->kfile,
                               FLUSH_FORCE_WRITE))
3766 3767 3768 3769
      goto err;
    key_map= ~key_map;				/* Create the missing keys */
  }

3770
  param->read_cache.end_of_file= sort_info.filelength;
3771 3772 3773 3774 3775 3776 3777 3778 3779 3780 3781 3782 3783

  /*
    +1 below is required hack for parallel repair mode.
    The info->state->records value, that is compared later
    to sort_info.max_records and cannot exceed it, is
    increased in sort_key_write. In maria_repair_by_sort, sort_key_write
    is called after sort_key_read, where the comparison is performed,
    but in parallel mode master thread can call sort_key_write
    before some other repair thread calls sort_key_read.
    Furthermore I'm not even sure +1 would be enough.
    May be sort_info.max_records shold be always set to max value in
    parallel mode.
  */
3784
  sort_info.max_records++;
3785 3786 3787 3788 3789 3790 3791 3792 3793 3794 3795 3796

  del=info->state->del;

  if (!(sort_param=(MARIA_SORT_PARAM *)
        my_malloc((uint) share->base.keys *
		  (sizeof(MARIA_SORT_PARAM) + share->base.pack_reclength),
		  MYF(MY_ZEROFILL))))
  {
    _ma_check_print_error(param,"Not enough memory for key!");
    goto err;
  }
  total_key_length=0;
3797
  rec_per_key_part= param->new_rec_per_key_part;
3798 3799 3800 3801 3802 3803 3804 3805 3806 3807 3808 3809 3810 3811
  info->state->records=info->state->del=share->state.split=0;
  info->state->empty=0;

  for (i=key=0, istep=1 ; key < share->base.keys ;
       rec_per_key_part+=sort_param[i].keyinfo->keysegs, i+=istep, key++)
  {
    sort_param[i].key=key;
    sort_param[i].keyinfo=share->keyinfo+key;
    sort_param[i].seg=sort_param[i].keyinfo->seg;
    if (! maria_is_key_active(key_map, key))
    {
      /* Remember old statistics for key */
      memcpy((char*) rec_per_key_part,
	     (char*) (share->state.rec_per_key_part+
3812
		      (uint) (rec_per_key_part - param->new_rec_per_key_part)),
3813 3814 3815 3816 3817 3818 3819 3820 3821 3822 3823 3824 3825 3826 3827 3828 3829 3830 3831 3832 3833 3834 3835
	     sort_param[i].keyinfo->keysegs*sizeof(*rec_per_key_part));
      istep=0;
      continue;
    }
    istep=1;
    if ((!(param->testflag & T_SILENT)))
      printf ("- Fixing index %d\n",key+1);
    if (sort_param[i].keyinfo->flag & HA_FULLTEXT)
    {
      sort_param[i].key_read=sort_maria_ft_key_read;
      sort_param[i].key_write=sort_maria_ft_key_write;
    }
    else
    {
      sort_param[i].key_read=sort_key_read;
      sort_param[i].key_write=sort_key_write;
    }
    sort_param[i].key_cmp=sort_key_cmp;
    sort_param[i].lock_in_memory=maria_lock_memory;
    sort_param[i].tmpdir=param->tmpdir;
    sort_param[i].sort_info=&sort_info;
    sort_param[i].master=0;
    sort_param[i].fix_datafile=0;
3836
    sort_param[i].calc_checksum= 0;
3837 3838 3839 3840

    sort_param[i].filepos=new_header_length;
    sort_param[i].max_pos=sort_param[i].pos=share->pack.header_length;

3841
    sort_param[i].record= (((uchar *)(sort_param+share->base.keys))+
3842
			   (share->base.pack_reclength * i));
unknown's avatar
unknown committed
3843 3844
    if (_ma_alloc_buffer(&sort_param[i].rec_buff, &sort_param[i].rec_buff_size,
                         share->base.default_rec_buff_size))
3845 3846 3847 3848 3849 3850 3851 3852 3853 3854 3855 3856 3857 3858 3859 3860 3861 3862 3863 3864 3865 3866 3867
    {
      _ma_check_print_error(param,"Not enough memory!");
      goto err;
    }
    sort_param[i].key_length=share->rec_reflength;
    for (keyseg=sort_param[i].seg; keyseg->type != HA_KEYTYPE_END;
	 keyseg++)
    {
      sort_param[i].key_length+=keyseg->length;
      if (keyseg->flag & HA_SPACE_PACK)
        sort_param[i].key_length+=get_pack_length(keyseg->length);
      if (keyseg->flag & (HA_BLOB_PART | HA_VAR_LENGTH_PART))
        sort_param[i].key_length+=2 + test(keyseg->length >= 127);
      if (keyseg->flag & HA_NULL_PART)
        sort_param[i].key_length++;
    }
    total_key_length+=sort_param[i].key_length;

    if (sort_param[i].keyinfo->flag & HA_FULLTEXT)
    {
      uint ft_max_word_len_for_sort=FT_MAX_WORD_LEN_FOR_SORT*
                                    sort_param[i].keyinfo->seg->charset->mbmaxlen;
      sort_param[i].key_length+=ft_max_word_len_for_sort-HA_FT_MAXBYTELEN;
3868
      init_alloc_root(&sort_param[i].wordroot, FTPARSER_MEMROOT_ALLOC_SIZE, 0);
3869 3870 3871 3872 3873
    }
  }
  sort_info.total_keys=i;
  sort_param[0].master= 1;
  sort_param[0].fix_datafile= (my_bool)(! rep_quick);
3874
  sort_param[0].calc_checksum= test(param->testflag & T_CALC_CHECKSUM);
3875 3876 3877 3878

  sort_info.got_error=0;
  pthread_mutex_lock(&sort_info.mutex);

3879 3880 3881 3882 3883 3884 3885 3886 3887 3888 3889 3890 3891 3892 3893 3894
  /*
    Initialize the I/O cache share for use with the read caches and, in
    case of non-quick repair, the write cache. When all threads join on
    the cache lock, the writer copies the write cache contents to the
    read caches.
  */
  if (i > 1)
  {
    if (rep_quick)
      init_io_cache_share(&param->read_cache, &io_share, NULL, i);
    else
      init_io_cache_share(&new_data_cache, &io_share, &info->rec_cache, i);
  }
  else
    io_share.total_threads= 0; /* share not used */

3895 3896 3897 3898 3899
  (void) pthread_attr_init(&thr_attr);
  (void) pthread_attr_setdetachstate(&thr_attr,PTHREAD_CREATE_DETACHED);

  for (i=0 ; i < sort_info.total_keys ; i++)
  {
3900 3901 3902 3903 3904 3905 3906 3907 3908 3909 3910 3911 3912
    /*
      Copy the properly initialized IO_CACHE structure so that every
      thread has its own copy. In quick mode param->read_cache is shared
      for use by all threads. In non-quick mode all threads but the
      first copy the shared new_data_cache, which is synchronized to the
      write cache of the first thread. The first thread copies
      param->read_cache, which is not shared.
    */
    sort_param[i].read_cache= ((rep_quick || !i) ? param->read_cache :
                               new_data_cache);
    DBUG_PRINT("io_cache_share", ("thread: %u  read_cache: 0x%lx",
                                  i, (long) &sort_param[i].read_cache));

3913 3914 3915 3916 3917 3918 3919 3920 3921 3922 3923 3924 3925 3926 3927 3928 3929
    /*
      two approaches: the same amount of memory for each thread
      or the memory for the same number of keys for each thread...
      In the second one all the threads will fill their sort_buffers
      (and call write_keys) at the same time, putting more stress on i/o.
    */
    sort_param[i].sortbuff_size=
#ifndef USING_SECOND_APPROACH
      param->sort_buffer_length/sort_info.total_keys;
#else
      param->sort_buffer_length*sort_param[i].key_length/total_key_length;
#endif
    if (pthread_create(&sort_param[i].thr, &thr_attr,
		       _ma_thr_find_all_keys,
		       (void *) (sort_param+i)))
    {
      _ma_check_print_error(param,"Cannot start a repair thread");
3930 3931 3932 3933
      /* Cleanup: Detach from the share. Avoid others to be blocked. */
      if (io_share.total_threads)
        remove_io_thread(&sort_param[i].read_cache);
      DBUG_PRINT("error", ("Cannot start a repair thread"));
3934 3935 3936 3937 3938 3939 3940 3941 3942 3943 3944 3945 3946 3947 3948 3949 3950 3951 3952 3953 3954
      sort_info.got_error=1;
    }
    else
      sort_info.threads_running++;
  }
  (void) pthread_attr_destroy(&thr_attr);

  /* waiting for all threads to finish */
  while (sort_info.threads_running)
    pthread_cond_wait(&sort_info.cond, &sort_info.mutex);
  pthread_mutex_unlock(&sort_info.mutex);

  if ((got_error= _ma_thr_write_keys(sort_param)))
  {
    param->retry_repair=1;
    goto err;
  }
  got_error=1;				/* Assume the following may go wrong */

  if (sort_param[0].fix_datafile)
  {
3955 3956 3957 3958 3959
    /*
      Append some nuls to the end of a memory mapped file. Destroy the
      write cache. The master thread did already detach from the share
      by remove_io_thread() in sort.c:thr_find_all_keys().
    */
3960 3961 3962 3963 3964 3965 3966 3967 3968 3969 3970 3971 3972 3973 3974
    if (maria_write_data_suffix(&sort_info,1) || end_io_cache(&info->rec_cache))
      goto err;
    if (param->testflag & T_SAFE_REPAIR)
    {
      /* Don't repair if we loosed more than one row */
      if (info->state->records+1 < start_records)
      {
        info->state->records=start_records;
        goto err;
      }
    }
    share->state.state.data_file_length= info->state->data_file_length=
      sort_param->filepos;
    /* Only whole records */
    share->state.version=(ulong) time((time_t*) 0);
3975 3976 3977 3978
    /*
      Exchange the data file descriptor of the table, so that we use the
      new file from now on.
     */
unknown's avatar
unknown committed
3979 3980
    my_close(info->dfile.file, MYF(0));
    info->dfile.file= new_file;
3981 3982 3983 3984 3985 3986 3987 3988 3989 3990 3991 3992 3993 3994 3995 3996
    share->pack.header_length=(ulong) new_header_length;
  }
  else
    info->state->data_file_length=sort_param->max_pos;

  if (rep_quick && del+sort_info.dupp != info->state->del)
  {
    _ma_check_print_error(param,"Couldn't fix table with quick recovery: Found wrong number of deleted records");
    _ma_check_print_error(param,"Run recovery again without -q");
    param->retry_repair=1;
    param->testflag|=T_RETRY_WITHOUT_QUICK;
    goto err;
  }

  if (rep_quick & T_FORCE_UNIQUENESS)
  {
3997 3998 3999
    my_off_t skr= (info->state->data_file_length +
                   (sort_info.org_data_file_type == COMPRESSED_RECORD) ?
                   MEMMAP_EXTRA_MARGIN : 0);
4000
#ifdef USE_RELOC
4001
    if (sort_info.org_data_file_type == STATIC_RECORD &&
4002 4003 4004
	skr < share->base.reloc*share->base.min_pack_length)
      skr=share->base.reloc*share->base.min_pack_length;
#endif
unknown's avatar
unknown committed
4005
    if (skr != sort_info.filelength)
unknown's avatar
unknown committed
4006
      if (my_chsize(info->dfile.file, skr, 0, MYF(0)))
4007 4008 4009 4010 4011 4012 4013
	_ma_check_print_warning(param,
			       "Can't change size of datafile,  error: %d",
			       my_errno);
  }
  if (param->testflag & T_CALC_CHECKSUM)
    info->state->checksum=param->glob_crc;

unknown's avatar
unknown committed
4014
  if (my_chsize(share->kfile.file, info->state->key_file_length, 0, MYF(0)))
4015 4016 4017 4018 4019 4020 4021 4022 4023 4024 4025 4026 4027 4028 4029 4030 4031 4032
    _ma_check_print_warning(param,
			   "Can't change size of indexfile, error: %d", my_errno);

  if (!(param->testflag & T_SILENT))
  {
    if (start_records != info->state->records)
      printf("Data records: %s\n", llstr(info->state->records,llbuff));
    if (sort_info.dupp)
      _ma_check_print_warning(param,
			     "%s records have been removed",
			     llstr(sort_info.dupp,llbuff));
  }
  got_error=0;

  if (&share->state.state != info->state)
    memcpy(&share->state.state, info->state, sizeof(*info->state));

err:
4033 4034 4035 4036 4037
  /*
    Destroy the write cache. The master thread did already detach from
    the share by remove_io_thread() or it was not yet started (if the
    error happend before creating the thread).
  */
4038
  VOID(end_io_cache(&sort_info.new_info->rec_cache));
unknown's avatar
unknown committed
4039 4040
  VOID(end_io_cache(&param->read_cache));
  info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
4041
  sort_info.new_info->opt_flag&= ~(READ_CACHE_USED | WRITE_CACHE_USED);
4042 4043 4044 4045 4046 4047 4048 4049
  /*
    Destroy the new data cache in case of non-quick repair. All slave
    threads did either detach from the share by remove_io_thread()
    already or they were not yet started (if the error happend before
    creating the threads).
  */
  if (!rep_quick)
    VOID(end_io_cache(&new_data_cache));
unknown's avatar
unknown committed
4050
  /** @todo RECOVERY BUG seems misplaced in some cases */
unknown's avatar
unknown committed
4051
  got_error|= _ma_flush_table_files_after_repair(param, info);
4052 4053 4054 4055 4056 4057
  if (!got_error)
  {
    /* Replace the actual file with the temporary file */
    if (new_file >= 0)
    {
      my_close(new_file,MYF(0));
unknown's avatar
unknown committed
4058
      info->dfile.file= new_file= -1;
4059
      if (maria_change_to_newfile(share->data_file_name,MARIA_NAME_DEXT,
unknown's avatar
unknown committed
4060
                                  DATA_TMP_EXT,
4061 4062 4063
                                  MYF((param->testflag & T_BACKUP_DATA ?
                                       MY_REDEL_MAKE_BACKUP : 0) |
                                      sync_dir)) ||
4064 4065 4066 4067 4068 4069 4070 4071 4072 4073 4074
	  _ma_open_datafile(info,share,-1))
	got_error=1;
    }
  }
  if (got_error)
  {
    if (! param->error_printed)
      _ma_check_print_error(param,"%d when fixing table",my_errno);
    if (new_file >= 0)
    {
      VOID(my_close(new_file,MYF(0)));
unknown's avatar
unknown committed
4075
      VOID(my_delete(param->temp_filename, MYF(MY_WME)));
unknown's avatar
unknown committed
4076 4077
      if (info->dfile.file == new_file)
	info->dfile.file= -1;
4078 4079 4080 4081 4082
    }
    maria_mark_crashed_on_repair(info);
  }
  else if (key_map == share->state.key_map)
    share->state.changed&= ~STATE_NOT_OPTIMIZED_KEYS;
unknown's avatar
unknown committed
4083
  share->state.changed|= STATE_NOT_SORTED_PAGES;
unknown's avatar
unknown committed
4084 4085 4086
  if (!rep_quick)
    share->state.changed&= ~(STATE_NOT_OPTIMIZED_ROWS | STATE_NOT_ZEROFILLED |
                             STATE_NOT_MOVABLE);
4087 4088 4089 4090

  pthread_cond_destroy (&sort_info.cond);
  pthread_mutex_destroy(&sort_info.mutex);

unknown's avatar
unknown committed
4091 4092 4093
  my_free((uchar*) sort_info.ft_buf, MYF(MY_ALLOW_ZERO_PTR));
  my_free((uchar*) sort_info.key_block,MYF(MY_ALLOW_ZERO_PTR));
  my_free((uchar*) sort_param,MYF(MY_ALLOW_ZERO_PTR));
4094 4095
  my_free(sort_info.buff,MYF(MY_ALLOW_ZERO_PTR));
  if (!got_error && (param->testflag & T_UNPACK))
unknown's avatar
unknown committed
4096
    restore_data_file_type(share);
4097 4098 4099 4100 4101 4102
  DBUG_RETURN(got_error);
#endif /* THREAD */
}

	/* Read next record and return next key */

unknown's avatar
unknown committed
4103
static int sort_key_read(MARIA_SORT_PARAM *sort_param, uchar *key)
4104 4105
{
  int error;
unknown's avatar
unknown committed
4106 4107
  MARIA_SORT_INFO *sort_info= sort_param->sort_info;
  MARIA_HA *info= sort_info->info;
4108 4109 4110 4111 4112 4113 4114 4115 4116 4117 4118
  DBUG_ENTER("sort_key_read");

  if ((error=sort_get_next_record(sort_param)))
    DBUG_RETURN(error);
  if (info->state->records == sort_info->max_records)
  {
    _ma_check_print_error(sort_info->param,
			 "Key %d - Found too many records; Can't continue",
                         sort_param->key+1);
    DBUG_RETURN(1);
  }
4119 4120 4121
  if (_ma_sort_write_record(sort_param))
    DBUG_RETURN(1);

4122 4123
  sort_param->real_key_length=
    (info->s->rec_reflength+
unknown's avatar
unknown committed
4124
     _ma_make_key(info, sort_param->key, key,
4125
		  sort_param->record, sort_param->current_filepos));
4126 4127 4128 4129
#ifdef HAVE_purify
  bzero(key+sort_param->real_key_length,
	(sort_param->key_length-sort_param->real_key_length));
#endif
4130
  DBUG_RETURN(0);
4131 4132
} /* sort_key_read */

unknown's avatar
unknown committed
4133

unknown's avatar
unknown committed
4134
static int sort_maria_ft_key_read(MARIA_SORT_PARAM *sort_param, uchar *key)
4135 4136 4137 4138 4139 4140 4141 4142 4143 4144 4145
{
  int error;
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
  MARIA_HA *info=sort_info->info;
  FT_WORD *wptr=0;
  DBUG_ENTER("sort_maria_ft_key_read");

  if (!sort_param->wordlist)
  {
    for (;;)
    {
4146
      free_root(&sort_param->wordroot, MYF(MY_MARK_BLOCKS_FREE));
4147 4148
      if ((error=sort_get_next_record(sort_param)))
        DBUG_RETURN(error);
4149 4150
      if ((error= _ma_sort_write_record(sort_param)))
        DBUG_RETURN(error);
4151 4152 4153
      if (!(wptr= _ma_ft_parserecord(info,sort_param->key,sort_param->record,
                                     &sort_param->wordroot)))

4154 4155 4156 4157 4158 4159 4160 4161 4162 4163 4164 4165 4166 4167
        DBUG_RETURN(1);
      if (wptr->pos)
        break;
    }
    sort_param->wordptr=sort_param->wordlist=wptr;
  }
  else
  {
    error=0;
    wptr=(FT_WORD*)(sort_param->wordptr);
  }

  sort_param->real_key_length=(info->s->rec_reflength+
			       _ma_ft_make_key(info, sort_param->key,
unknown's avatar
unknown committed
4168
                                               key, wptr++,
4169
                                               sort_param->current_filepos));
4170 4171 4172 4173 4174 4175 4176
#ifdef HAVE_purify
  if (sort_param->key_length > sort_param->real_key_length)
    bzero(key+sort_param->real_key_length,
	  (sort_param->key_length-sort_param->real_key_length));
#endif
  if (!wptr->pos)
  {
4177
    free_root(&sort_param->wordroot, MYF(MY_MARK_BLOCKS_FREE));
4178 4179 4180 4181 4182 4183 4184 4185 4186
    sort_param->wordlist=0;
  }
  else
    sort_param->wordptr=(void*)wptr;

  DBUG_RETURN(error);
} /* sort_maria_ft_key_read */


4187 4188 4189 4190 4191 4192 4193
/*
  Read next record from file using parameters in sort_info.

  SYNOPSIS
    sort_get_next_record()
      sort_param                Information about and for the sort process

4194
  NOTES
4195 4196
    Dynamic Records With Non-Quick Parallel Repair

4197 4198 4199 4200 4201 4202 4203 4204 4205 4206 4207 4208 4209
    For non-quick parallel repair we use a synchronized read/write
    cache. This means that one thread is the master who fixes the data
    file by reading each record from the old data file and writing it
    to the new data file. By doing this the records in the new data
    file are written contiguously. Whenever the write buffer is full,
    it is copied to the read buffer. The slaves read from the read
    buffer, which is not associated with a file. Thus read_cache.file
    is -1. When using _mi_read_cache(), the slaves must always set
    flag to READING_NEXT so that the function never tries to read from
    file. This is safe because the records are contiguous. There is no
    need to read outside the cache. This condition is evaluated in the
    variable 'parallel_flag' for quick reference. read_cache.file must
    be >= 0 in every other case.
4210 4211 4212 4213

  RETURN
    -1          end of file
    0           ok
4214
                sort_param->current_filepos points to record position.
4215
                sort_param->record contains record
4216
                sort_param->max_pos contains position to last byte read
4217 4218
    > 0         error
*/
4219 4220 4221 4222

static int sort_get_next_record(MARIA_SORT_PARAM *sort_param)
{
  int searching;
4223
  int parallel_flag;
4224 4225 4226 4227 4228 4229
  uint found_record,b_type,left_length;
  my_off_t pos;
  MARIA_BLOCK_INFO block_info;
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
  HA_CHECK *param=sort_info->param;
  MARIA_HA *info=sort_info->info;
4230
  MARIA_SHARE *share= info->s;
4231 4232 4233 4234 4235 4236
  char llbuff[22],llbuff2[22];
  DBUG_ENTER("sort_get_next_record");

  if (*_ma_killed_ptr(param))
    DBUG_RETURN(1);

4237
  switch (sort_info->org_data_file_type) {
unknown's avatar
unknown committed
4238
  case BLOCK_RECORD:
4239 4240 4241 4242 4243 4244 4245 4246 4247 4248 4249 4250 4251
  {
    for (;;)
    {
      int flag;

      if (info != sort_info->new_info)
      {
        /* Safe scanning */
        flag= _ma_safe_scan_block_record(sort_info, info,
                                         sort_param->record);
      }
      else
      {
unknown's avatar
unknown committed
4252 4253 4254 4255
        /*
          Scan on clean table.
          It requires a reliable data_file_length so we set it.
        */
unknown's avatar
unknown committed
4256
        info->state->data_file_length= sort_info->filelength;
4257 4258 4259 4260 4261 4262 4263 4264
        flag= _ma_scan_block_record(info, sort_param->record,
                                    info->cur_row.nextpos, 1);
      }
      if (!flag)
      {
	if (sort_param->calc_checksum)
        {
          ha_checksum checksum;
4265 4266
          checksum= (*share->calc_check_checksum)(info, sort_param->record);
          if (share->calc_checksum &&
4267 4268 4269 4270
              info->cur_row.checksum != (checksum & 255))
          {
            if (param->testflag & T_VERBOSE)
            {
4271
              record_pos_to_txt(info, info->cur_row.lastpos, llbuff);
4272 4273 4274 4275 4276 4277 4278 4279 4280
              _ma_check_print_info(param,
                                   "Found record with wrong checksum at %s",
                                   llbuff);
            }
            continue;
          }
          info->cur_row.checksum= checksum;
	  param->glob_crc+= checksum;
        }
4281 4282
        sort_param->start_recpos= sort_param->current_filepos=
          info->cur_row.lastpos;
4283 4284 4285 4286
        DBUG_RETURN(0);
      }
      if (flag == HA_ERR_END_OF_FILE)
      {
4287
        sort_param->max_pos= info->state->data_file_length;
4288 4289 4290 4291 4292 4293
        DBUG_RETURN(-1);
      }
      /* Retry only if wrong record, not if disk error */
      if (flag != HA_ERR_WRONG_IN_RECORD)
        DBUG_RETURN(flag);
    }
unknown's avatar
unknown committed
4294
    break;
4295
  }
4296 4297 4298 4299 4300 4301 4302 4303 4304 4305 4306 4307 4308 4309 4310
  case STATIC_RECORD:
    for (;;)
    {
      if (my_b_read(&sort_param->read_cache,sort_param->record,
		    share->base.pack_reclength))
      {
	if (sort_param->read_cache.error)
	  param->out_flag |= O_DATA_LOST;
        param->retry_repair=1;
        param->testflag|=T_RETRY_WITHOUT_QUICK;
	DBUG_RETURN(-1);
      }
      sort_param->start_recpos=sort_param->pos;
      if (!sort_param->fix_datafile)
      {
4311
	sort_param->current_filepos= sort_param->pos;
4312 4313 4314 4315 4316 4317
        if (sort_param->master)
	  share->state.split++;
      }
      sort_param->max_pos=(sort_param->pos+=share->base.pack_reclength);
      if (*sort_param->record)
      {
4318
	if (sort_param->calc_checksum)
unknown's avatar
unknown committed
4319
	  param->glob_crc+= (info->cur_row.checksum=
4320 4321 4322 4323 4324 4325 4326 4327 4328 4329
			     _ma_static_checksum(info,sort_param->record));
	DBUG_RETURN(0);
      }
      if (!sort_param->fix_datafile && sort_param->master)
      {
	info->state->del++;
	info->state->empty+=share->base.pack_reclength;
      }
    }
  case DYNAMIC_RECORD:
unknown's avatar
unknown committed
4330
  {
unknown's avatar
unknown committed
4331
    uchar *to;
4332
    LINT_INIT(to);
4333 4334
    ha_checksum checksum= 0;

4335 4336
    pos=sort_param->pos;
    searching=(sort_param->fix_datafile && (param->testflag & T_EXTEND));
4337
    parallel_flag= (sort_param->read_cache.file < 0) ? READING_NEXT : 0;
4338 4339 4340 4341 4342 4343 4344 4345 4346 4347 4348 4349 4350 4351 4352 4353 4354 4355 4356 4357 4358 4359 4360 4361 4362 4363 4364
    for (;;)
    {
      found_record=block_info.second_read= 0;
      left_length=1;
      if (searching)
      {
	pos=MY_ALIGN(pos,MARIA_DYN_ALIGN_SIZE);
        param->testflag|=T_RETRY_WITHOUT_QUICK;
	sort_param->start_recpos=pos;
      }
      do
      {
	if (pos > sort_param->max_pos)
	  sort_param->max_pos=pos;
	if (pos & (MARIA_DYN_ALIGN_SIZE-1))
	{
	  if ((param->testflag & T_VERBOSE) || searching == 0)
	    _ma_check_print_info(param,"Wrong aligned block at %s",
				llstr(pos,llbuff));
	  if (searching)
	    goto try_next;
	}
	if (found_record && pos == param->search_after_block)
	  _ma_check_print_info(param,"Block: %s used by record at %s",
		     llstr(param->search_after_block,llbuff),
		     llstr(sort_param->start_recpos,llbuff2));
	if (_ma_read_cache(&sort_param->read_cache,
unknown's avatar
unknown committed
4365
                           (uchar*) block_info.header,pos,
4366 4367
			   MARIA_BLOCK_INFO_HEADER_LENGTH,
			   (! found_record ? READING_NEXT : 0) |
4368
			   parallel_flag | READING_HEADER))
4369 4370 4371 4372 4373 4374 4375 4376 4377 4378 4379 4380 4381 4382 4383 4384 4385 4386 4387 4388 4389 4390 4391 4392 4393 4394 4395 4396 4397 4398 4399 4400 4401 4402 4403 4404 4405 4406 4407 4408 4409 4410 4411 4412 4413 4414 4415 4416 4417 4418 4419 4420
	{
	  if (found_record)
	  {
	    _ma_check_print_info(param,
				"Can't read whole record at %s (errno: %d)",
				llstr(sort_param->start_recpos,llbuff),errno);
	    goto try_next;
	  }
	  DBUG_RETURN(-1);
	}
	if (searching && ! sort_param->fix_datafile)
	{
	  param->error_printed=1;
          param->retry_repair=1;
          param->testflag|=T_RETRY_WITHOUT_QUICK;
	  DBUG_RETURN(1);	/* Something wrong with data */
	}
	b_type= _ma_get_block_info(&block_info,-1,pos);
	if ((b_type & (BLOCK_ERROR | BLOCK_FATAL_ERROR)) ||
	   ((b_type & BLOCK_FIRST) &&
	     (block_info.rec_len < (uint) share->base.min_pack_length ||
	      block_info.rec_len > (uint) share->base.max_pack_length)))
	{
	  uint i;
	  if (param->testflag & T_VERBOSE || searching == 0)
	    _ma_check_print_info(param,
				"Wrong bytesec: %3d-%3d-%3d at %10s; Skipped",
		       block_info.header[0],block_info.header[1],
		       block_info.header[2],llstr(pos,llbuff));
	  if (found_record)
	    goto try_next;
	  block_info.second_read=0;
	  searching=1;
	  /* Search after block in read header string */
	  for (i=MARIA_DYN_ALIGN_SIZE ;
	       i < MARIA_BLOCK_INFO_HEADER_LENGTH ;
	       i+= MARIA_DYN_ALIGN_SIZE)
	    if (block_info.header[i] >= 1 &&
		block_info.header[i] <= MARIA_MAX_DYN_HEADER_BYTE)
	      break;
	  pos+=(ulong) i;
	  sort_param->start_recpos=pos;
	  continue;
	}
	if (b_type & BLOCK_DELETED)
	{
	  bool error=0;
	  if (block_info.block_len+ (uint) (block_info.filepos-pos) <
	      share->base.min_block_length)
	  {
	    if (!searching)
	      _ma_check_print_info(param,
4421 4422 4423
                                   "Deleted block with impossible length %lu "
                                   "at %s",
                                   block_info.block_len,llstr(pos,llbuff));
4424 4425 4426 4427 4428 4429 4430 4431 4432 4433 4434 4435 4436 4437 4438 4439 4440 4441 4442 4443 4444 4445 4446 4447 4448 4449 4450 4451 4452 4453 4454 4455 4456 4457 4458 4459 4460
	    error=1;
	  }
	  else
	  {
	    if ((block_info.next_filepos != HA_OFFSET_ERROR &&
		 block_info.next_filepos >=
		 info->state->data_file_length) ||
		(block_info.prev_filepos != HA_OFFSET_ERROR &&
		 block_info.prev_filepos >= info->state->data_file_length))
	    {
	      if (!searching)
		_ma_check_print_info(param,
				    "Delete link points outside datafile at %s",
				    llstr(pos,llbuff));
	      error=1;
	    }
	  }
	  if (error)
	  {
	    if (found_record)
	      goto try_next;
	    searching=1;
	    pos+= MARIA_DYN_ALIGN_SIZE;
	    sort_param->start_recpos=pos;
	    block_info.second_read=0;
	    continue;
	  }
	}
	else
	{
	  if (block_info.block_len+ (uint) (block_info.filepos-pos) <
	      share->base.min_block_length ||
	      block_info.block_len > (uint) share->base.max_pack_length+
	      MARIA_SPLIT_LENGTH)
	  {
	    if (!searching)
	      _ma_check_print_info(param,
4461 4462 4463
                                   "Found block with impossible length %lu "
                                   "at %s; Skipped",
                                   block_info.block_len+
4464
                                   (uint) (block_info.filepos-pos),
4465
                                   llstr(pos,llbuff));
4466 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4477 4478 4479 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491 4492 4493 4494 4495 4496 4497 4498 4499 4500 4501 4502 4503
	    if (found_record)
	      goto try_next;
	    searching=1;
	    pos+= MARIA_DYN_ALIGN_SIZE;
	    sort_param->start_recpos=pos;
	    block_info.second_read=0;
	    continue;
	  }
	}
	if (b_type & (BLOCK_DELETED | BLOCK_SYNC_ERROR))
	{
          if (!sort_param->fix_datafile && sort_param->master &&
              (b_type & BLOCK_DELETED))
	  {
	    info->state->empty+=block_info.block_len;
	    info->state->del++;
	    share->state.split++;
	  }
	  if (found_record)
	    goto try_next;
	  if (searching)
	  {
	    pos+=MARIA_DYN_ALIGN_SIZE;
	    sort_param->start_recpos=pos;
	  }
	  else
	    pos=block_info.filepos+block_info.block_len;
	  block_info.second_read=0;
	  continue;
	}

	if (!sort_param->fix_datafile && sort_param->master)
	  share->state.split++;
	if (! found_record++)
	{
	  sort_param->find_length=left_length=block_info.rec_len;
	  sort_param->start_recpos=pos;
	  if (!sort_param->fix_datafile)
4504
	    sort_param->current_filepos= sort_param->start_recpos;
4505 4506 4507 4508 4509 4510
	  if (sort_param->fix_datafile && (param->testflag & T_EXTEND))
	    sort_param->pos=block_info.filepos+1;
	  else
	    sort_param->pos=block_info.filepos+block_info.block_len;
	  if (share->base.blobs)
	  {
unknown's avatar
unknown committed
4511 4512 4513
	    if (_ma_alloc_buffer(&sort_param->rec_buff,
                                 &sort_param->rec_buff_size,
                                 block_info.rec_len +
4514
                                 share->base.extra_rec_buff_size))
4515

4516 4517 4518 4519 4520 4521 4522 4523 4524 4525 4526 4527 4528 4529 4530 4531 4532
	    {
	      if (param->max_record_length >= block_info.rec_len)
	      {
		_ma_check_print_error(param,"Not enough memory for blob at %s (need %lu)",
				     llstr(sort_param->start_recpos,llbuff),
				     (ulong) block_info.rec_len);
		DBUG_RETURN(1);
	      }
	      else
	      {
		_ma_check_print_info(param,"Not enough memory for blob at %s (need %lu); Row skipped",
				    llstr(sort_param->start_recpos,llbuff),
				    (ulong) block_info.rec_len);
		goto try_next;
	      }
	    }
	  }
unknown's avatar
unknown committed
4533
          to= sort_param->rec_buff;
4534 4535 4536 4537
	}
	if (left_length < block_info.data_len || ! block_info.data_len)
	{
	  _ma_check_print_info(param,
unknown's avatar
unknown committed
4538 4539 4540
			      "Found block with too small length at %s; "
                               "Skipped",
                               llstr(sort_param->start_recpos,llbuff));
4541 4542 4543 4544 4545 4546
	  goto try_next;
	}
	if (block_info.filepos + block_info.data_len >
	    sort_param->read_cache.end_of_file)
	{
	  _ma_check_print_info(param,
unknown's avatar
unknown committed
4547 4548 4549
			      "Found block that points outside data file "
                               "at %s",
                               llstr(sort_param->start_recpos,llbuff));
4550 4551
	  goto try_next;
	}
4552 4553 4554 4555 4556 4557 4558 4559 4560 4561 4562 4563 4564 4565 4566 4567 4568 4569 4570 4571 4572 4573 4574 4575 4576
        /*
          Copy information that is already read. Avoid accessing data
          below the cache start. This could happen if the header
          streched over the end of the previous buffer contents.
        */
        {
          uint header_len= (uint) (block_info.filepos - pos);
          uint prefetch_len= (MARIA_BLOCK_INFO_HEADER_LENGTH - header_len);

          if (prefetch_len > block_info.data_len)
            prefetch_len= block_info.data_len;
          if (prefetch_len)
          {
            memcpy(to, block_info.header + header_len, prefetch_len);
            block_info.filepos+= prefetch_len;
            block_info.data_len-= prefetch_len;
            left_length-= prefetch_len;
            to+= prefetch_len;
          }
        }
        if (block_info.data_len &&
            _ma_read_cache(&sort_param->read_cache,to,block_info.filepos,
                           block_info.data_len,
                           (found_record == 1 ? READING_NEXT : 0) |
                           parallel_flag))
4577 4578 4579 4580 4581 4582 4583 4584 4585 4586 4587 4588 4589 4590 4591 4592 4593 4594 4595 4596 4597 4598 4599 4600 4601 4602 4603 4604 4605
	{
	  _ma_check_print_info(param,
			      "Read error for block at: %s (error: %d); Skipped",
			      llstr(block_info.filepos,llbuff),my_errno);
	  goto try_next;
	}
	left_length-=block_info.data_len;
	to+=block_info.data_len;
	pos=block_info.next_filepos;
	if (pos == HA_OFFSET_ERROR && left_length)
	{
	  _ma_check_print_info(param,"Wrong block with wrong total length starting at %s",
			      llstr(sort_param->start_recpos,llbuff));
	  goto try_next;
	}
	if (pos + MARIA_BLOCK_INFO_HEADER_LENGTH > sort_param->read_cache.end_of_file)
	{
	  _ma_check_print_info(param,"Found link that points at %s (outside data file) at %s",
			      llstr(pos,llbuff2),
			      llstr(sort_param->start_recpos,llbuff));
	  goto try_next;
	}
      } while (left_length);

      if (_ma_rec_unpack(info,sort_param->record,sort_param->rec_buff,
			 sort_param->find_length) != MY_FILE_ERROR)
      {
	if (sort_param->read_cache.error < 0)
	  DBUG_RETURN(1);
4606
	if (sort_param->calc_checksum)
4607
	  checksum= (share->calc_check_checksum)(info, sort_param->record);
4608 4609 4610 4611 4612
	if ((param->testflag & (T_EXTEND | T_REP)) || searching)
	{
	  if (_ma_rec_check(info, sort_param->record, sort_param->rec_buff,
                            sort_param->find_length,
                            (param->testflag & T_QUICK) &&
4613
                            sort_param->calc_checksum &&
4614
                            test(share->calc_checksum), checksum))
4615 4616 4617 4618 4619 4620
	  {
	    _ma_check_print_info(param,"Found wrong packed record at %s",
				llstr(sort_param->start_recpos,llbuff));
	    goto try_next;
	  }
	}
4621
	if (sort_param->calc_checksum)
4622
	  param->glob_crc+= checksum;
4623 4624 4625 4626 4627 4628 4629 4630 4631 4632
	DBUG_RETURN(0);
      }
      if (!searching)
        _ma_check_print_info(param,"Key %d - Found wrong stored record at %s",
                            sort_param->key+1,
                            llstr(sort_param->start_recpos,llbuff));
    try_next:
      pos=(sort_param->start_recpos+=MARIA_DYN_ALIGN_SIZE);
      searching=1;
    }
unknown's avatar
unknown committed
4633
  }
4634 4635 4636
  case COMPRESSED_RECORD:
    for (searching=0 ;; searching=1, sort_param->pos++)
    {
unknown's avatar
unknown committed
4637
      if (_ma_read_cache(&sort_param->read_cache,(uchar*) block_info.header,
4638 4639 4640 4641 4642 4643 4644 4645 4646 4647 4648
			 sort_param->pos,
			 share->pack.ref_length,READING_NEXT))
	DBUG_RETURN(-1);
      if (searching && ! sort_param->fix_datafile)
      {
	param->error_printed=1;
        param->retry_repair=1;
        param->testflag|=T_RETRY_WITHOUT_QUICK;
	DBUG_RETURN(1);		/* Something wrong with data */
      }
      sort_param->start_recpos=sort_param->pos;
4649
      if (_ma_pack_get_block_info(info, &sort_param->bit_buff, &block_info,
unknown's avatar
unknown committed
4650 4651 4652
                                  &sort_param->rec_buff,
                                  &sort_param->rec_buff_size, -1,
                                  sort_param->pos))
4653 4654 4655 4656 4657 4658 4659 4660 4661
	DBUG_RETURN(-1);
      if (!block_info.rec_len &&
	  sort_param->pos + MEMMAP_EXTRA_MARGIN ==
	  sort_param->read_cache.end_of_file)
	DBUG_RETURN(-1);
      if (block_info.rec_len < (uint) share->min_pack_length ||
	  block_info.rec_len > (uint) share->max_pack_length)
      {
	if (! searching)
4662 4663 4664 4665 4666
	  _ma_check_print_info(param,
                               "Found block with wrong recordlength: %lu "
                               "at %s\n",
                               block_info.rec_len,
                               llstr(sort_param->pos,llbuff));
4667 4668
	continue;
      }
unknown's avatar
unknown committed
4669
      if (_ma_read_cache(&sort_param->read_cache,(uchar*) sort_param->rec_buff,
4670 4671 4672 4673 4674 4675 4676 4677
			 block_info.filepos, block_info.rec_len,
			 READING_NEXT))
      {
	if (! searching)
	  _ma_check_print_info(param,"Couldn't read whole record from %s",
			      llstr(sort_param->pos,llbuff));
	continue;
      }
4678 4679
#ifdef HAVE_purify
      bzero(sort_param->rec_buff + block_info.rec_len,
4680
            share->base.extra_rec_buff_size);
4681
#endif
4682 4683
      if (_ma_pack_rec_unpack(info, &sort_param->bit_buff, sort_param->record,
                              sort_param->rec_buff, block_info.rec_len))
4684 4685 4686 4687 4688 4689 4690 4691
      {
	if (! searching)
	  _ma_check_print_info(param,"Found wrong record at %s",
			      llstr(sort_param->pos,llbuff));
	continue;
      }
      if (!sort_param->fix_datafile)
      {
4692
	sort_param->current_filepos= sort_param->pos;
4693 4694 4695
        if (sort_param->master)
	  share->state.split++;
      }
4696 4697
      sort_param->max_pos= (sort_param->pos=block_info.filepos+
                            block_info.rec_len);
4698
      info->packed_length=block_info.rec_len;
unknown's avatar
unknown committed
4699

4700
      if (sort_param->calc_checksum)
unknown's avatar
unknown committed
4701
      {
4702
        info->cur_row.checksum= (*share->calc_check_checksum)(info,
4703 4704
                                                                sort_param->
                                                                record);
unknown's avatar
unknown committed
4705 4706
	param->glob_crc+= info->cur_row.checksum;
      }
4707 4708 4709 4710 4711 4712 4713
      DBUG_RETURN(0);
    }
  }
  DBUG_RETURN(1);		/* Impossible */
}


4714 4715
/**
   @brief Write record to new file.
4716

4717 4718
   @fn    _ma_sort_write_record()
   @param sort_param                Sort parameters.
4719

4720 4721
   @note
   This is only called by a master thread if parallel repair is used.
4722

4723 4724 4725 4726 4727 4728 4729
   @return
   @retval  0   OK
                sort_param->current_filepos points to inserted record for
                block_records and to the place for the next record for
                other row types.
                sort_param->filepos points to end of file
  @retval   1   Error
4730
*/
4731 4732 4733 4734 4735 4736

int _ma_sort_write_record(MARIA_SORT_PARAM *sort_param)
{
  int flag;
  uint length;
  ulong block_length,reclength;
unknown's avatar
unknown committed
4737 4738
  uchar *from;
  uchar block_buff[8];
4739
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
4740 4741
  HA_CHECK *param= sort_info->param;
  MARIA_HA *info= sort_info->new_info;
4742
  MARIA_SHARE *share= info->s;
4743 4744 4745 4746
  DBUG_ENTER("_ma_sort_write_record");

  if (sort_param->fix_datafile)
  {
4747
    sort_param->current_filepos= sort_param->filepos;
4748
    switch (sort_info->new_data_file_type) {
unknown's avatar
unknown committed
4749
    case BLOCK_RECORD:
4750 4751
      if ((sort_param->current_filepos=
           (*share->write_record_init)(info, sort_param->record)) ==
4752 4753
          HA_OFFSET_ERROR)
        DBUG_RETURN(1);
4754 4755
      /* Pointer to end of file */
      sort_param->filepos= info->state->data_file_length;
unknown's avatar
unknown committed
4756
      break;
4757 4758 4759 4760 4761 4762 4763 4764
    case STATIC_RECORD:
      if (my_b_write(&info->rec_cache,sort_param->record,
		     share->base.pack_reclength))
      {
	_ma_check_print_error(param,"%d when writing to datafile",my_errno);
	DBUG_RETURN(1);
      }
      sort_param->filepos+=share->base.pack_reclength;
4765
      share->state.split++;
4766 4767 4768 4769 4770 4771 4772
      break;
    case DYNAMIC_RECORD:
      if (! info->blobs)
	from=sort_param->rec_buff;
      else
      {
	/* must be sure that local buffer is big enough */
4773
	reclength=share->base.pack_reclength+
4774 4775 4776 4777 4778 4779 4780 4781 4782 4783 4784 4785 4786
	  _ma_calc_total_blob_length(info,sort_param->record)+
	  ALIGN_SIZE(MARIA_MAX_DYN_BLOCK_HEADER)+MARIA_SPLIT_LENGTH+
	  MARIA_DYN_DELETE_BLOCK_HEADER;
	if (sort_info->buff_length < reclength)
	{
	  if (!(sort_info->buff=my_realloc(sort_info->buff, (uint) reclength,
					   MYF(MY_FREE_ON_ERROR |
					       MY_ALLOW_ZERO_PTR))))
	    DBUG_RETURN(1);
	  sort_info->buff_length=reclength;
	}
	from=sort_info->buff+ALIGN_SIZE(MARIA_MAX_DYN_BLOCK_HEADER);
      }
unknown's avatar
unknown committed
4787
      /* We can use info->checksum here as only one thread calls this */
4788
      info->cur_row.checksum= (*share->calc_check_checksum)(info,
4789 4790
                                                              sort_param->
                                                              record);
4791 4792 4793 4794 4795 4796 4797 4798 4799 4800 4801 4802 4803 4804 4805 4806 4807 4808 4809 4810
      reclength= _ma_rec_pack(info,from,sort_param->record);
      flag=0;

      do
      {
	block_length=reclength+ 3 + test(reclength >= (65520-3));
	if (block_length < share->base.min_block_length)
	  block_length=share->base.min_block_length;
	info->update|=HA_STATE_WRITE_AT_END;
	block_length=MY_ALIGN(block_length,MARIA_DYN_ALIGN_SIZE);
	if (block_length > MARIA_MAX_BLOCK_LENGTH)
	  block_length=MARIA_MAX_BLOCK_LENGTH;
	if (_ma_write_part_record(info,0L,block_length,
				  sort_param->filepos+block_length,
				  &from,&reclength,&flag))
	{
	  _ma_check_print_error(param,"%d when writing to datafile",my_errno);
	  DBUG_RETURN(1);
	}
	sort_param->filepos+=block_length;
4811
	share->state.split++;
4812 4813 4814 4815 4816 4817
      } while (reclength);
      break;
    case COMPRESSED_RECORD:
      reclength=info->packed_length;
      length= _ma_save_pack_length((uint) share->pack.version, block_buff,
                               reclength);
4818
      if (share->base.blobs)
4819 4820 4821
	length+= _ma_save_pack_length((uint) share->pack.version,
	                          block_buff + length, info->blob_length);
      if (my_b_write(&info->rec_cache,block_buff,length) ||
unknown's avatar
unknown committed
4822
	  my_b_write(&info->rec_cache,(uchar*) sort_param->rec_buff,reclength))
4823 4824 4825 4826 4827
      {
	_ma_check_print_error(param,"%d when writing to datafile",my_errno);
	DBUG_RETURN(1);
      }
      sort_param->filepos+=reclength+length;
4828
      share->state.split++;
4829 4830 4831 4832 4833 4834 4835 4836 4837 4838 4839 4840 4841 4842 4843 4844 4845 4846
      break;
    }
  }
  if (sort_param->master)
  {
    info->state->records++;
    if ((param->testflag & T_WRITE_LOOP) &&
        (info->state->records % WRITE_COUNT) == 0)
    {
      char llbuff[22];
      printf("%s\r", llstr(info->state->records,llbuff));
      VOID(fflush(stdout));
    }
  }
  DBUG_RETURN(0);
} /* _ma_sort_write_record */


4847
/* Compare two keys from _ma_create_index_by_sort */
4848 4849 4850 4851 4852 4853 4854 4855 4856 4857

static int sort_key_cmp(MARIA_SORT_PARAM *sort_param, const void *a,
			const void *b)
{
  uint not_used[2];
  return (ha_key_cmp(sort_param->seg, *((uchar**) a), *((uchar**) b),
		     USE_WHOLE_KEY, SEARCH_SAME, not_used));
} /* sort_key_cmp */


unknown's avatar
unknown committed
4858
static int sort_key_write(MARIA_SORT_PARAM *sort_param, const uchar *a)
4859 4860 4861 4862 4863 4864 4865 4866 4867
{
  uint diff_pos[2];
  char llbuff[22],llbuff2[22];
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
  HA_CHECK *param= sort_info->param;
  int cmp;

  if (sort_info->key_block->inited)
  {
unknown's avatar
unknown committed
4868
    cmp=ha_key_cmp(sort_param->seg, (uchar*) sort_info->key_block->lastkey,
4869 4870 4871
		   (uchar*) a, USE_WHOLE_KEY,SEARCH_FIND | SEARCH_UPDATE,
		   diff_pos);
    if (param->stats_method == MI_STATS_METHOD_NULLS_NOT_EQUAL)
unknown's avatar
unknown committed
4872
      ha_key_cmp(sort_param->seg, (uchar*) sort_info->key_block->lastkey,
4873 4874 4875 4876 4877 4878 4879
                 (uchar*) a, USE_WHOLE_KEY,
                 SEARCH_FIND | SEARCH_NULL_ARE_NOT_EQUAL, diff_pos);
    else if (param->stats_method == MI_STATS_METHOD_IGNORE_NULLS)
    {
      diff_pos[0]= maria_collect_stats_nonulls_next(sort_param->seg,
                                                 sort_param->notnull,
                                                 sort_info->key_block->lastkey,
unknown's avatar
unknown committed
4880
                                                 a);
4881 4882 4883 4884 4885 4886 4887 4888
    }
    sort_param->unique[diff_pos[0]-1]++;
  }
  else
  {
    cmp= -1;
    if (param->stats_method == MI_STATS_METHOD_IGNORE_NULLS)
      maria_collect_stats_nonulls_first(sort_param->seg, sort_param->notnull,
unknown's avatar
unknown committed
4889
                                        a);
4890 4891 4892 4893
  }
  if ((sort_param->keyinfo->flag & HA_NOSAME) && cmp == 0)
  {
    sort_info->dupp++;
unknown's avatar
unknown committed
4894 4895 4896
    sort_info->info->cur_row.lastpos= get_record_for_key(sort_info->info,
                                                         sort_param->keyinfo,
                                                         a);
4897 4898
    _ma_check_print_warning(param,
			   "Duplicate key for record at %10s against record at %10s",
unknown's avatar
unknown committed
4899
			   llstr(sort_info->info->cur_row.lastpos, llbuff),
4900 4901 4902 4903 4904 4905 4906
			   llstr(get_record_for_key(sort_info->info,
						    sort_param->keyinfo,
						    sort_info->key_block->
						    lastkey),
				 llbuff2));
    param->testflag|=T_RETRY_WITHOUT_QUICK;
    if (sort_info->param->testflag & T_VERBOSE)
unknown's avatar
unknown committed
4907
      _ma_print_key(stdout,sort_param->seg, a, USE_WHOLE_KEY);
4908 4909 4910 4911 4912 4913 4914 4915 4916 4917
    return (sort_delete_record(sort_param));
  }
#ifndef DBUG_OFF
  if (cmp > 0)
  {
    _ma_check_print_error(param,
			 "Internal error: Keys are not in order from sort");
    return(1);
  }
#endif
unknown's avatar
unknown committed
4918 4919
  return (sort_insert_key(sort_param, sort_info->key_block,
			  a, HA_OFFSET_ERROR));
4920 4921
} /* sort_key_write */

unknown's avatar
unknown committed
4922

4923 4924 4925 4926 4927 4928 4929 4930
int _ma_sort_ft_buf_flush(MARIA_SORT_PARAM *sort_param)
{
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
  SORT_KEY_BLOCKS *key_block=sort_info->key_block;
  MARIA_SHARE *share=sort_info->info->s;
  uint val_off, val_len;
  int error;
  SORT_FT_BUF *maria_ft_buf=sort_info->ft_buf;
unknown's avatar
unknown committed
4931
  uchar *from, *to;
4932 4933 4934

  val_len=share->ft2_keyinfo.keylength;
  get_key_full_length_rdonly(val_off, maria_ft_buf->lastkey);
unknown's avatar
unknown committed
4935
  to= maria_ft_buf->lastkey+val_off;
4936 4937 4938 4939

  if (maria_ft_buf->buf)
  {
    /* flushing first-level tree */
unknown's avatar
unknown committed
4940 4941
    error= sort_insert_key(sort_param,key_block,maria_ft_buf->lastkey,
                           HA_OFFSET_ERROR);
4942 4943 4944 4945 4946
    for (from=to+val_len;
         !error && from < maria_ft_buf->buf;
         from+= val_len)
    {
      memcpy(to, from, val_len);
unknown's avatar
unknown committed
4947 4948
      error= sort_insert_key(sort_param,key_block,maria_ft_buf->lastkey,
                             HA_OFFSET_ERROR);
4949 4950 4951 4952 4953 4954 4955 4956 4957 4958 4959 4960 4961 4962 4963 4964 4965 4966 4967
    }
    return error;
  }
  /* flushing second-level tree keyblocks */
  error=_ma_flush_pending_blocks(sort_param);
  /* updating lastkey with second-level tree info */
  ft_intXstore(maria_ft_buf->lastkey+val_off, -maria_ft_buf->count);
  _ma_dpointer(sort_info->info, maria_ft_buf->lastkey+val_off+HA_FT_WLEN,
      share->state.key_root[sort_param->key]);
  /* restoring first level tree data in sort_info/sort_param */
  sort_info->key_block=sort_info->key_block_end- sort_info->param->sort_key_blocks;
  sort_param->keyinfo=share->keyinfo+sort_param->key;
  share->state.key_root[sort_param->key]=HA_OFFSET_ERROR;
  /* writing lastkey in first-level tree */
  return error ? error :
                 sort_insert_key(sort_param,sort_info->key_block,
                                 maria_ft_buf->lastkey,HA_OFFSET_ERROR);
}

unknown's avatar
unknown committed
4968 4969

static int sort_maria_ft_key_write(MARIA_SORT_PARAM *sort_param,
unknown's avatar
unknown committed
4970
                                   const uchar *a)
4971 4972 4973 4974 4975
{
  uint a_len, val_off, val_len, error;
  MARIA_SORT_INFO *sort_info= sort_param->sort_info;
  SORT_FT_BUF *ft_buf= sort_info->ft_buf;
  SORT_KEY_BLOCKS *key_block= sort_info->key_block;
4976
  MARIA_SHARE *share= sort_info->info->s;
4977

4978
  val_len=HA_FT_WLEN+share->base.rec_reflength;
4979 4980 4981 4982 4983 4984 4985 4986
  get_key_full_length_rdonly(a_len, (uchar *)a);

  if (!ft_buf)
  {
    /*
      use two-level tree only if key_reflength fits in rec_reflength place
      and row format is NOT static - for _ma_dpointer not to garble offsets
     */
4987 4988 4989
    if ((share->base.key_reflength <=
         share->base.rec_reflength) &&
        (share->options &
4990 4991 4992 4993 4994 4995 4996 4997 4998 4999 5000 5001 5002 5003 5004 5005
          (HA_OPTION_PACK_RECORD | HA_OPTION_COMPRESS_RECORD)))
      ft_buf= (SORT_FT_BUF *)my_malloc(sort_param->keyinfo->block_length +
                                       sizeof(SORT_FT_BUF), MYF(MY_WME));

    if (!ft_buf)
    {
      sort_param->key_write=sort_key_write;
      return sort_key_write(sort_param, a);
    }
    sort_info->ft_buf= ft_buf;
    goto word_init_ft_buf;              /* no need to duplicate the code */
  }
  get_key_full_length_rdonly(val_off, ft_buf->lastkey);

  if (ha_compare_text(sort_param->seg->charset,
                      ((uchar *)a)+1,a_len-1,
unknown's avatar
unknown committed
5006
                      (uchar*) ft_buf->lastkey+1,val_off-1, 0, 0)==0)
5007
  {
unknown's avatar
unknown committed
5008
    uchar *p;
5009 5010 5011 5012
    if (!ft_buf->buf)                   /* store in second-level tree */
    {
      ft_buf->count++;
      return sort_insert_key(sort_param,key_block,
unknown's avatar
unknown committed
5013
                             a + a_len, HA_OFFSET_ERROR);
5014 5015 5016 5017 5018 5019 5020 5021 5022 5023 5024 5025 5026 5027
    }

    /* storing the key in the buffer. */
    memcpy (ft_buf->buf, (char *)a+a_len, val_len);
    ft_buf->buf+=val_len;
    if (ft_buf->buf < ft_buf->end)
      return 0;

    /* converting to two-level tree */
    p=ft_buf->lastkey+val_off;

    while (key_block->inited)
      key_block++;
    sort_info->key_block=key_block;
5028
    sort_param->keyinfo= &share->ft2_keyinfo;
5029 5030 5031 5032 5033 5034 5035 5036 5037 5038 5039 5040 5041 5042 5043 5044 5045 5046 5047 5048 5049 5050 5051 5052 5053 5054 5055 5056 5057 5058 5059 5060 5061
    ft_buf->count=(ft_buf->buf - p)/val_len;

    /* flushing buffer to second-level tree */
    for (error=0; !error && p < ft_buf->buf; p+= val_len)
      error=sort_insert_key(sort_param,key_block,p,HA_OFFSET_ERROR);
    ft_buf->buf=0;
    return error;
  }

  /* flushing buffer */
  if ((error=_ma_sort_ft_buf_flush(sort_param)))
    return error;

word_init_ft_buf:
  a_len+=val_len;
  memcpy(ft_buf->lastkey, a, a_len);
  ft_buf->buf=ft_buf->lastkey+a_len;
  /*
    32 is just a safety margin here
    (at least max(val_len, sizeof(nod_flag)) should be there).
    May be better performance could be achieved if we'd put
      (sort_info->keyinfo->block_length-32)/XXX
      instead.
        TODO: benchmark the best value for XXX.
  */
  ft_buf->end= ft_buf->lastkey+ (sort_param->keyinfo->block_length-32);
  return 0;
} /* sort_maria_ft_key_write */


	/* get pointer to record from a key */

static my_off_t get_record_for_key(MARIA_HA *info, MARIA_KEYDEF *keyinfo,
unknown's avatar
unknown committed
5062
				   const uchar *key)
5063
{
unknown's avatar
unknown committed
5064
  return _ma_dpos(info,0, key + _ma_keylength(keyinfo, key));
5065 5066 5067 5068 5069 5070
} /* get_record_for_key */


	/* Insert a key in sort-key-blocks */

static int sort_insert_key(MARIA_SORT_PARAM *sort_param,
unknown's avatar
unknown committed
5071
			   register SORT_KEY_BLOCKS *key_block,
unknown's avatar
unknown committed
5072
                           const uchar *key,
5073 5074 5075 5076
			   my_off_t prev_block)
{
  uint a_length,t_length,nod_flag;
  my_off_t filepos,key_file_length;
unknown's avatar
unknown committed
5077
  uchar *anc_buff,*lastkey;
5078 5079 5080 5081
  MARIA_KEY_PARAM s_temp;
  MARIA_KEYDEF *keyinfo=sort_param->keyinfo;
  MARIA_SORT_INFO *sort_info= sort_param->sort_info;
  HA_CHECK *param=sort_info->param;
5082
  MARIA_PINNED_PAGE tmp_page_link, *page_link= &tmp_page_link;
5083 5084
  MARIA_HA *info= sort_info->info;
  MARIA_SHARE *share= info->s;
5085 5086
  DBUG_ENTER("sort_insert_key");

unknown's avatar
unknown committed
5087
  anc_buff= key_block->buff;
5088 5089
  lastkey=key_block->lastkey;
  nod_flag= (key_block == sort_info->key_block ? 0 :
5090
	     share->base.key_reflength);
5091 5092 5093 5094 5095 5096 5097 5098 5099

  if (!key_block->inited)
  {
    key_block->inited=1;
    if (key_block == sort_info->key_block_end)
    {
      _ma_check_print_error(param,"To many key-block-levels; Try increasing sort_key_blocks");
      DBUG_RETURN(1);
    }
5100 5101 5102 5103 5104
    a_length= share->keypage_header + nod_flag;
    key_block->end_pos= anc_buff + share->keypage_header;
    bzero(anc_buff, share->keypage_header);
    _ma_store_keynr(share, anc_buff, (uint) (sort_param->keyinfo -
                                            share->keyinfo));
5105 5106 5107
    lastkey=0;					/* No previous key in block */
  }
  else
5108
    a_length= _ma_get_page_used(share, anc_buff);
5109 5110 5111

	/* Save pointer to previous block */
  if (nod_flag)
5112
  {
5113
    _ma_store_keypage_flag(share, anc_buff, KEYPAGE_FLAG_ISNOD);
5114
    _ma_kpointer(info,key_block->end_pos,prev_block);
5115
  }
5116 5117

  t_length=(*keyinfo->pack_key)(keyinfo,nod_flag,
unknown's avatar
unknown committed
5118
				(uchar*) 0,lastkey,lastkey,key,
5119 5120 5121
				 &s_temp);
  (*keyinfo->store_key)(keyinfo, key_block->end_pos+nod_flag,&s_temp);
  a_length+=t_length;
5122
  _ma_store_page_used(share, anc_buff, a_length);
5123 5124 5125
  key_block->end_pos+=t_length;
  if (a_length <= keyinfo->block_length)
  {
unknown's avatar
unknown committed
5126
    VOID(_ma_move_key(keyinfo, key_block->lastkey, key));
5127 5128 5129 5130
    key_block->last_length=a_length-t_length;
    DBUG_RETURN(0);
  }

5131
  /* Fill block with end-zero and write filled block */
5132
  _ma_store_page_used(share, anc_buff, key_block->last_length);
unknown's avatar
unknown committed
5133
  bzero(anc_buff+key_block->last_length,
5134 5135
	keyinfo->block_length- key_block->last_length);
  key_file_length=info->state->key_file_length;
5136
  if ((filepos= _ma_new(info, DFLT_INIT_HITS, &page_link)) == HA_OFFSET_ERROR)
5137
    DBUG_RETURN(1);
5138
  _ma_fast_unlock_key_del(info);
5139 5140

  /* If we read the page from the key cache, we have to write it back to it */
5141
  if (page_link->changed)
5142
  {
5143 5144 5145 5146
    pop_dynamic(&info->pinned_pages);
    if (_ma_write_keypage(info, keyinfo, filepos,
                          PAGECACHE_LOCK_WRITE_UNLOCK,
                          DFLT_INIT_HITS, anc_buff))
5147 5148
      DBUG_RETURN(1);
  }
unknown's avatar
unknown committed
5149 5150 5151 5152 5153 5154 5155
  else
  {
    put_crc(anc_buff, filepos, share);
    if (my_pwrite(share->kfile.file, anc_buff,
                  (uint) keyinfo->block_length, filepos, param->myf_rw))
      DBUG_RETURN(1);
  }
5156
  DBUG_DUMP("buff", anc_buff, _ma_get_page_used(share, anc_buff));
5157 5158 5159 5160 5161 5162 5163 5164 5165 5166 5167

	/* Write separator-key to block in next level */
  if (sort_insert_key(sort_param,key_block+1,key_block->lastkey,filepos))
    DBUG_RETURN(1);

	/* clear old block and write new key in it */
  key_block->inited=0;
  DBUG_RETURN(sort_insert_key(sort_param, key_block,key,prev_block));
} /* sort_insert_key */


5168
/* Delete record when we found a duplicated key */
5169 5170 5171 5172 5173

static int sort_delete_record(MARIA_SORT_PARAM *sort_param)
{
  uint i;
  int old_file,error;
unknown's avatar
unknown committed
5174
  uchar *key;
5175 5176
  MARIA_SORT_INFO *sort_info=sort_param->sort_info;
  HA_CHECK *param=sort_info->param;
5177
  MARIA_HA *row_info= sort_info->new_info, *key_info= sort_info->info;
5178 5179 5180 5181 5182
  DBUG_ENTER("sort_delete_record");

  if ((param->testflag & (T_FORCE_UNIQUENESS|T_QUICK)) == T_QUICK)
  {
    _ma_check_print_error(param,
5183 5184
			 "Quick-recover aborted; Run recovery without switch -q or with "
                          "switch -qq");
5185 5186
    DBUG_RETURN(1);
  }
5187
  if (key_info->s->options & HA_OPTION_COMPRESS_RECORD)
5188 5189
  {
    _ma_check_print_error(param,
5190 5191 5192
                          "Recover aborted; Can't run standard recovery on "
                          "compressed tables with errors in data-file. "
                          "Use 'maria_chk --safe-recover' to fix it");
5193 5194 5195
    DBUG_RETURN(1);
  }

5196 5197 5198
  old_file= row_info->dfile.file;
  /* This only affects static and dynamic row formats */
  row_info->dfile.file= row_info->rec_cache.file;
5199 5200
  if (sort_info->current_key)
  {
5201 5202 5203
    key= key_info->lastkey + key_info->s->base.max_key_length;
    if ((error=(*row_info->s->read_record)(row_info, sort_param->record,
                                           key_info->cur_row.lastpos)) &&
5204 5205 5206
	error != HA_ERR_RECORD_DELETED)
    {
      _ma_check_print_error(param,"Can't read record to be removed");
5207
      row_info->dfile.file= old_file;
5208 5209 5210 5211 5212
      DBUG_RETURN(1);
    }

    for (i=0 ; i < sort_info->current_key ; i++)
    {
5213 5214 5215
      uint key_length= _ma_make_key(key_info, i, key, sort_param->record,
                                    key_info->cur_row.lastpos);
      if (_ma_ck_delete(key_info, i, key, key_length))
5216
      {
unknown's avatar
unknown committed
5217 5218 5219
	_ma_check_print_error(param,
                              "Can't delete key %d from record to be removed",
                              i+1);
5220
	row_info->dfile.file= old_file;
5221 5222 5223
	DBUG_RETURN(1);
      }
    }
5224
    if (sort_param->calc_checksum)
5225 5226
      param->glob_crc-=(*key_info->s->calc_check_checksum)(key_info,
                                                           sort_param->record);
5227
  }
5228 5229 5230 5231
  error= (flush_io_cache(&row_info->rec_cache) ||
          (*row_info->s->delete_record)(row_info, sort_param->record));
  row_info->dfile.file= old_file;           /* restore actual value */
  row_info->state->records--;
5232 5233 5234
  DBUG_RETURN(error);
} /* sort_delete_record */

5235 5236

/* Fix all pending blocks and flush everything to disk */
5237 5238 5239 5240 5241 5242 5243 5244 5245 5246

int _ma_flush_pending_blocks(MARIA_SORT_PARAM *sort_param)
{
  uint nod_flag,length;
  my_off_t filepos,key_file_length;
  SORT_KEY_BLOCKS *key_block;
  MARIA_SORT_INFO *sort_info= sort_param->sort_info;
  myf myf_rw=sort_info->param->myf_rw;
  MARIA_HA *info=sort_info->info;
  MARIA_KEYDEF *keyinfo=sort_param->keyinfo;
5247
  MARIA_PINNED_PAGE tmp_page_link, *page_link= &tmp_page_link;
5248 5249 5250 5251 5252 5253 5254
  DBUG_ENTER("_ma_flush_pending_blocks");

  filepos= HA_OFFSET_ERROR;			/* if empty file */
  nod_flag=0;
  for (key_block=sort_info->key_block ; key_block->inited ; key_block++)
  {
    key_block->inited=0;
5255
    length= _ma_get_page_used(info->s, key_block->buff);
5256 5257 5258
    if (nod_flag)
      _ma_kpointer(info,key_block->end_pos,filepos);
    key_file_length=info->state->key_file_length;
unknown's avatar
unknown committed
5259
    bzero(key_block->buff+length, keyinfo->block_length-length);
5260 5261
    if ((filepos= _ma_new(info, DFLT_INIT_HITS, &page_link)) ==
        HA_OFFSET_ERROR)
5262
      goto err;
5263 5264

    /* If we read the page from the key cache, we have to write it back */
5265
    if (page_link->changed)
5266
    {
5267
      pop_dynamic(&info->pinned_pages);
5268
      if (_ma_write_keypage(info, keyinfo, filepos,
5269
                            PAGECACHE_LOCK_WRITE_UNLOCK,
5270
                            DFLT_INIT_HITS, key_block->buff))
5271
	goto err;
5272
    }
unknown's avatar
unknown committed
5273 5274 5275 5276 5277
    else
    {
      put_crc(key_block->buff, filepos, info->s);
      if (my_pwrite(info->s->kfile.file, key_block->buff,
                    (uint) keyinfo->block_length,filepos, myf_rw))
5278
        goto err;
unknown's avatar
unknown committed
5279
    }
unknown's avatar
unknown committed
5280
    DBUG_DUMP("buff",key_block->buff,length);
5281 5282 5283
    nod_flag=1;
  }
  info->s->state.key_root[sort_param->key]=filepos; /* Last is root for tree */
5284
  _ma_fast_unlock_key_del(info);
5285
  DBUG_RETURN(0);
5286 5287 5288 5289

err:
  _ma_fast_unlock_key_del(info);
  DBUG_RETURN(1);
5290 5291 5292 5293 5294 5295 5296 5297 5298 5299 5300
} /* _ma_flush_pending_blocks */

	/* alloc space and pointers for key_blocks */

static SORT_KEY_BLOCKS *alloc_key_blocks(HA_CHECK *param, uint blocks,
                                         uint buffer_length)
{
  reg1 uint i;
  SORT_KEY_BLOCKS *block;
  DBUG_ENTER("alloc_key_blocks");

unknown's avatar
unknown committed
5301 5302 5303
  if (!(block= (SORT_KEY_BLOCKS*) my_malloc((sizeof(SORT_KEY_BLOCKS)+
                                             buffer_length+IO_SIZE)*blocks,
                                            MYF(0))))
5304 5305 5306 5307 5308 5309 5310
  {
    _ma_check_print_error(param,"Not enough memory for sort-key-blocks");
    return(0);
  }
  for (i=0 ; i < blocks ; i++)
  {
    block[i].inited=0;
unknown's avatar
unknown committed
5311
    block[i].buff= (uchar*) (block+blocks)+(buffer_length+IO_SIZE)*i;
5312 5313 5314 5315 5316 5317 5318 5319 5320
  }
  DBUG_RETURN(block);
} /* alloc_key_blocks */


	/* Check if file is almost full */

int maria_test_if_almost_full(MARIA_HA *info)
{
5321 5322 5323
  MARIA_SHARE *share= info->s;

  if (share->options & HA_OPTION_COMPRESS_RECORD)
5324
    return 0;
5325
  return my_seek(share->kfile.file, 0L, MY_SEEK_END,
5326
                 MYF(MY_THREADSAFE))/10*9 >
5327
    (my_off_t) share->base.max_key_file_length ||
5328
    my_seek(info->dfile.file, 0L, MY_SEEK_END, MYF(0)) / 10 * 9 >
5329
    (my_off_t) share->base.max_data_file_length;
5330 5331 5332 5333 5334 5335 5336 5337 5338 5339 5340
}

	/* Recreate table with bigger more alloced record-data */

int maria_recreate_table(HA_CHECK *param, MARIA_HA **org_info, char *filename)
{
  int error;
  MARIA_HA info;
  MARIA_SHARE share;
  MARIA_KEYDEF *keyinfo,*key,*key_end;
  HA_KEYSEG *keysegs,*keyseg;
5341
  MARIA_COLUMNDEF *columndef,*column,*end;
5342 5343 5344 5345 5346 5347
  MARIA_UNIQUEDEF *uniquedef,*u_ptr,*u_end;
  MARIA_STATUS_INFO status_info;
  uint unpack,key_parts;
  ha_rows max_records;
  ulonglong file_length,tmp_length;
  MARIA_CREATE_INFO create_info;
5348
  DBUG_ENTER("maria_recreate_table");
5349 5350 5351 5352 5353 5354 5355 5356

  error=1;					/* Default error */
  info= **org_info;
  status_info= (*org_info)->state[0];
  info.state= &status_info;
  share= *(*org_info)->s;
  unpack= (share.options & HA_OPTION_COMPRESS_RECORD) &&
    (param->testflag & T_UNPACK);
unknown's avatar
unknown committed
5357 5358
  if (!(keyinfo=(MARIA_KEYDEF*) my_alloca(sizeof(MARIA_KEYDEF) *
                                          share.base.keys)))
5359
    DBUG_RETURN(0);
unknown's avatar
unknown committed
5360
  memcpy((uchar*) keyinfo,(uchar*) share.keyinfo,
5361 5362 5363 5364 5365 5366
	 (size_t) (sizeof(MARIA_KEYDEF)*share.base.keys));

  key_parts= share.base.all_key_parts;
  if (!(keysegs=(HA_KEYSEG*) my_alloca(sizeof(HA_KEYSEG)*
				       (key_parts+share.base.keys))))
  {
unknown's avatar
unknown committed
5367
    my_afree((uchar*) keyinfo);
5368
    DBUG_RETURN(1);
5369
  }
5370
  if (!(columndef=(MARIA_COLUMNDEF*)
5371 5372
	my_alloca(sizeof(MARIA_COLUMNDEF)*(share.base.fields+1))))
  {
unknown's avatar
unknown committed
5373 5374
    my_afree((uchar*) keyinfo);
    my_afree((uchar*) keysegs);
5375
    DBUG_RETURN(1);
5376 5377 5378 5379
  }
  if (!(uniquedef=(MARIA_UNIQUEDEF*)
	my_alloca(sizeof(MARIA_UNIQUEDEF)*(share.state.header.uniques+1))))
  {
unknown's avatar
unknown committed
5380 5381 5382
    my_afree((uchar*) columndef);
    my_afree((uchar*) keyinfo);
    my_afree((uchar*) keysegs);
5383
    DBUG_RETURN(1);
5384 5385 5386
  }

  /* Copy the column definitions */
unknown's avatar
unknown committed
5387
  memcpy((uchar*) columndef,(uchar*) share.columndef,
5388
	 (size_t) (sizeof(MARIA_COLUMNDEF)*(share.base.fields+1)));
5389 5390 5391
  for (column=columndef, end= columndef+share.base.fields;
       column != end ;
       column++)
5392 5393
  {
    if (unpack && !(share.options & HA_OPTION_PACK_RECORD) &&
5394 5395 5396 5397
	column->type != FIELD_BLOB &&
	column->type != FIELD_VARCHAR &&
	column->type != FIELD_CHECK)
      column->type=(int) FIELD_NORMAL;
5398 5399 5400
  }

  /* Change the new key to point at the saved key segments */
unknown's avatar
unknown committed
5401
  memcpy((uchar*) keysegs,(uchar*) share.keyparts,
5402 5403 5404 5405 5406 5407 5408 5409 5410 5411 5412 5413 5414 5415
	 (size_t) (sizeof(HA_KEYSEG)*(key_parts+share.base.keys+
				      share.state.header.uniques)));
  keyseg=keysegs;
  for (key=keyinfo,key_end=keyinfo+share.base.keys; key != key_end ; key++)
  {
    key->seg=keyseg;
    for (; keyseg->type ; keyseg++)
    {
      if (param->language)
	keyseg->language=param->language;	/* change language */
    }
    keyseg++;					/* Skip end pointer */
  }

unknown's avatar
unknown committed
5416 5417 5418 5419
  /*
    Copy the unique definitions and change them to point at the new key
    segments
  */
unknown's avatar
unknown committed
5420
  memcpy((uchar*) uniquedef,(uchar*) share.uniqueinfo,
5421 5422 5423 5424 5425 5426 5427 5428 5429 5430
	 (size_t) (sizeof(MARIA_UNIQUEDEF)*(share.state.header.uniques)));
  for (u_ptr=uniquedef,u_end=uniquedef+share.state.header.uniques;
       u_ptr != u_end ; u_ptr++)
  {
    u_ptr->seg=keyseg;
    keyseg+=u_ptr->keysegs+1;
  }
  if (share.options & HA_OPTION_COMPRESS_RECORD)
    share.base.records=max_records=info.state->records;
  else if (share.base.min_pack_length)
unknown's avatar
unknown committed
5431 5432
    max_records=(ha_rows) (my_seek(info.dfile.file, 0L, MY_SEEK_END,
                                   MYF(0)) /
5433 5434 5435
			   (ulong) share.base.min_pack_length);
  else
    max_records=0;
unknown's avatar
unknown committed
5436
  unpack= (share.data_file_type == COMPRESSED_RECORD) &&
5437 5438 5439
    (param->testflag & T_UNPACK);
  share.options&= ~HA_OPTION_TEMP_COMPRESS_RECORD;

unknown's avatar
unknown committed
5440
  file_length=(ulonglong) my_seek(info.dfile.file, 0L, MY_SEEK_END, MYF(0));
5441 5442 5443 5444 5445 5446 5447 5448 5449 5450 5451 5452 5453 5454 5455 5456 5457
  tmp_length= file_length+file_length/10;
  set_if_bigger(file_length,param->max_data_file_length);
  set_if_bigger(file_length,tmp_length);
  set_if_bigger(file_length,(ulonglong) share.base.max_data_file_length);

  VOID(maria_close(*org_info));
  bzero((char*) &create_info,sizeof(create_info));
  create_info.max_rows=max(max_records,share.base.records);
  create_info.reloc_rows=share.base.reloc;
  create_info.old_options=(share.options |
			   (unpack ? HA_OPTION_TEMP_COMPRESS_RECORD : 0));

  create_info.data_file_length=file_length;
  create_info.auto_increment=share.state.auto_increment;
  create_info.language = (param->language ? param->language :
			  share.state.header.language);
  create_info.key_file_length=  status_info.key_file_length;
unknown's avatar
unknown committed
5458 5459 5460
  create_info.org_data_file_type= ((enum data_file_type)
                                   share.state.header.org_data_file_type);

5461 5462 5463 5464 5465
  /*
    Allow for creating an auto_increment key. This has an effect only if
    an auto_increment key exists in the original table.
  */
  create_info.with_auto_increment= TRUE;
unknown's avatar
unknown committed
5466 5467 5468 5469 5470 5471 5472
  create_info.null_bytes= share.base.null_bytes;
  /*
    We don't have to handle symlinks here because we are using
    HA_DONT_TOUCH_DATA
  */
  if (maria_create(filename, share.data_file_type,
                   share.base.keys - share.state.header.uniques,
5473
                   keyinfo, share.base.fields, columndef,
unknown's avatar
unknown committed
5474 5475 5476 5477 5478 5479 5480
                   share.state.header.uniques, uniquedef,
                   &create_info,
                   HA_DONT_TOUCH_DATA))
  {
    _ma_check_print_error(param,
                          "Got error %d when trying to recreate indexfile",
                          my_errno);
5481 5482 5483 5484 5485 5486 5487 5488
    goto end;
  }
  *org_info=maria_open(filename,O_RDWR,
		    (param->testflag & T_WAIT_FOREVER) ? HA_OPEN_WAIT_IF_LOCKED :
		    (param->testflag & T_DESCRIPT) ? HA_OPEN_IGNORE_IF_LOCKED :
		    HA_OPEN_ABORT_IF_LOCKED);
  if (!*org_info)
  {
unknown's avatar
unknown committed
5489 5490 5491
    _ma_check_print_error(param,
                          "Got error %d when trying to open re-created indexfile",
                          my_errno);
5492 5493 5494 5495 5496 5497 5498 5499 5500 5501 5502 5503 5504 5505 5506 5507
    goto end;
  }
  /* We are modifing */
  (*org_info)->s->options&= ~HA_OPTION_READ_ONLY_DATA;
  VOID(_ma_readinfo(*org_info,F_WRLCK,0));
  (*org_info)->state->records=info.state->records;
  if (share.state.create_time)
    (*org_info)->s->state.create_time=share.state.create_time;
  (*org_info)->s->state.unique=(*org_info)->this_unique=
    share.state.unique;
  (*org_info)->state->checksum=info.state->checksum;
  (*org_info)->state->del=info.state->del;
  (*org_info)->s->state.dellink=share.state.dellink;
  (*org_info)->state->empty=info.state->empty;
  (*org_info)->state->data_file_length=info.state->data_file_length;
  if (maria_update_state_info(param,*org_info,UPDATE_TIME | UPDATE_STAT |
5508
                              UPDATE_OPEN_COUNT))
5509 5510 5511
    goto end;
  error=0;
end:
unknown's avatar
unknown committed
5512 5513 5514 5515
  my_afree((uchar*) uniquedef);
  my_afree((uchar*) keyinfo);
  my_afree((uchar*) columndef);
  my_afree((uchar*) keysegs);
5516
  DBUG_RETURN(error);
5517 5518 5519 5520 5521 5522 5523
}


	/* write suffix to data file if neaded */

int maria_write_data_suffix(MARIA_SORT_INFO *sort_info, my_bool fix_datafile)
{
5524
  MARIA_HA *info=sort_info->new_info;
5525

5526
  if (info->s->data_file_type == COMPRESSED_RECORD && fix_datafile)
5527
  {
5528
    uchar buff[MEMMAP_EXTRA_MARGIN];
5529 5530 5531 5532 5533 5534 5535 5536 5537 5538 5539 5540
    bzero(buff,sizeof(buff));
    if (my_b_write(&info->rec_cache,buff,sizeof(buff)))
    {
      _ma_check_print_error(sort_info->param,
			   "%d when writing to datafile",my_errno);
      return 1;
    }
    sort_info->param->read_cache.end_of_file+=sizeof(buff);
  }
  return 0;
}

unknown's avatar
unknown committed
5541 5542

/* Update state and maria_chk time of indexfile */
5543 5544 5545

int maria_update_state_info(HA_CHECK *param, MARIA_HA *info,uint update)
{
5546
  MARIA_SHARE *share= info->s;
5547
  DBUG_ENTER("maria_update_state_info");
5548 5549 5550 5551 5552 5553 5554 5555 5556

  if (update & UPDATE_OPEN_COUNT)
  {
    share->state.open_count=0;
    share->global_changed=0;
  }
  if (update & UPDATE_STAT)
  {
    uint i, key_parts= mi_uint2korr(share->state.header.key_parts);
5557
    share->state.records_at_analyze= info->state->records;
5558 5559 5560 5561 5562
    share->state.changed&= ~STATE_NOT_ANALYZED;
    if (info->state->records)
    {
      for (i=0; i<key_parts; i++)
      {
5563
        if (!(share->state.rec_per_key_part[i]=param->new_rec_per_key_part[i]))
5564 5565 5566 5567 5568 5569 5570 5571 5572 5573 5574 5575 5576 5577 5578 5579 5580 5581 5582 5583
          share->state.changed|= STATE_NOT_ANALYZED;
      }
    }
  }
  if (update & (UPDATE_STAT | UPDATE_SORT | UPDATE_TIME | UPDATE_AUTO_INC))
  {
    if (update & UPDATE_TIME)
    {
      share->state.check_time= (long) time((time_t*) 0);
      if (!share->state.create_time)
	share->state.create_time=share->state.check_time;
    }
    /*
      When tables are locked we haven't synched the share state and the
      real state for a while so we better do it here before synching
      the share state to disk. Only when table is write locked is it
      necessary to perform this synch.
    */
    if (info->lock_type == F_WRLCK)
      share->state.state= *info->state;
unknown's avatar
unknown committed
5584
    if (_ma_state_info_write(share, 1|2))
5585 5586 5587 5588 5589 5590 5591 5592 5593 5594 5595 5596
      goto err;
    share->changed=0;
  }
  {						/* Force update of status */
    int error;
    uint r_locks=share->r_locks,w_locks=share->w_locks;
    share->r_locks= share->w_locks= share->tot_locks= 0;
    error= _ma_writeinfo(info,WRITEINFO_NO_UNLOCK);
    share->r_locks=r_locks;
    share->w_locks=w_locks;
    share->tot_locks=r_locks+w_locks;
    if (!error)
5597
      DBUG_RETURN(0);
5598 5599 5600
  }
err:
  _ma_check_print_error(param,"%d when updating keyfile",my_errno);
5601
  DBUG_RETURN(1);
5602 5603
}

5604 5605 5606 5607 5608 5609 5610 5611 5612 5613 5614 5615
/*
  Update auto increment value for a table
  When setting the 'repair_only' flag we only want to change the
  old auto_increment value if its wrong (smaller than some given key).
  The reason is that we shouldn't change the auto_increment value
  for a table without good reason when only doing a repair; If the
  user have inserted and deleted rows, the auto_increment value
  may be bigger than the biggest current row and this is ok.

  If repair_only is not set, we will update the flag to the value in
  param->auto_increment is bigger than the biggest key.
*/
5616 5617 5618 5619

void _ma_update_auto_increment_key(HA_CHECK *param, MARIA_HA *info,
                                   my_bool repair_only)
{
5620
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
5621
  uchar *record;
5622 5623
  DBUG_ENTER("update_auto_increment_key");

5624 5625
  if (!share->base.auto_key ||
      ! maria_is_key_active(share->state.key_map, share->base.auto_key - 1))
5626 5627 5628 5629 5630
  {
    if (!(param->testflag & T_VERY_SILENT))
      _ma_check_print_info(param,
			  "Table: %s doesn't have an auto increment key\n",
			  param->isam_file_name);
5631
    DBUG_VOID_RETURN;
5632 5633 5634 5635 5636 5637 5638 5639
  }
  if (!(param->testflag & T_SILENT) &&
      !(param->testflag & T_REP))
    printf("Updating MARIA file: %s\n", param->isam_file_name);
  /*
    We have to use an allocated buffer instead of info->rec_buff as
    _ma_put_key_in_record() may use info->rec_buff
  */
5640
  if (!(record= (uchar*) my_malloc((uint) share->base.pack_reclength,
5641 5642 5643
				  MYF(0))))
  {
    _ma_check_print_error(param,"Not enough memory for extra record");
5644
    DBUG_VOID_RETURN;
5645 5646 5647
  }

  maria_extra(info,HA_EXTRA_KEYREAD,0);
5648
  if (maria_rlast(info, record, share->base.auto_key-1))
5649 5650 5651 5652 5653 5654
  {
    if (my_errno != HA_ERR_END_OF_FILE)
    {
      maria_extra(info,HA_EXTRA_NO_KEYREAD,0);
      my_free((char*) record, MYF(0));
      _ma_check_print_error(param,"%d when reading last record",my_errno);
5655
      DBUG_VOID_RETURN;
5656 5657
    }
    if (!repair_only)
5658
      share->state.auto_increment=param->auto_increment_value;
5659 5660 5661
  }
  else
  {
5662 5663 5664
    const HA_KEYSEG *keyseg= share->keyinfo[share->base.auto_key-1].seg;
    ulonglong auto_increment=
      ma_retrieve_auto_increment(record + keyseg->start, keyseg->type);
5665
    set_if_bigger(share->state.auto_increment,auto_increment);
5666
    if (!repair_only)
5667
      set_if_bigger(share->state.auto_increment, param->auto_increment_value);
5668 5669 5670 5671
  }
  maria_extra(info,HA_EXTRA_NO_KEYREAD,0);
  my_free((char*) record, MYF(0));
  maria_update_state_info(param, info, UPDATE_AUTO_INC);
5672
  DBUG_VOID_RETURN;
5673 5674 5675 5676 5677 5678 5679 5680 5681 5682 5683 5684 5685 5686 5687 5688 5689 5690 5691 5692 5693 5694 5695 5696 5697 5698 5699 5700 5701 5702 5703 5704 5705 5706 5707 5708 5709 5710 5711 5712 5713 5714 5715 5716 5717 5718 5719 5720 5721 5722 5723 5724 5725 5726
}


/*
  Update statistics for each part of an index

  SYNOPSIS
    maria_update_key_parts()
      keyinfo           IN  Index information (only key->keysegs used)
      rec_per_key_part  OUT Store statistics here
      unique            IN  Array of (#distinct tuples)
      notnull_tuples    IN  Array of (#tuples), or NULL
      records               Number of records in the table

  DESCRIPTION
    This function is called produce index statistics values from unique and
    notnull_tuples arrays after these arrays were produced with sequential
    index scan (the scan is done in two places: chk_index() and
    sort_key_write()).

    This function handles all 3 index statistics collection methods.

    Unique is an array:
      unique[0]= (#different values of {keypart1}) - 1
      unique[1]= (#different values of {keypart1,keypart2} tuple)-unique[0]-1
      ...

    For MI_STATS_METHOD_IGNORE_NULLS method, notnull_tuples is an array too:
      notnull_tuples[0]= (#of {keypart1} tuples such that keypart1 is not NULL)
      notnull_tuples[1]= (#of {keypart1,keypart2} tuples such that all
                          keypart{i} are not NULL)
      ...
    For all other statistics collection methods notnull_tuples==NULL.

    Output is an array:
    rec_per_key_part[k] =
     = E(#records in the table such that keypart_1=c_1 AND ... AND
         keypart_k=c_k for arbitrary constants c_1 ... c_k)

     = {assuming that values have uniform distribution and index contains all
        tuples from the domain (or that {c_1, ..., c_k} tuple is choosen from
        index tuples}

     = #tuples-in-the-index / #distinct-tuples-in-the-index.

    The #tuples-in-the-index and #distinct-tuples-in-the-index have different
    meaning depending on which statistics collection method is used:

    MI_STATS_METHOD_*  how are nulls compared?  which tuples are counted?
     NULLS_EQUAL            NULL == NULL           all tuples in table
     NULLS_NOT_EQUAL        NULL != NULL           all tuples in table
     IGNORE_NULLS               n/a             tuples that don't have NULLs
*/

5727
void maria_update_key_parts(MARIA_KEYDEF *keyinfo, double *rec_per_key_part,
5728 5729 5730
                      ulonglong *unique, ulonglong *notnull,
                      ulonglong records)
{
5731
  ulonglong count=0, unique_tuples;
5732 5733
  ulonglong tuples= records;
  uint parts;
5734
  double tmp;
5735 5736 5737 5738 5739 5740 5741 5742 5743 5744 5745 5746 5747 5748 5749 5750 5751 5752
  for (parts=0 ; parts < keyinfo->keysegs  ; parts++)
  {
    count+=unique[parts];
    unique_tuples= count + 1;
    if (notnull)
    {
      tuples= notnull[parts];
      /*
        #(unique_tuples not counting tuples with NULLs) =
          #(unique_tuples counting tuples with NULLs as different) -
          #(tuples with NULLs)
      */
      unique_tuples -= (records - notnull[parts]);
    }

    if (unique_tuples == 0)
      tmp= 1;
    else if (count == 0)
5753
      tmp= ulonglong2double(tuples); /* 1 unique tuple */
5754
    else
5755
      tmp= ulonglong2double(tuples) / ulonglong2double(unique_tuples);
5756 5757 5758 5759 5760 5761 5762

    /*
      for some weird keys (e.g. FULLTEXT) tmp can be <1 here.
      let's ensure it is not
    */
    set_if_bigger(tmp,1);

5763
    *rec_per_key_part++= tmp;
5764 5765 5766 5767
  }
}


unknown's avatar
unknown committed
5768
static ha_checksum maria_byte_checksum(const uchar *buf, uint length)
5769 5770
{
  ha_checksum crc;
unknown's avatar
unknown committed
5771
  const uchar *end=buf+length;
5772 5773 5774 5775 5776 5777 5778 5779 5780 5781 5782 5783 5784 5785 5786 5787 5788 5789 5790 5791 5792 5793 5794 5795 5796 5797 5798 5799 5800 5801 5802 5803
  for (crc=0; buf != end; buf++)
    crc=((crc << 1) + *((uchar*) buf)) +
      test(crc & (((ha_checksum) 1) << (8*sizeof(ha_checksum)-1)));
  return crc;
}

static my_bool maria_too_big_key_for_sort(MARIA_KEYDEF *key, ha_rows rows)
{
  uint key_maxlength=key->maxlength;
  if (key->flag & HA_FULLTEXT)
  {
    uint ft_max_word_len_for_sort=FT_MAX_WORD_LEN_FOR_SORT*
                                  key->seg->charset->mbmaxlen;
    key_maxlength+=ft_max_word_len_for_sort-HA_FT_MAXBYTELEN;
  }
  return (key->flag & HA_SPATIAL) ||
          (key->flag & (HA_BINARY_PACK_KEY | HA_VAR_LENGTH_KEY | HA_FULLTEXT) &&
	  ((ulonglong) rows * key_maxlength >
	   (ulonglong) maria_max_temp_length));
}

/*
  Deactivate all not unique index that can be recreated fast
  These include packed keys on which sorting will use more temporary
  space than the max allowed file length or for which the unpacked keys
  will take much more space than packed keys.
  Note that 'rows' may be zero for the case when we don't know how many
  rows we will put into the file.
 */

void maria_disable_non_unique_index(MARIA_HA *info, ha_rows rows)
{
5804
  MARIA_SHARE *share= info->s;
5805 5806 5807 5808 5809 5810 5811 5812
  MARIA_KEYDEF    *key=share->keyinfo;
  uint          i;

  DBUG_ASSERT(info->state->records == 0 &&
              (!rows || rows >= MARIA_MIN_ROWS_TO_DISABLE_INDEXES));
  for (i=0 ; i < share->base.keys ; i++,key++)
  {
    if (!(key->flag & (HA_NOSAME | HA_SPATIAL | HA_AUTO_KEY)) &&
5813
        ! maria_too_big_key_for_sort(key,rows) && share->base.auto_key != i+1)
5814 5815 5816 5817 5818 5819 5820 5821 5822 5823 5824 5825 5826 5827 5828
    {
      maria_clear_key_active(share->state.key_map, i);
      info->update|= HA_STATE_CHANGED;
    }
  }
}


/*
  Return TRUE if we can use repair by sorting
  One can set the force argument to force to use sorting
  even if the temporary file would be quite big!
*/

my_bool maria_test_if_sort_rep(MARIA_HA *info, ha_rows rows,
5829
                               ulonglong key_map, my_bool force)
5830
{
5831
  MARIA_SHARE *share= info->s;
5832 5833 5834 5835 5836 5837 5838 5839 5840 5841 5842 5843 5844 5845 5846 5847 5848 5849
  MARIA_KEYDEF *key=share->keyinfo;
  uint i;

  /*
    maria_repair_by_sort only works if we have at least one key. If we don't
    have any keys, we should use the normal repair.
  */
  if (! maria_is_any_key_active(key_map))
    return FALSE;				/* Can't use sort */
  for (i=0 ; i < share->base.keys ; i++,key++)
  {
    if (!force && maria_too_big_key_for_sort(key,rows))
      return FALSE;
  }
  return TRUE;
}


5850 5851 5852 5853 5854 5855 5856 5857
/**
   @brief Create a new handle for manipulation the new record file

   @note
   It's ok for Recovery to have two MARIA_SHARE on the same index file
   because the one we create here is not transactional
*/

unknown's avatar
unknown committed
5858
static my_bool create_new_data_handle(MARIA_SORT_PARAM *param, File new_file)
5859 5860 5861 5862 5863 5864 5865 5866 5867 5868 5869
{

  MARIA_SORT_INFO *sort_info= param->sort_info;
  MARIA_HA *info= sort_info->info;
  MARIA_HA *new_info;
  DBUG_ENTER("create_new_data_handle");

  if (!(sort_info->new_info= maria_open(info->s->open_file_name, O_RDWR,
                                        HA_OPEN_COPY | HA_OPEN_FOR_REPAIR)))
    DBUG_RETURN(1);

5870
  info->s->now_transactional= 0;
5871
  new_info= sort_info->new_info;
5872 5873 5874
  _ma_bitmap_set_pagecache_callbacks(&new_info->s->bitmap.file,
                                     new_info->s);
  _ma_set_data_pagecache_callbacks(&new_info->dfile, new_info->s);
5875 5876 5877 5878 5879 5880 5881 5882 5883 5884 5885 5886 5887 5888 5889 5890 5891 5892 5893 5894 5895 5896 5897 5898 5899 5900
  change_data_file_descriptor(new_info, new_file);
  maria_lock_database(new_info, F_EXTRA_LCK);
  if ((sort_info->param->testflag & T_UNPACK) &&
      info->s->data_file_type == COMPRESSED_RECORD)
  {
    (*new_info->s->once_end)(new_info->s);
    (*new_info->s->end)(new_info);
    restore_data_file_type(new_info->s);
    _ma_setup_functions(new_info->s);
    if ((*new_info->s->once_init)(new_info->s, new_file) ||
        (*new_info->s->init)(new_info))
      DBUG_RETURN(1);
  }
  _ma_reset_status(new_info);
  if (_ma_initialize_data_file(new_info->s, new_file))
    DBUG_RETURN(1);

  param->filepos= new_info->state->data_file_length;

  /* Use new virtual functions for key generation */
  info->s->keypos_to_recpos= new_info->s->keypos_to_recpos;
  info->s->recpos_to_keypos= new_info->s->recpos_to_keypos;
  DBUG_RETURN(0);
}


5901 5902 5903 5904 5905 5906 5907
static void
set_data_file_type(MARIA_SORT_INFO *sort_info, MARIA_SHARE *share)
{
  if ((sort_info->new_data_file_type=share->data_file_type) ==
      COMPRESSED_RECORD && sort_info->param->testflag & T_UNPACK)
  {
    MARIA_SHARE tmp;
unknown's avatar
unknown committed
5908
    sort_info->new_data_file_type= share->state.header.org_data_file_type;
5909
    /* Set delete_function for sort_delete_record() */
5910 5911
    tmp= *share;
    tmp.state.header.data_file_type= tmp.state.header.org_data_file_type;
5912 5913 5914 5915 5916
    tmp.options= ~HA_OPTION_COMPRESS_RECORD;
    _ma_setup_functions(&tmp);
    share->delete_record=tmp.delete_record;
  }
}
unknown's avatar
unknown committed
5917 5918 5919

static void restore_data_file_type(MARIA_SHARE *share)
{
5920
  MARIA_SHARE tmp_share;
unknown's avatar
unknown committed
5921 5922 5923 5924
  share->options&= ~HA_OPTION_COMPRESS_RECORD;
  mi_int2store(share->state.header.options,share->options);
  share->state.header.data_file_type=
    share->state.header.org_data_file_type;
5925
  share->data_file_type= share->state.header.data_file_type;
unknown's avatar
unknown committed
5926
  share->pack.header_length= 0;
5927 5928 5929 5930 5931 5932

  /* Use new virtual functions for key generation */
  tmp_share= *share;
  _ma_setup_functions(&tmp_share);
  share->keypos_to_recpos= tmp_share.keypos_to_recpos;
  share->recpos_to_keypos= tmp_share.recpos_to_keypos;
unknown's avatar
unknown committed
5933
}
5934 5935


5936 5937
static void change_data_file_descriptor(MARIA_HA *info, File new_file)
{
unknown's avatar
unknown committed
5938
  my_close(info->dfile.file, MYF(MY_WME));
5939
  info->dfile.file= info->s->bitmap.file.file= new_file;
5940 5941 5942 5943 5944 5945 5946 5947 5948 5949 5950 5951 5952 5953 5954 5955
  _ma_bitmap_reset_cache(info->s);
}


/**
   @brief Mark the data file to not be used

   @note
   This is used in repair when we want to ensure the handler will not
   write anything to the data file anymore
*/

static void unuse_data_file_descriptor(MARIA_HA *info)
{
  info->dfile.file= info->s->bitmap.file.file= -1;
  _ma_bitmap_reset_cache(info->s);
5956 5957 5958 5959 5960 5961 5962 5963 5964 5965 5966 5967 5968 5969 5970 5971 5972 5973 5974 5975 5976 5977 5978 5979 5980 5981 5982 5983 5984 5985 5986 5987 5988 5989 5990 5991 5992 5993 5994 5995 5996 5997 5998 5999 6000 6001 6002 6003
}


/*
  Copy all states that has to do with the data file

  NOTES
    This is done to copy the state from the data file generated from
    repair to the original handler
*/

static void copy_data_file_state(MARIA_STATE_INFO *to,
                                 MARIA_STATE_INFO *from)
{
  to->state.records=           from->state.records;
  to->state.del=               from->state.del;
  to->state.empty=             from->state.empty;
  to->state.data_file_length=  from->state.data_file_length;
  to->split=                   from->split;
  to->dellink=		       from->dellink;
  to->first_bitmap_with_space= from->first_bitmap_with_space;
}


/*
  Read 'safely' next record while scanning table.

  SYNOPSIS
    _ma_safe_scan_block_record()
    info                Maria handler
    record              Store found here

  NOTES
    - One must have called mi_scan() before this

    Differences compared to  _ma_scan_block_records() are:
    - We read all blocks, not only blocks marked by the bitmap to be safe
    - In case of errors, next read will read next record.
    - More sanity checks

  RETURN
    0   ok
    HA_ERR_END_OF_FILE  End of file
    #   error number
*/


static int _ma_safe_scan_block_record(MARIA_SORT_INFO *sort_info,
6004
                                      MARIA_HA *info, uchar *record)
6005
{
6006
  MARIA_SHARE *share= info->s;
6007 6008 6009 6010 6011 6012 6013 6014 6015 6016
  uint record_pos= info->cur_row.nextpos;
  ulonglong page= sort_info->page;
  DBUG_ENTER("_ma_safe_scan_block_record");

  for (;;)
  {
    /* Find next row in current page */
    if (likely(record_pos < info->scan.number_of_rows))
    {
      uint length, offset;
6017
      uchar *data, *end_of_data;
6018 6019 6020 6021 6022 6023 6024 6025 6026 6027 6028 6029 6030 6031 6032 6033 6034 6035 6036 6037 6038
      char llbuff[22];

      while (!(offset= uint2korr(info->scan.dir)))
      {
        info->scan.dir-= DIR_ENTRY_SIZE;
        record_pos++;
        if (info->scan.dir < info->scan.dir_end)
        {
          _ma_check_print_info(sort_info->param,
                               "Wrong directory on page: %s",
                               llstr(page, llbuff));
          goto read_next_page;
        }
      }
      /* found row */
      info->cur_row.lastpos= info->scan.row_base_page + record_pos;
      info->cur_row.nextpos= record_pos + 1;
      data= info->scan.page_buff + offset;
      length= uint2korr(info->scan.dir + 2);
      end_of_data= data + length;
      info->scan.dir-= DIR_ENTRY_SIZE;          /* Point to previous row */
6039

6040
      if (end_of_data > info->scan.dir_end ||
6041
          offset < PAGE_HEADER_SIZE || length < share->base.min_block_length)
6042 6043 6044 6045 6046 6047 6048 6049 6050 6051 6052 6053 6054 6055 6056 6057 6058 6059 6060 6061 6062 6063 6064
      {
        _ma_check_print_info(sort_info->param,
                             "Wrong directory entry %3u at page %s",
                             record_pos, llstr(page, llbuff));
        record_pos++;
        continue;
      }
      else
      {
        DBUG_PRINT("info", ("rowid: %lu", (ulong) info->cur_row.lastpos));
        DBUG_RETURN(_ma_read_block_record2(info, record, data, end_of_data));
      }
    }

read_next_page:
    /* Read until we find next head page */
    for (;;)
    {
      uint page_type;
      char llbuff[22];

      sort_info->page++;                        /* In case of errors */
      page++;
6065
      if (!(page % share->bitmap.pages_covered))
6066
        page++;                                 /* Skip bitmap */
6067
      if ((page + 1) * share->block_size > sort_info->filelength)
6068
        DBUG_RETURN(HA_ERR_END_OF_FILE);
6069
      if (!(pagecache_read(share->pagecache,
6070 6071 6072 6073
                           &info->dfile,
                           page, 0, info->scan.page_buff,
                           PAGECACHE_READ_UNKNOWN_PAGE,
                           PAGECACHE_LOCK_LEFT_UNLOCKED, 0)))
6074 6075 6076 6077 6078 6079 6080 6081
      {
        if (my_errno == HA_ERR_WRONG_CRC)
        {
          _ma_check_print_info(sort_info->param,
                               "Wrong CRC on page at %s",
                               llstr(page * share->block_size, llbuff));
          continue;
        }
6082
        DBUG_RETURN(my_errno);
6083
      }
6084 6085 6086 6087 6088 6089 6090 6091 6092
      page_type= (info->scan.page_buff[PAGE_TYPE_OFFSET] &
                  PAGE_TYPE_MASK);
      if (page_type == HEAD_PAGE)
      {
        if ((info->scan.number_of_rows=
             (uint) (uchar) info->scan.page_buff[DIR_COUNT_OFFSET]) != 0)
          break;
        _ma_check_print_info(sort_info->param,
                             "Wrong head page at %s",
6093
                             llstr(page * share->block_size, llbuff));
6094 6095 6096 6097 6098
      }
      else if (page_type >= MAX_PAGE_TYPE)
      {
        _ma_check_print_info(sort_info->param,
                             "Found wrong page type: %d at %s",
6099
                             page_type, llstr(page * share->block_size,
6100 6101 6102 6103 6104
                                              llbuff));
      }
    }

    /* New head page */
6105
    info->scan.dir= (info->scan.page_buff + share->block_size -
6106 6107 6108 6109 6110 6111 6112 6113
                     PAGE_SUFFIX_SIZE - DIR_ENTRY_SIZE);
    info->scan.dir_end= (info->scan.dir -
                         (info->scan.number_of_rows - 1) *
                         DIR_ENTRY_SIZE);
    info->scan.row_base_page= ma_recordpos(page, 0);
    record_pos= 0;
  }
}
6114 6115


6116 6117
/**
   @brief Writes a LOGREC_REPAIR_TABLE record and updates create_rename_lsn
unknown's avatar
unknown committed
6118
   and is_of_horizon
6119 6120 6121 6122 6123 6124 6125 6126 6127 6128 6129 6130 6131 6132 6133 6134 6135 6136

   REPAIR/OPTIMIZE have replaced the data/index file with a new file
   and so, in this scenario:
   @verbatim
     CHECKPOINT - REDO_INSERT - COMMIT - ... - REPAIR - ... - crash
   @endverbatim
   we do not want Recovery to apply the REDO_INSERT to the table, as it would
   then possibly wrongly extend the table. By updating create_rename_lsn at
   the end of REPAIR, we know that REDO_INSERT will be skipped.

   @param  param            description of the REPAIR operation
   @param  info             table

   @return Operation status
     @retval 0      ok
     @retval 1      error (disk problem)
*/

unknown's avatar
unknown committed
6137
static int write_log_record_for_repair(const HA_CHECK *param, MARIA_HA *info)
6138
{
unknown's avatar
unknown committed
6139
  MARIA_SHARE *share= info->s;
unknown's avatar
unknown committed
6140
  /* in case this is maria_chk or recovery... */
6141
  if (translog_status == TRANSLOG_OK && !maria_in_recovery &&
6142
      share->base.born_transactional)
6143
  {
6144
    my_bool save_now_transactional= share->now_transactional;
6145

6146 6147 6148 6149 6150 6151 6152 6153 6154 6155 6156 6157 6158 6159 6160 6161 6162
    /*
      For now this record is only informative. It could serve when applying
      logs to a backup, but that needs more thought. Assume table became
      corrupted. It is repaired, then some writes happen to it.
      Later we restore an old backup, and want to apply this REDO_REPAIR_TABLE
      record. For it to give the same result as originally, the table should
      be corrupted the same way, so applying previous REDOs should produce the
      same corruption; that's really not guaranteed (different execution paths
      in execution of REDOs vs runtime code so not same bugs hit, temporary
      hardware issues not repeatable etc). Corruption may not be repeatable.
      A reasonable solution is to execute the REDO_REPAIR_TABLE record and
      check if the checksum of the resulting table matches what it was at the
      end of the original repair (should be stored in log record); or execute
      the REDO_REPAIR_TABLE if the checksum of the table-before-repair matches
      was it was at the start of the original repair (should be stored in log
      record).
    */
6163
    LEX_STRING log_array[TRANSLOG_INTERNAL_PARTS + 1];
unknown's avatar
unknown committed
6164
    uchar log_data[FILEID_STORE_SIZE + 8 + 8];
unknown's avatar
unknown committed
6165
    LSN lsn;
6166

6167 6168 6169 6170
    /*
      testflag gives an idea of what REPAIR did (in particular T_QUICK
      or not: did it touch the data file or not?).
    */
unknown's avatar
unknown committed
6171
    int8store(log_data + FILEID_STORE_SIZE, param->testflag);
6172
    /* org_key_map is used when recreating index after a load data infile */
unknown's avatar
unknown committed
6173
    int8store(log_data + FILEID_STORE_SIZE + 8, param->org_key_map);
6174 6175 6176 6177

    log_array[TRANSLOG_INTERNAL_PARTS + 0].str=    (char*) log_data;
    log_array[TRANSLOG_INTERNAL_PARTS + 0].length= sizeof(log_data);

6178
    share->now_transactional= 1;
unknown's avatar
unknown committed
6179
    if (unlikely(translog_write_record(&lsn, LOGREC_REDO_REPAIR_TABLE,
unknown's avatar
unknown committed
6180
                                       &dummy_transaction_object, info,
unknown's avatar
unknown committed
6181
                                       sizeof(log_data),
6182
                                       sizeof(log_array)/sizeof(log_array[0]),
unknown's avatar
unknown committed
6183
                                       log_array, log_data, NULL) ||
unknown's avatar
unknown committed
6184
                 translog_flush(lsn)))
6185 6186
      return 1;
    /*
unknown's avatar
unknown committed
6187
      The table's existence was made durable earlier (MY_SYNC_DIR passed to
unknown's avatar
unknown committed
6188 6189 6190
      maria_change_to_newfile()). _ma_flush_table_files_after_repair() was
      called earlier, flushed and forced data+index+state. Old REDOs should
      not be applied to the table:
6191
    */
unknown's avatar
unknown committed
6192
    if (_ma_update_create_rename_lsn(share, lsn, TRUE))
6193
      return 1;
6194
    share->now_transactional= save_now_transactional;
6195 6196 6197
  }
  return 0;
}
6198 6199 6200 6201 6202 6203 6204 6205 6206 6207 6208 6209 6210 6211 6212 6213 6214 6215


/* Give error message why reading of key page failed */

static void report_keypage_fault(HA_CHECK *param, my_off_t position)
{
  char buff[11];

  if (my_errno == HA_ERR_CRASHED)
    _ma_check_print_error(param,
                          "Wrong base information on indexpage at filepos: %s",
                          llstr(position, buff));
  else
    _ma_check_print_error(param,
                          "Can't read indexpage from filepos: %s, "
                          "error: %d",
                          llstr(position,buff), my_errno);
}