godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mark file parameters as used in reads/writes

Browse Source
This commit is contained in:
ceriel 1994-10-25 15:41:59 +00:00
parent 78e493ac0b
commit 90e4d5c15d
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lang/pc/comp/readwrite.c
View File

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