/ Liren Large Software Subsidy 7 / 07.iso / c / c006 / 1.ddi / MEMCPY.C

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| ff 01 00 00 00 5c 43 42 | 54 52 45 45 5c 4c 49 42 |.....\CB|TREE\LIB|
|00000010| 52 41 52 59 5c 4d 45 4d | 43 50 59 2e 43 00 00 00 |RARY\MEM|CPY.C...|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 19 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 0d 0a 20 2a 20 | 42 6c 6f 63 6b 20 63 6f |---.. * |Block co|
|000000b0| 70 79 20 75 70 20 74 6f | 20 6e 20 63 68 61 72 61 |py up to| n chara|
|000000c0| 63 74 65 72 73 2e 0d 0a | 20 2a 2d 2d 2d 2d 2d 2d |cters...| *------|
|000000d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0a 0d 0a |--------|--*/....|
|000000f0| 2f 2a 20 62 65 63 61 75 | 73 65 20 6f 66 20 73 6f |/* becau|se of so|
|00000100| 6d 65 20 62 75 67 73 20 | 69 6e 20 4c 43 20 74 68 |me bugs |in LC th|
|00000110| 69 73 20 72 6f 75 74 69 | 6e 65 20 69 73 20 68 61 |is routi|ne is ha|
|00000120| 72 64 20 63 6f 64 65 64 | 20 66 6f 72 20 34 2d 62 |rd coded| for 4-b|
|00000130| 79 74 65 20 6c 6f 6e 67 | 73 20 2a 2f 0d 0a 0d 0a |yte long|s */....|
|00000140| 23 64 65 66 69 6e 65 20 | 53 5a 4c 4e 47 20 34 0d |#define |SZLNG 4.|
|00000150| 0a 0d 0a 63 68 61 72 20 | 2a 6d 65 6d 63 70 79 28 |...char |*memcpy(|
|00000160| 74 6f 2c 20 66 72 6f 6d | 2c 20 6e 29 0d 0a 63 68 |to, from|, n)..ch|
|00000170| 61 72 20 2a 74 6f 3b 0d | 0a 63 68 61 72 20 2a 66 |ar *to;.|.char *f|
|00000180| 72 6f 6d 3b 0d 0a 75 6e | 73 69 67 6e 65 64 20 6e |rom;..un|signed n|
|00000190| 3b 0d 0a 7b 0d 0a 20 20 | 20 75 6e 73 69 67 6e 65 |;..{..  | unsigne|
|000001a0| 64 20 69 3b 0d 0a 0d 0a | 20 20 20 2f 2a 20 73 65 |d i;....|   /* se|
|000001b0| 65 20 69 66 20 77 65 20 | 73 68 6f 75 6c 64 20 64 |e if we |should d|
|000001c0| 6f 20 6c 6f 6e 67 2d 74 | 6f 2d 6c 6f 6e 67 20 63 |o long-t|o-long c|
|000001d0| 6f 70 79 20 2a 2f 0d 0a | 20 20 20 69 66 20 28 20 |opy */..|   if ( |
|000001e0| 6e 20 3e 3d 20 33 32 20 | 20 26 26 0d 0a 20 20 20 |n >= 32 | &&..   |
|000001f0| 20 20 20 20 20 20 28 69 | 20 3d 20 28 28 69 6e 74 |      (i| = ((int|
|00000200| 29 66 72 6f 6d 20 26 20 | 33 29 29 20 3d 3d 20 28 |)from & |3)) == (|
|00000210| 28 69 6e 74 29 74 6f 20 | 26 20 33 29 20 29 0d 0a |(int)to |& 3) )..|
|00000220| 20 20 20 7b 0d 0a 20 20 | 20 20 20 20 72 65 67 69 |   {..  |    regi|
|00000230| 73 74 65 72 20 6c 6f 6e | 67 20 2a 6c 70 31 3b 0d |ster lon|g *lp1;.|
|00000240| 0a 20 20 20 20 20 20 72 | 65 67 69 73 74 65 72 20 |.      r|egister |
|00000250| 6c 6f 6e 67 20 2a 6c 70 | 32 3b 0d 0a 20 20 20 20 |long *lp|2;..    |
|00000260| 20 20 72 65 67 69 73 74 | 65 72 20 75 6e 73 69 67 |  regist|er unsig|
|00000270| 6e 65 64 20 75 3b 0d 0a | 20 20 20 20 20 20 63 68 |ned u;..|      ch|
|00000280| 61 72 20 2a 63 70 31 3b | 0d 0a 20 20 20 20 20 20 |ar *cp1;|..      |
|00000290| 63 68 61 72 20 2a 63 70 | 32 3b 0d 0a 0d 0a 20 20 |char *cp|2;....  |
|000002a0| 20 20 20 20 2f 2a 20 63 | 6f 70 79 20 62 79 20 62 |    /* c|opy by b|
|000002b0| 79 74 65 20 75 6e 74 69 | 6c 20 6c 6f 6e 67 20 61 |yte unti|l long a|
|000002c0| 6c 69 67 6e 65 64 20 2a | 2f 0d 0a 20 20 20 20 20 |ligned *|/..     |
|000002d0| 20 69 20 3d 20 6e 20 2d | 20 28 75 20 3d 20 53 5a | i = n -| (u = SZ|
|000002e0| 4c 4e 47 20 2d 20 69 29 | 3b 0d 0a 20 20 20 20 20 |LNG - i)|;..     |
|000002f0| 20 69 66 20 28 75 20 21 | 3d 20 30 29 0d 0a 20 20 | if (u !|= 0)..  |
|00000300| 20 20 20 20 20 20 20 66 | 6f 72 20 28 63 70 31 20 |       f|or (cp1 |
|00000310| 3d 20 66 72 6f 6d 2c 20 | 63 70 32 20 3d 20 74 6f |= from, |cp2 = to|
|00000320| 3b 20 75 2d 2d 3b 20 29 | 0d 0a 20 20 20 20 20 20 |; u--; )|..      |
|00000330| 20 20 20 20 20 20 2a 63 | 70 32 2b 2b 20 3d 20 2a |      *c|p2++ = *|
|00000340| 63 70 31 2b 2b 3b 0d 0a | 0d 0a 20 20 20 20 20 20 |cp1++;..|..      |
|00000350| 2f 2a 20 63 6f 70 79 20 | 62 79 20 6c 6f 6e 67 20 |/* copy |by long |
|00000360| 2a 2f 0d 0a 20 20 20 20 | 20 20 75 20 3d 20 69 20 |*/..    |  u = i |
|00000370| 3e 3e 20 32 3b 20 20 20 | 20 20 20 20 20 2f 2a 20 |>> 2;   |     /* |
|00000380| 69 20 2f 20 53 5a 4c 4e | 47 20 2a 2f 0d 0a 20 20 |i / SZLN|G */..  |
|00000390| 20 20 20 20 66 6f 72 20 | 28 6c 70 31 20 3d 20 28 |    for |(lp1 = (|
|000003a0| 6c 6f 6e 67 20 2a 29 63 | 70 31 2c 20 6c 70 32 20 |long *)c|p1, lp2 |
|000003b0| 3d 20 28 6c 6f 6e 67 20 | 2a 29 63 70 32 3b 20 75 |= (long |*)cp2; u|
|000003c0| 2d 2d 3b 20 29 20 20 2f | 2a 20 46 41 53 54 20 63 |--; )  /|* FAST c|
|000003d0| 6f 70 79 20 2a 2f 0d 0a | 20 20 20 20 20 20 20 20 |opy */..|        |
|000003e0| 20 2a 6c 70 32 2b 2b 20 | 3d 20 2a 6c 70 31 2b 2b | *lp2++ |= *lp1++|
|000003f0| 3b 0d 0a 0d 0a 20 20 20 | 20 20 20 2f 2a 20 63 6f |;....   |   /* co|
|00000400| 70 79 20 62 79 20 62 79 | 74 65 20 2a 2f 0d 0a 20 |py by by|te */.. |
|00000410| 20 20 20 20 20 69 66 20 | 28 28 75 20 3d 20 28 69 |     if |((u = (i|
|00000420| 20 26 20 33 29 29 20 21 | 3d 20 30 29 20 20 20 20 | & 3)) !|= 0)    |
|00000430| 2f 2a 20 28 69 20 25 20 | 53 5a 4c 4e 47 29 20 2a |/* (i % |SZLNG) *|
|00000440| 2f 0d 0a 20 20 20 20 20 | 20 20 20 20 66 6f 72 20 |/..     |    for |
|00000450| 28 63 70 31 20 3d 20 28 | 63 68 61 72 20 2a 29 6c |(cp1 = (|char *)l|
|00000460| 70 31 2c 20 63 70 32 20 | 3d 20 28 63 68 61 72 20 |p1, cp2 |= (char |
|00000470| 2a 29 6c 70 32 3b 20 75 | 2d 2d 3b 20 29 0d 0a 20 |*)lp2; u|--; ).. |
|00000480| 20 20 20 20 20 20 20 20 | 20 20 20 2a 63 70 32 2b |        |   *cp2+|
|00000490| 2b 20 3d 20 2a 63 70 31 | 2b 2b 3b 0d 0a 20 20 20 |+ = *cp1|++;..   |
|000004a0| 7d 0d 0a 20 20 20 65 6c | 73 65 20 20 2f 2a 20 6e |}..   el|se  /* n|
|000004b0| 6f 72 6d 61 6c 20 6d 65 | 74 68 6f 64 20 2a 2f 0d |ormal me|thod */.|
|000004c0| 0a 20 20 20 7b 0d 0a 20 | 20 20 20 20 20 72 65 67 |.   {.. |     reg|
|000004d0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 63 70 31 3b |ister ch|ar *cp1;|
|000004e0| 0d 0a 20 20 20 20 20 20 | 72 65 67 69 73 74 65 72 |..      |register|
|000004f0| 20 63 68 61 72 20 2a 63 | 70 32 3b 0d 0a 20 20 20 | char *c|p2;..   |
|00000500| 20 20 20 72 65 67 69 73 | 74 65 72 20 75 6e 73 69 |   regis|ter unsi|
|00000510| 67 6e 65 64 20 75 3b 0d | 0a 0d 0a 20 20 20 20 20 |gned u;.|...     |
|00000520| 20 66 6f 72 20 28 63 70 | 31 20 3d 20 66 72 6f 6d | for (cp|1 = from|
|00000530| 2c 20 63 70 32 20 3d 20 | 74 6f 2c 20 75 20 3d 20 |, cp2 = |to, u = |
|00000540| 6e 3b 20 75 2d 2d 3b 20 | 20 29 0d 0a 20 20 20 20 |n; u--; | )..    |
|00000550| 20 20 20 20 20 2a 63 70 | 32 2b 2b 20 3d 20 2a 63 |     *cp|2++ = *c|
|00000560| 70 31 2b 2b 3b 0d 0a 20 | 20 20 7d 0d 0a 20 20 20 |p1++;.. |  }..   |
|00000570| 72 65 74 75 72 6e 20 28 | 74 6f 29 3b 0d 0a 7d 0d |return (|to);..}.|
|00000580| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+