paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 01:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* streams freed to fix 4478

Browse Source 
git-svn-id: trunk@1614 -
This commit is contained in:
marco 2005-10-31 15:16:50 +00:00
parent e88ff7ae84
commit f3335dbdf6
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
fcl/tests/testz.pp
View File

@ -18,6 +18,9 @@ begin
writeln ('End of write'); writeln ('End of write');
C.Free; C.Free;
writeln ('freed CompressionStream'); writeln ('freed CompressionStream');
F.Free;
writeln ('freed FileStream');
Writeln ('Start Reading'); Writeln ('Start Reading');
F:=TFileStream.Create('ztest.dat',FMOpenRead); F:=TFileStream.Create('ztest.dat',FMOpenRead);
Writeln ('Created filestream'); Writeln ('Created filestream');
@ -31,4 +34,6 @@ begin
writeln ('End of Read'); writeln ('End of Read');
D.Free; D.Free;
writeln ('freed CompressionStream'); writeln ('freed CompressionStream');
F.Free;
writeln ('freed FileStream');
end. end.