Repository : ssh://darcs.haskell.org//srv/darcs/ghc On branch : master
http://hackage.haskell.org/trac/ghc/changeset/ca0fcb34d1e246b761f146da77a5bd12b7d2b4b1 >--------------------------------------------------------------- commit ca0fcb34d1e246b761f146da77a5bd12b7d2b4b1 Author: Ian Lynagh <[email protected]> Date: Fri Mar 16 01:20:35 2012 +0000 Fix a tiny bug in cwrapper.c Caught by -Werror >--------------------------------------------------------------- driver/utils/cwrapper.c | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/driver/utils/cwrapper.c b/driver/utils/cwrapper.c index 9112902..5105924 100644 --- a/driver/utils/cwrapper.c +++ b/driver/utils/cwrapper.c @@ -31,7 +31,7 @@ char *mkString(const char *fmt, ...) { va_end(argp); if (i < 0) { - die("snprintf 0 failed: errno %d: %s\n", errno, strerror(errno)); + die("vsnprintf 0 failed: errno %d: %s\n", errno, strerror(errno)); } p = malloc(i + 1); @@ -42,8 +42,8 @@ char *mkString(const char *fmt, ...) { va_start(argp, fmt); j = vsnprintf(p, i + 1, fmt, argp); va_end(argp); - if (i < 0) { - die("snprintf with %d failed: errno %d: %s\n", + if (j < 0) { + die("vsnprintf with %d failed: errno %d: %s\n", i + 1, errno, strerror(errno)); } _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
