~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~

Linux Cross Reference
cvs/emstar/libnl/libf2c/ef1asc_.c 

  1 /* EFL support routine to copy string b to string a */
  2 
  3 #include "f2c.h"
  4 
  5 
  6 #define M       ( (long) (sizeof(long) - 1) )
  7 #define EVEN(x) ( ( (x)+ M) & (~M) )
  8 
  9 #ifdef KR_headers
 10 extern VOID s_copy();
 11 ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
 12 #else
 13 extern void s_copy(char*,char*,ftnlen,ftnlen);
 14 int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
 15 #endif
 16 {
 17 s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
 18 return 0;       /* ignored return value */
 19 }
 20
~ [ source navigation ] ~ [ diff markup ] ~ [ identifier search ] ~ [ freetext search ] ~ [ file search ] ~
This page was automatically generated by the LXR engine.
Visit the LXR main site for more information.