FreeCalypso > hg > efr-experiments

comparison src/copy.c @ 0:56410792419a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
src: original EFR source from ETSI
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 03 Apr 2024 05:31:37 +0000
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:56410792419a
1 /*************************************************************************
2 *
3 * FUNCTION: Copy
4 *
5 * PURPOSE: Copy vector x[] to y[]
6 *
7 *
8 *************************************************************************/
9
10 #include "typedef.h"
11 #include "basic_op.h"
12 #include "count.h"
13
14 void Copy (
15 Word16 x[], /* (i) : input vector */
16 Word16 y[], /* (o) : output vector */
17 Word16 L /* (i) : vector length */
18 )
19 {
20 Word16 i;
21
22 for (i = 0; i < L; i++)
23 {
24 y[i] = x[i]; move16 ();
25 }
26
27 return;
28 }