[project @ 2005-07-12 17:07:56 by panne]

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

diff --git a/ghc/utils/hp2ps/HpFile.c b/ghc/utils/hp2ps/HpFile.c
index 2fe5e06..9db9497 100644 (file)
--- a/ghc/utils/hp2ps/HpFile.c
+++ b/ghc/utils/hp2ps/HpFile.c
@@ -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;