asEVAL(): bad peephole bug. This has been with us for a _long_ time, I'm really surprised it hasn't come up before.
asEVAL(): bad peephole bug. This has been with us for a _long_ time, I'm
really surprised it hasn't come up before.

Resolved by disabling the peephole optimisation that transformed
"LOAD x;EVAL" into "LEVAL x" (see asEVAL() comment for more.) If
this proves to be too much of a killer performance-wise, a more
fine-grained solution is possible.

Fixes the bug reported by Edmund GRIMLEY EVANS:
  http://www.haskell.org/pipermail/hugs-bugs/2002-May/000708.html

FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs,FranklinChen/Hugs