From 78176ee81856e2ed8a5552a7275d443c57986f86 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 20:37:09 +0000
Subject: [PATCH] [project @ 1997-06-05 20:37:09 by sof] no group names in user
scc labels;
---
ghc/compiler/reader/Lex.lhs | 21 +++++++++++++--------
1 file changed, 13 insertions(+), 8 deletions(-)
diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index f886a52eeb1b..111a29c4f014 100644
--- a/ghc/compiler/reader/Lex.lhs
+++ b/ghc/compiler/reader/Lex.lhs
@@ -21,7 +21,12 @@ module Lex (
IMPORT_1_3(Char(isDigit, isAlpha, isAlphanum, isUpper,isLower, isSpace, ord))
IMPORT_DELOOPER(Ubiq)
+
+#if defined(__GLASGOW_HASKELL__) && __GLASGOW_HASKELL__ <= 201
IMPORT_DELOOPER(IdLoop) -- get the CostCentre type&constructors from here
+#else
+import {-# SOURCE #-} CostCentre
+#endif
import CmdLineOpts ( opt_IgnoreIfacePragmas )
import Demand ( Demand(..) {- instance Read -} )
@@ -398,14 +403,14 @@ lex_scc buf =
case untilChar# buf '/'# of
buf' ->
let mod_name = lexemeToFastString buf' in
- case untilChar# (stepOn (stepOverLexeme buf')) '/'# of
- buf'' ->
- let grp_name = lexemeToFastString buf'' in
- case untilChar# (stepOn (stepOverLexeme buf'')) '\"'# of
- buf''' ->
- let cc_name = lexemeToFastString buf''' in
- (mkUserCC cc_name mod_name grp_name,
- stepOn (stepOverLexeme buf'''))
+-- case untilChar# (stepOn (stepOverLexeme buf')) '/'# of
+-- buf'' ->
+-- let grp_name = lexemeToFastString buf'' in
+ case untilChar# (stepOn (stepOverLexeme buf')) '\"'# of
+ buf'' ->
+ let cc_name = lexemeToFastString buf'' in
+ (mkUserCC cc_name mod_name _NIL_{-grp_name-},
+ stepOn (stepOverLexeme buf''))
in
case prefixMatch (stepOn buf) "CAF:" of
Just buf' ->
--
GitLab