[fpc-pascal] Faster fannkuch?

[Vincent Snijders]

S. Fisher schreef:
> This is faster than the one at the shootout
> (shootout.alioth.debian.org/gp4/benchmark.php?test=fannkuch&lang=fpascal&id=3)
> on my computer.  See if it's faster on yours.

Quite possible. I made some tweaks so it would work better with the fpc 
2.0.4 register allocater, but I knew at that time, that it would have 
negative effect for the 2.1.x register allocater.

Vincent