From 77f7f3864e0d81bce1ad3650598981534aa09138 Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 30 Jul 2003 17:09:12 +0000 Subject: [PATCH 1/1] [project @ 2003-07-30 17:09:12 by simonmar] Fix problem with MARK. Patch submitted by Nicholas Nethercote . --- ghc/utils/hp2ps/Marks.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/utils/hp2ps/Marks.c b/ghc/utils/hp2ps/Marks.c index f86cff9..27702c7 100644 --- 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); } } -- 1.7.10.4