Sanity check values that we wrap in single quotes

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

diff --git a/utils/hp2ps/HpFile.c b/utils/hp2ps/HpFile.c
index 1f2bf2d..787a268 100644 (file)
--- a/utils/hp2ps/HpFile.c
+++ b/utils/hp2ps/HpFile.c
@@ -416,7 +416,10 @@ GetString(infp)
 
     i = 0;
     while (ch != '\"') {
-        if (i == stringbuffersize - 1) {
+        if (ch == EOF) {
+               Error("%s, line %d: EOF when expecting \"", hpfile, linenum, ch);
+        }
+        else if (i == stringbuffersize - 1) {
             stringbuffersize = 2 * stringbuffersize;
             stringbuffer = xrealloc(stringbuffer, stringbuffersize);
         }