cvs commit: hugs98/src machine.c

[Sigbjorn Finne]

sof         2002/05/11 09:09:59 PDT

  Modified files:
    src                  machine.c 
  Log:
  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
  
  Revision  Changes    Path
  1.8       +19 -5     hugs98/src/machine.c