diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/ef1asc_.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.17/libf2c/ef1asc_.c | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/ef1asc_.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/ef1asc_.c deleted file mode 100644 index 70be0bc2e0b..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/ef1asc_.c +++ /dev/null @@ -1,25 +0,0 @@ -/* EFL support routine to copy string b to string a */ - -#include "f2c.h" -#ifdef __cplusplus -extern "C" { -#endif - - -#define M ( (long) (sizeof(long) - 1) ) -#define EVEN(x) ( ( (x)+ M) & (~M) ) - -#ifdef KR_headers -extern VOID s_copy(); -ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb; -#else -extern void s_copy(char*,char*,ftnlen,ftnlen); -int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb) -#endif -{ -s_copy( (char *)a, (char *)b, EVEN(*la), *lb ); -return 0; /* ignored return value */ -} -#ifdef __cplusplus -} -#endif |