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

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

diff --git a/ghc/utils/hp2ps/AuxFile.c b/ghc/utils/hp2ps/AuxFile.c
index 06cfd6c..9998d3f 100644 (file)
--- a/ghc/utils/hp2ps/AuxFile.c
+++ b/ghc/utils/hp2ps/AuxFile.c
@@ -127,7 +127,7 @@ FILE* auxfp;
         return;
     } else if (IsIdChar(ch)) {          /* ch can't be a digit here */
         GetIdent(auxfp);
-       if (!isupper(theident[0])) {
+       if (!isupper((int)theident[0])) {
             thetok = IDENTIFIER_TOK;
         } else if (strcmp(theident, "X_RANGE") == 0) {
             thetok = X_RANGE_TOK;