From cf0cd51810846079937cfc4c28a7accc3ed24d6d Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Mon, 18 Feb 1991 11:11:04 +0000
Subject: [PATCH] Delinted somewhat (did not work on 2/2 machines)

---
 lang/pc/comp/code.c      | 4 ++--
 lang/pc/comp/def.c       | 4 +++-
 lang/pc/comp/lookup.c    | 1 +
 lang/pc/comp/main.c      | 2 +-
 lang/pc/comp/stab.c      | 2 ++
 lang/pc/comp/statement.g | 5 ++++-
 6 files changed, 13 insertions(+), 5 deletions(-)

diff --git a/lang/pc/comp/code.c b/lang/pc/comp/code.c
index 2e1c41d99..fcb61cc54 100644
--- a/lang/pc/comp/code.c
+++ b/lang/pc/comp/code.c
@@ -32,7 +32,7 @@ routine_label(df)
 {
 	df->prc_label = ++data_label;
 	C_df_dlb(df->prc_label);
-	C_rom_scon(df->df_idf->id_text, strlen(df->df_idf->id_text) + 1);
+	C_rom_scon(df->df_idf->id_text, (arith)(strlen(df->df_idf->id_text) + 1));
 }
 
 RomString(nd)
@@ -250,7 +250,7 @@ CodeEndBlock(df, StackAdjustment)
 		}
 		if( tp = ResultType(df->df_type) )	{
 			if( !options['R'] ) {
-				C_lin(LineNumber);
+				C_lin((arith)LineNumber);
 				C_lol(df->prc_bool);
 				C_cal("_nfa");
 				C_asp(word_size);
diff --git a/lang/pc/comp/def.c b/lang/pc/comp/def.c
index 532edf2dc..9d2ad397b 100644
--- a/lang/pc/comp/def.c
+++ b/lang/pc/comp/def.c
@@ -20,6 +20,7 @@ struct def *
 MkDef(id, scope, kind)
 	register struct idf *id;
 	register struct scope *scope;
+	long kind;
 {
 	/*	Create a new definition structure in scope "scope", with
 	 *	id "id" and kind "kind".
@@ -44,6 +45,7 @@ struct def *
 define(id, scope, kind)
 	register struct idf *id;
 	register struct scope *scope;
+	long kind;
 {
 	/*	Declare an identifier in a scope, but first check if it
 		already has been defined.
@@ -52,7 +54,7 @@ define(id, scope, kind)
 	*/
 	register struct def *df;
 
-	if( df = lookup(id, scope, 0) )	{
+	if( df = lookup(id, scope, 0L) )	{
 		if (df->df_kind == D_INUSE) {
 			if( kind != D_INUSE ) {
 			    error("\"%s\" already used in this block",
diff --git a/lang/pc/comp/lookup.c b/lang/pc/comp/lookup.c
index d0694bda9..882971a0b 100644
--- a/lang/pc/comp/lookup.c
+++ b/lang/pc/comp/lookup.c
@@ -31,6 +31,7 @@ struct def *
 lookup(id, scope, inuse)
 	register struct idf *id;
 	struct scope *scope;
+	long	inuse;
 {
 	/*	Look up a definition of an identifier in scope "scope".
 		Make the "def" list self-organizing.
diff --git a/lang/pc/comp/main.c b/lang/pc/comp/main.c
index 53f18fdeb..d79efc94f 100644
--- a/lang/pc/comp/main.c
+++ b/lang/pc/comp/main.c
@@ -116,7 +116,7 @@ Compile(src, dst)
 	C_df_dlb(++data_label);
 	C_rom_scon(FileName,(arith) strlen(FileName) + 1);
 	LLparse();
-	C_ms_src((arith) (LineNumber - 1), FileName);
+	C_ms_src((int)LineNumber - 1, FileName);
 	if( fp_used ) C_ms_flt();
 	C_close();
 #ifdef DEBUG
diff --git a/lang/pc/comp/stab.c b/lang/pc/comp/stab.c
index af599d200..2b88d6d17 100644
--- a/lang/pc/comp/stab.c
+++ b/lang/pc/comp/stab.c
@@ -32,6 +32,8 @@
 
 extern int	proclevel;
 
+extern char	*sprint();
+
 static struct db_str {
 	unsigned	sz;
 	char		*base;
diff --git a/lang/pc/comp/statement.g b/lang/pc/comp/statement.g
index bca23d7e0..b6c6a3e86 100644
--- a/lang/pc/comp/statement.g
+++ b/lang/pc/comp/statement.g
@@ -15,6 +15,7 @@
 #include	"node.h"
 #include	"scope.h"
 #include	"type.h"
+#include	"dbsymtab.h"
 
 int slevel = 0;		/* nesting level of statements */
 }
@@ -47,14 +48,16 @@ Statement
 	]?
 					{ if( !options['L'] )
 						C_lin((arith) dot.tk_lineno);
+#ifdef DBSYMTAB
 					  if (options['g']) {
 					    static int ms_lineno;
 
 					    if (ms_lineno != dot.tk_lineno) {
-						C_ms_std((char *) 0, N_SLINE, dot.tk_lineno);
+						C_ms_std((char *) 0, N_SLINE, (int) dot.tk_lineno);
 						ms_lineno = dot.tk_lineno;
 					    }
 					  }
+#endif /* DBSYMTAB */
 					}
 	[
 		SimpleStatement
-- 
2.34.1