[fpc-pascal] FPC now 3rd in shootout

[Peter Vreman]

>> >> I submitted this regex-dna program on 2007-10-31.  It's still in limbo:
>> >> neither accepted nor rejected.
>> >
>> > Thanks, I've added it to the fpc repository so the source will not be
>> lost
>>
>> For me the code didn't finish in a reasonable time. It spend too much time
>> in moving ansistrings
>> around. I have update the program to use a pchar instead of an ansistring
>> so it finishes within
>> reasonable time. The updated source can be found in:
>>
>>
> http://svn.freepascal.org/svn/fpc/trunk/tests/bench/shootout/src/regexdna.pp
>>
>> But the code is a lot slower than gcc so there is still a lot of
>> performance tuning to do:
>>
>>                100000  300000  500000
>> fpascal          1.169   4.581  11.754
>> gcc-2            1.033   3.078   5.111
>
> Much, much faster than the original.  There was an off-by-one error
> that made the last line of the output incorrect.

Thanks, fix applied.

Peter