X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Futils%2Fhp2ps%2FMain.h;h=30e7a7e9beb77afbbada3334ffec9d238bafab0a;hb=940ff91a462d25e402cc2751d5712942b2fd7fe9;hp=b0d4bf47504458ef5af0c82ea09c28300987e808;hpb=769ce8e72ae626356ce57162b7ff448c0ef7e700;p=ghc-hetmet.git

diff --git a/ghc/utils/hp2ps/Main.h b/ghc/utils/hp2ps/Main.h
index b0d4bf4..30e7a7e 100644
--- a/ghc/utils/hp2ps/Main.h
+++ b/ghc/utils/hp2ps/Main.h
@@ -1,6 +1,9 @@
 #ifndef MAIN_H
 #define MAIN_H
 
+#include "../includes/ghcconfig.h"
+#include <stdio.h>
+
 #ifdef __STDC__
 #define PROTO(x)	x
 #else
@@ -27,9 +30,17 @@ void _ghcAssert PROTO((char *, unsigned int));
 */
 typedef double	floatish;
 typedef double  doublish; /* higher precision, if anything; little used */
-typedef long	intish;
 typedef int	boolish;
 
+/* Use "long long" if we have it: the numbers in profiles can easily
+ * overflow 32 bits after a few seconds execution.
+ */
+#ifdef HAVE_LONG_LONG
+typedef long long int intish;
+#else
+typedef long int intish;
+#endif
+
 extern intish nsamples;
 extern intish nmarks;
 extern intish nidents;