From: simonmar <unknown>
Date: Wed, 30 Jul 2003 17:09:12 +0000 (+0000)
Subject: [project @ 2003-07-30 17:09:12 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~608
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=77f7f3864e0d81bce1ad3650598981534aa09138;hp=59940493f000b3542a93d71e925d37a3f61b2f1a;p=ghc-hetmet.git

[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
--- 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);
     }
 }