From: keie <none@none>
Date: Thu, 4 Oct 1984 11:08:42 +0000 (+0000)
Subject: 1 - Added RCS identification.
X-Git-Tag: release-5-5~6076
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5376af0d044acee6f966335f983e90607f9dd749;p=ack.git

1 - Added RCS identification.
2 - Removed the default for compiler and error file pathname.
    These are now always supplied by the callee.
---

diff --git a/util/ack/pc/em_pc.c b/util/ack/pc/em_pc.c
index 8187abed2..921e74726 100644
--- a/util/ack/pc/em_pc.c
+++ b/util/ack/pc/em_pc.c
@@ -15,6 +15,8 @@
  *
  */
 
+/* $Header$ */
+
 /*
  * put all the pieces of the pascal part of the EM project together
  *      original author: Johan Stevenson, Vrije Universiteit, Amsterdam
@@ -33,8 +35,8 @@
 
 #define void                    int
 
-char	*pc_path	=	PEM_PATH ;
-char    *err_path       =	ERR_PATH;
+char	*pc_path;
+char    *err_path;
 
 int     toterr;
 int     parent;
@@ -210,6 +212,7 @@ pem(p,q) char *p,*q; {
 	int i;
 	FILE *erfil;
 
+	if ( !pc_path ) fatal("Missing compiler pathname specification\n") ;
 	v = initvector(pc_path);
 	d = tempfile('d');
 	if ((erfil = fopen(d,"w")) == NULL)
@@ -614,6 +617,7 @@ int nexterror() {
 fillindex() {
 	register *ip,n,c;
 
+	if ( !err_path ) fatal("Missing error file name\n") ;
 	if ((mesfil = fopen(err_path,"r")) == NULL)
 		syserr(err_path);
 	ip = index;