Michael Van Canneyt napisał(a):
On Sat, 10 Dec 2005, darekM wrote:
Hi
I've tested some of benchmark on
http://shootout.alioth.debian.org/
I've see that reverse-complement benchmark
<http://shootout.alioth.debian.org/benchmark.php?test=revcomp&lang=all> for
FPC is very slow. I discover, that problem is with readln, that function
consume about 90% of time. Because I use it in my program, I implemented new
version of reading files. My propositions is add tTextStream to unit Classes
1. You must remove the assembler from your unit.
I know, that was only propositions, I make 3 procedures.
2. Your architecture is wrong. Don't descend from TFileStream.
You should create a separate TStream descendent which takes
another stream as an argument in it's constructor, like the
compression streams or encoding streams.
Why not descend. Why not exceed tFileStream, its natural. I want read
text file in the same way like binary file.
While complicated, when it only 2 procedure should be added. Form me
tTextStream should be used to fast and simple read text file (or
application input stream) and no others, no allocate nor reallocate
buffer. only simple read (and write).
3. There is already a buffered stream (TBufStream, unit bufstream),
I suggest you enhance that.
Sorry, i don;t know about it. Its simple to implemented it.
But why it is in separated unit, nobody know about it (or to few). F.e.
Lazarus has own implementation of buffering.
If we want to make faster programs, object like my should be in core
unit, then everybody use them, in other case every make own implementation.
4. From 3 it follows that your unit can possibly be added to the FCL,
but will certainly not make it into Classes.
Concerning the shoutout test, simply adding a
SetTextBuf(input,10000);
I'll test it.
Darek
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
