[project @ 2005-02-23 11:03:42 by simonmar]

[ghc-hetmet.git] / ghc / utils / hp2ps / Main.h

diff --git a/ghc/utils/hp2ps/Main.h b/ghc/utils/hp2ps/Main.h
index b0d4bf4..30e7a7e 100644 (file)
--- 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;