X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=utils%2Fhp2ps%2FHpFile.c;h=787a2682294004abbb86236f7ad24c0ce3b1794c;hb=8e4e15d8e837b90190b6b8e7645822772cab2053;hp=1f2bf2d8d0d8ebb2e5df8c4449d65c63618eb201;hpb=52584954ef6bd07031adfce9dd4c3a5d564c878f;p=ghc-hetmet.git

diff --git a/utils/hp2ps/HpFile.c b/utils/hp2ps/HpFile.c
index 1f2bf2d..787a268 100644
--- 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);
         }