[project @ 2003-07-30 17:09:12 by simonmar]

Fix problem with MARK.

Patch submitted by Nicholas Nethercote <njn25@cam.ac.uk>.

diff --git a/ghc/utils/hp2ps/Marks.c b/ghc/utils/hp2ps/Marks.c
index f86cff9..27702c7 100644 (file)
--- a/ghc/utils/hp2ps/Marks.c
+++ b/ghc/utils/hp2ps/Marks.c
@@ -16,7 +16,7 @@ Marks()
     floatish m;
 
     for (i = 0; i < nmarks; i++) {
-       m = (markmap[i] / xrange) * graphwidth;
+       m = ((markmap[i] - samplemap[0]) / xrange) * graphwidth;
        Caret(xpage(m), ypage(0.0), 4.0);
     }
 }