MINICERN/packlib/kernlib/kerngen/tcgens/ucopy2c.c

   1 /*
   2  * $Id$
   3  *
   4  * $Log$
   5  * Revision 1.1  1996/12/06 08:49:18  gunter
   6  * Correct problem with ucopy2 on OSF (f77 - version 4) by replcing ucopy2
   7  * with a c routine ucopy2c.c calling memmove. This is also used on some
   8  * other unix - where it was faster.
   9  *
  10  * Kernlib
  11  *
  12  *  C version of ucopy2 using memmove; memmove is POSIX
  13  */
  14 #include "kerngen/pilot.h"
  15
  16 #include <string.h>
  17
  18 #if defined(CERNLIB_QXNO_SC)
  19 #define ucopy2_ ucopy
  20 #endif
  21
  22 void ucopy2_(int *from, int *to, int *nwords)
  23 {
  24         if ( *nwords > 1 ) {
  25            memmove( (void *)to, (void *)from,(size_t) 4*(*nwords));
  26         } else {
  27            if ( *nwords == 1 ) {
  28               *to = *from;
  29            }
  30         /* else  nothing to do */
  31         }
  32 }