Sfoglia il codice sorgente

mark file parameters as used in reads/writes

ceriel 30 anni fa
parent
commit
90e4d5c15d
1 ha cambiato i file con 4 aggiunte e 0 eliminazioni
  1. 4 0
      lang/pc/comp/readwrite.c

+ 4 - 0
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)) )