diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2012-08-01 10:09:51 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2012-08-02 11:57:30 +0100 |
| commit | 46adcee283c66fcd5e1ff605177562e26e51c5c1 (patch) | |
| tree | d8b60d28d576582f3073cf670b1ec5e9551943c9 /compiler/nativeGen/RegAlloc | |
| parent | 4aaa3c1c974f309ac8de97e9078ba940481f9956 (diff) | |
| download | haskell-46adcee283c66fcd5e1ff605177562e26e51c5c1.tar.gz | |
comment wibble
Diffstat (limited to 'compiler/nativeGen/RegAlloc')
| -rw-r--r-- | compiler/nativeGen/RegAlloc/Linear/Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/nativeGen/RegAlloc/Linear/Main.hs b/compiler/nativeGen/RegAlloc/Linear/Main.hs index 1b6810ed07..0d3f7485c3 100644 --- a/compiler/nativeGen/RegAlloc/Linear/Main.hs +++ b/compiler/nativeGen/RegAlloc/Linear/Main.hs @@ -475,7 +475,7 @@ genRaInsn platform block_live new_instrs block_id instr r_dying w_dying = (r_spills, r_allocd) <- allocateRegsAndSpill platform True{-reading-} virt_read [] [] virt_read - -- (a) save any temporaries which will be clobbered by this instruction + -- (c) save any temporaries which will be clobbered by this instruction clobber_saves <- saveClobberedTemps platform real_written r_dying -- (d) Update block map for new destinations |