* Reset F to NIL after freeing in tempclose

git-svn-id: trunk@17683 -

compiler/ppu.pas

@@ -1181,6 +1181,7 @@ procedure tppufile.tempclose;
      begin
        closepos:=f.Position;
        f.Free;
+       f:=nil;
        closed:=true;
        tempclosed:=true;
      end;