[project @ 2001-02-07 12:18:42 by rrt]

Dear Jules: not all of us have yet attained GHC-ENLiGHTENMENT (i.e. comment
out freeStringBuffer until it's implemented in GHC < 4.11).

diff --git a/ghc/compiler/main/HscMain.lhs b/ghc/compiler/main/HscMain.lhs
index 1179e8f..089e8b6 100644 (file)
--- a/ghc/compiler/main/HscMain.lhs
+++ b/ghc/compiler/main/HscMain.lhs
@@ -296,7 +296,7 @@ myParseModule dflags src_filename
                                   loc = mkSrcLoc (_PK_ src_filename) 1 } of {
 
        PFailed err -> do { hPutStrLn stderr (showSDoc err);
-                           freeStringBuffer buf;
+--     Not yet implemented in <4.11                freeStringBuffer buf;
                             return Nothing };
 
        POk _ rdr_module@(HsModule mod_name _ _ _ _ _ _) -> do {
@@ -470,7 +470,7 @@ hscParseExpr dflags str
                                 loc = mkSrcLoc SLIT("<no file>") 0 } of {
 
        PFailed err -> do { hPutStrLn stderr (showSDoc err);
-                           freeStringBuffer buf;
+--     Not yet implemented in <4.11                freeStringBuffer buf;
                             return Nothing };
 
        POk _ rdr_expr -> do {