bfill.c
上传用户:romrleung
上传日期:2022-05-23
资源大小:18897k
文件大小:2k
源码类别:

MySQL数据库

开发平台:

Visual C++

  1. /* Copyright (C) 2002 MySQL AB
  2.    
  3.    This library is free software; you can redistribute it and/or
  4.    modify it under the terms of the GNU Library General Public
  5.    License as published by the Free Software Foundation; either
  6.    version 2 of the License, or (at your option) any later version.
  7.    
  8.    This library is distributed in the hope that it will be useful,
  9.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  10.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  11.    Library General Public License for more details.
  12.    
  13.    You should have received a copy of the GNU Library General Public
  14.    License along with this library; if not, write to the Free
  15.    Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  16.    MA 02111-1307, USA */
  17. /*  File   : bfill.c
  18.     Author : Richard A. O'Keefe.
  19.      Michael Widenius; ifdef MC68000
  20.     Updated: 23 April 1984
  21.     Defines: bfill()
  22.     bfill(dst, len, fill) moves "len" fill characters to "dst".
  23.     Thus to set a buffer to 80 spaces, do bfill(buff, 80, ' ').
  24.     Note: the "b" routines are there to exploit certain VAX order codes,
  25.     but the MOVC5 instruction will only move 65535 characters.  The asm
  26.     code is presented for your interest and amusement.
  27. */
  28. #include <my_global.h>
  29. #include "m_string.h"
  30. #if !defined(bfill) && !defined(HAVE_BFILL)
  31. #if VaxAsm
  32. void bfill(dst, len, fill)
  33. char *dst;
  34. uint len;
  35. int fill; /* actually char */
  36. {
  37.   asm("movc5 $0,*4(ap),12(ap),8(ap),*4(ap)");
  38. }
  39. #elif defined(MC68000) && defined(DS90)
  40. void bfill(dst, len,fill) /* Optimized with long-fill */
  41. char *dst;
  42. uint len;
  43. pchar fill;
  44. {
  45. asm(" movl 8.(a7),d1 ");
  46. asm(" jeq .L9 ");
  47. asm(" movl 4.(a7),a0 ");
  48. asm(" moveq #0,d0 ");
  49. asm(" movb 15.(a7),d0 ");
  50. asm(" movl d2,a1 ");
  51. asm(" movw d0,d2 ");
  52. asm(" aslw #8,d0 ");
  53. asm(" orw d2,d0 ");
  54. asm(" movl d0,d2 ");
  55. asm(" swap d0 ");
  56. asm(" orl d2,d0 ");
  57. asm(" movl a0,d2 ");
  58. asm(" btst #0,d2 ");
  59. asm(" jeq .L1 ");
  60. asm(" movb d0,(a0)+ ");
  61. asm(" subql #1,d1 ");
  62. asm(".L1: movl d1,d2 ");
  63. asm(" lsrl #2,d2 ");
  64. asm(" jcc .L2 ");
  65. asm(" movw d0,(a0)+ ");
  66. asm(" jra .L2 ");
  67. asm(".L3: movl d0,(a0)+ ");
  68. asm(".L2: dbra d2,.L3 ");
  69. asm(" addqw #1,d2 ");
  70. asm(" subql #1,d2 ");
  71. asm(" jcc .L3 ");
  72. asm(" andl #1,d1 ");
  73. asm(" jeq .L8 ");
  74. asm(" movb d0,(a0) ");
  75. asm(".L8: movl a1,d2 ");
  76. asm(".L9: rts ");
  77. }
  78. #else
  79. void bfill(dst, len, fill)
  80. register byte *dst;
  81. register uint len;
  82. register pchar fill;
  83. {
  84.   while (len-- != 0) *dst++ = fill;
  85. }
  86. #endif
  87. #endif