From 6f4cf3e86a304e690aefb6ee2263c44f450f383b Mon Sep 17 00:00:00 2001 From: panne Date: Tue, 12 Jul 2005 17:07:56 +0000 Subject: [PATCH] [project @ 2005-07-12 17:07:56 by panne] Add casts to silence warnings when using Solaris' simple-minded isupper() macro. --- ghc/utils/hp2ps/AuxFile.c | 2 +- ghc/utils/hp2ps/HpFile.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ghc/utils/hp2ps/AuxFile.c b/ghc/utils/hp2ps/AuxFile.c index 06cfd6c..9998d3f 100644 --- 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 --- 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; -- 1.7.10.4