d0p1/ack
1
0
Fork 0
Code Issues Pull requests 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 a1a816ddc2
commit d992ed4935
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)) )