2.9BSD - /usr/src/lib/libF77/ef1asc_.c

   1: /*
   2:  *	"@(#)ef1asc_.c	1.1"
   3:  */
   4: 
   5: /* EFL support routine to copy string b to string a */
   6: 
   7: #define M   ( (long) (sizeof(long) - 1) )
   8: #define EVEN(x) ( ( (x)+ M) & (~M) )
   9: 
  10: ef1asc_(a, la, b, lb)
  11: int *a, *b;
  12: long int *la, *lb;
  13: {
  14: s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  15: }

Defined functions

Defined macros