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

Add casts to silence warnings when using Solaris' simple-minded isupper() macro.

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;

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;