From 5e14a3984483f438bd80d53139e2fa484435f80a Mon Sep 17 00:00:00 2001 From: sater Date: Mon, 21 May 1984 16:04:57 +0000 Subject: [PATCH] Initial revision --- lang/pc/pem/move.c | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 lang/pc/pem/move.c diff --git a/lang/pc/pem/move.c b/lang/pc/pem/move.c new file mode 100644 index 000000000..b2c32ce1c --- /dev/null +++ b/lang/pc/pem/move.c @@ -0,0 +1,20 @@ +/* A program to move the file pem??.m to pem.m */ +/* Called when "apc pem.p" fails. It is assumed that the binary + file is incorrect in that case and has to be created from the compact + code file. + This program selects the correct compact code file for each combination + of word and pointer size. + It will return an error code if the move failed +*/ +main(argc) { + char copy[100] ; + + if ( argc!=1 ) { + printf("No arguments allowed\n") ; + exit(1) ; + } + + sprintf(copy,"cp pem%d%d.m pem.m", EM_WSIZE, EM_PSIZE) ; + printf("%s\n",copy) ; + return system(copy) ; +} -- 2.34.1