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); error("\"%s\": variable-access expected", name);
return; return;
} }
MarkUsed(file);
} }
else if( !(file = ChkStdInOut(name, 0)) ) else if( !(file = ChkStdInOut(name, 0)) )
return; return;
@ -112,6 +113,7 @@ ChkReadln(arg)
else { else {
file = arg->nd_left; file = arg->nd_left;
arg = arg->nd_right; arg = arg->nd_right;
MarkUsed(file);
} }
} }
else if( !(file = ChkStdInOut(name, 0)) ) else if( !(file = ChkStdInOut(name, 0)) )
@ -159,6 +161,7 @@ ChkWrite(arg)
return; return;
} }
file = expp; file = expp;
MarkUsed(file);
arg = arg->nd_right; arg = arg->nd_right;
if( !arg ) { if( !arg ) {
error("\"%s\": expression expected", name); error("\"%s\": expression expected", name);
@ -211,6 +214,7 @@ ChkWriteln(arg)
return; return;
} }
file = expp; file = expp;
MarkUsed(file);
arg = arg->nd_right; arg = arg->nd_right;
} }
else if( !(file = ChkStdInOut(name, 1)) ) else if( !(file = ChkStdInOut(name, 1)) )