forkProcess(): watch out for ThreadRelocated

[ghc-hetmet.git] / ghc / utils / hp2ps / HpFile.c

diff --git a/ghc/utils/hp2ps/HpFile.c b/ghc/utils/hp2ps/HpFile.c
index 98b6204..9db9497 100644 (file)
--- a/ghc/utils/hp2ps/HpFile.c
+++ b/ghc/utils/hp2ps/HpFile.c
@@ -1,15 +1,15 @@
+#include "Main.h"
 #include <ctype.h>
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
-#include "Main.h"
 #include "Defines.h"
 #include "Error.h"
 #include "HpFile.h"
 #include "Utilities.h"
 
 #ifndef atof
-extern double atof PROTO((const char *));
+double atof PROTO((const char *));
 #endif
 
 /* own stuff already included */
@@ -304,7 +304,7 @@ GetHpTok(infp)
     } else if (IsIdChar(ch)) {
        ASSERT(! (isdigit(ch)));        /* ch can't be a digit here */
        GetIdent(infp);
-       if (!isupper(theident[0])) {
+       if (!isupper((int)theident[0])) {
            thetok = IDENTIFIER_TOK;
        } else if (strcmp(theident, "BEGIN_SAMPLE") == 0) {
             thetok = BEGIN_SAMPLE_TOK;