From: ceriel <none@none>
Date: Tue, 25 Oct 1994 15:41:59 +0000 (+0000)
Subject: mark file parameters as used in reads/writes
X-Git-Tag: release-5-5~150
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d992ed493518966eb7a70116374f724441d89f4a;p=ack.git

mark file parameters as used in reads/writes
---

diff --git a/lang/pc/comp/readwrite.c b/lang/pc/comp/readwrite.c
index 8b329951d..e38c16163 100644
--- a/lang/pc/comp/readwrite.c
+++ b/lang/pc/comp/readwrite.c
@@ -36,6 +36,7 @@ ChkRead(arg)
 			error("\"%s\": variable-access expected", name);
 			return;
 		}
+		MarkUsed(file);
 	}
 	else if( !(file = ChkStdInOut(name, 0)) )
 		return;
@@ -112,6 +113,7 @@ ChkReadln(arg)
 		else	{
 			file = arg->nd_left;
 			arg = arg->nd_right;
+			MarkUsed(file);
 		}
 	}
 	else if( !(file = ChkStdInOut(name, 0)) )
@@ -159,6 +161,7 @@ ChkWrite(arg)
 			return;
 		}
 		file = expp;
+		MarkUsed(file);
 		arg = arg->nd_right;
 		if( !arg )	{
 			error("\"%s\": expression expected", name);
@@ -211,6 +214,7 @@ ChkWriteln(arg)
 			return;
 		}
 		file = expp;
+		MarkUsed(file);
 		arg = arg->nd_right;
 	}
 	else if( !(file = ChkStdInOut(name, 1)) )