From d992ed493518966eb7a70116374f724441d89f4a Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Tue, 25 Oct 1994 15:41:59 +0000
Subject: [PATCH] mark file parameters as used in reads/writes

---
 lang/pc/comp/readwrite.c | 4 ++++
 1 file changed, 4 insertions(+)

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)) )